回答編集履歴
1
コードの修正
answer
CHANGED
|
@@ -9,21 +9,20 @@
|
|
|
9
9
|
範囲終点 = "X100"
|
|
10
10
|
j = 0
|
|
11
11
|
|
|
12
|
+
Application.ScreenUpdating = False
|
|
12
13
|
Sheets(対象シート).Select
|
|
13
14
|
For i = 0 To Range(範囲終点).Column
|
|
14
15
|
For x = 0 To Range(範囲終点).Row
|
|
15
16
|
If Range(範囲始点).Offset(x, i).NoteText <> "" Then
|
|
16
|
-
|
|
17
|
+
With Range(範囲始点)
|
|
17
|
-
ntadr = Range(範囲始点).Offset(x, i).Address
|
|
18
|
-
Sheets(コメント貼り付け対象).Select
|
|
19
|
-
Range("A1").Offset(j, 0) =
|
|
18
|
+
Sheets(コメント貼り付け対象).Range("A1").Offset(j, 0) = .Offset(x, i).NoteText
|
|
20
|
-
Range("A1").Offset(j, 1) =
|
|
19
|
+
Sheets(コメント貼り付け対象).Range("A1").Offset(j, 1) = .Offset(x, i).Address
|
|
21
|
-
|
|
20
|
+
End With
|
|
22
21
|
j = j + 1
|
|
23
22
|
End If
|
|
24
23
|
Next x
|
|
25
24
|
Next i
|
|
26
|
-
|
|
25
|
+
Application.ScreenUpdating = True
|
|
27
26
|
Sheets(コメント貼り付け対象).Select
|
|
28
27
|
|
|
29
28
|
End Sub
|