回答編集履歴
2
ミス
test
CHANGED
|
@@ -16,7 +16,7 @@
|
|
|
16
16
|
|
|
17
17
|
Workbooks(AAA).Worksheets("シート1").Range(Cells(B, 6), Cells(B, 12)).Copy
|
|
18
18
|
|
|
19
|
-
Workbooks(BBB).Worksheets("シート1").("AO12:AU12").PasteSpecial Paste:=xlPasteValues
|
|
19
|
+
Workbooks(BBB).Worksheets("シート1").Range("AO12:AU12").PasteSpecial Paste:=xlPasteValues
|
|
20
20
|
|
|
21
21
|
End If
|
|
22
22
|
|
1
改善
test
CHANGED
|
@@ -5,3 +5,23 @@
|
|
|
5
5
|
根本的な問題として、質問者様は**「アクティブ状態のシートでなければコピー・貼り付けができない」と思い込んでいませんか？**
|
|
6
6
|
|
|
7
7
|
[セルの操作(セルのコピー)](http://officetanaka.net/excel/vba/cell/cell09.htm)
|
|
8
|
+
|
|
9
|
+
|
|
10
|
+
|
|
11
|
+
```
|
|
12
|
+
|
|
13
|
+
For B = 1 to 100
|
|
14
|
+
|
|
15
|
+
If Workbooks(AAA).Worksheets("シート1").Cells(B, 2).Value = "○" Then
|
|
16
|
+
|
|
17
|
+
Workbooks(AAA).Worksheets("シート1").Range(Cells(B, 6), Cells(B, 12)).Copy
|
|
18
|
+
|
|
19
|
+
Workbooks(BBB).Worksheets("シート1").("AO12:AU12").PasteSpecial Paste:=xlPasteValues
|
|
20
|
+
|
|
21
|
+
End If
|
|
22
|
+
|
|
23
|
+
Next B
|
|
24
|
+
|
|
25
|
+
```
|
|
26
|
+
|
|
27
|
+
一応改善しようとするとこうなりますが、これだとコピー先に上書きされ続けて最後に貼り付けたものしか残らないのでは…？
|