回答編集履歴
3
syuusei
test
CHANGED
@@ -2,9 +2,9 @@
|
|
2
2
|
|
3
3
|
```
|
4
4
|
|
5
|
-
Dim sht1 As Worksheet
|
5
|
+
Dim sht1 As Worksheet
|
6
6
|
|
7
|
-
Dim sht2 As Worksheet
|
7
|
+
Dim sht2 As Worksheet
|
8
8
|
|
9
9
|
|
10
10
|
|
2
修正
test
CHANGED
@@ -38,7 +38,7 @@
|
|
38
38
|
|
39
39
|
|
40
40
|
|
41
|
-
For iCol = 1 To
|
41
|
+
For iCol = 1 To 7
|
42
42
|
|
43
43
|
If iCol = 1 Then
|
44
44
|
|
1
追記
test
CHANGED
@@ -65,3 +65,17 @@
|
|
65
65
|
Loop
|
66
66
|
|
67
67
|
```
|
68
|
+
|
69
|
+
|
70
|
+
|
71
|
+
|
72
|
+
|
73
|
+
(追記)
|
74
|
+
|
75
|
+
サンプルコードはシート1⇒シート2へのコピーで作っていますが、ブック1⇒ブック2と読み替えていただいても問題ないはずです。
|
76
|
+
|
77
|
+
|
78
|
+
|
79
|
+
あと、掲示いただいたコードは質問文のルールとはちょっと違う並びになりそうな気がするのですが・・・。
|
80
|
+
|
81
|
+
(動かして確認はしていませんが、B列からB列にコピーしているように見えます。)
|