回答編集履歴
1
コードの修正
test
CHANGED
@@ -20,6 +20,8 @@
|
|
20
20
|
|
21
21
|
|
22
22
|
|
23
|
+
Application.ScreenUpdating = False
|
24
|
+
|
23
25
|
Sheets(対象シート).Select
|
24
26
|
|
25
27
|
For i = 0 To Range(範囲終点).Column
|
@@ -28,17 +30,13 @@
|
|
28
30
|
|
29
31
|
If Range(範囲始点).Offset(x, i).NoteText <> "" Then
|
30
32
|
|
31
|
-
|
33
|
+
With Range(範囲始点)
|
32
34
|
|
33
|
-
|
35
|
+
Sheets(コメント貼り付け対象).Range("A1").Offset(j, 0) = .Offset(x, i).NoteText
|
34
36
|
|
35
|
-
Sheets(コメント貼り付け対象).
|
37
|
+
Sheets(コメント貼り付け対象).Range("A1").Offset(j, 1) = .Offset(x, i).Address
|
36
38
|
|
37
|
-
Range("A1").Offset(j, 0) = ntext
|
38
|
-
|
39
|
-
Range("A1").Offset(j, 1) = ntadr
|
40
|
-
|
41
|
-
|
39
|
+
End With
|
42
40
|
|
43
41
|
j = j + 1
|
44
42
|
|
@@ -48,7 +46,7 @@
|
|
48
46
|
|
49
47
|
Next i
|
50
48
|
|
51
|
-
|
49
|
+
Application.ScreenUpdating = True
|
52
50
|
|
53
51
|
Sheets(コメント貼り付け対象).Select
|
54
52
|
|