回答編集履歴
2
誤記訂正しました。
answer
CHANGED
|
@@ -1,6 +1,6 @@
|
|
|
1
1
|
.Range("A" & MaxRow).Value = openBook.Worksheets(1).Range("E6").Value
|
|
2
2
|
.Range("B" & MaxRow).Value = openBook.Worksheets(1).Range("AA9:AA13").Value
|
|
3
3
|
でやりたいことは、添付図のようなことでしょうか。
|
|
4
|
-
赤いセルがコピー
|
|
4
|
+
赤いセルがコピー先、黄色いセルがコピー元です。
|
|
5
5
|
MaxRow=4と仮定した場合です。
|
|
6
6
|
|
1
記入漏れの追加
answer
CHANGED
|
@@ -2,4 +2,5 @@
|
|
|
2
2
|
.Range("B" & MaxRow).Value = openBook.Worksheets(1).Range("AA9:AA13").Value
|
|
3
3
|
でやりたいことは、添付図のようなことでしょうか。
|
|
4
4
|
赤いセルがコピー元、黄色いセルがコピー先です。
|
|
5
|
+
MaxRow=4と仮定した場合です。
|
|
5
6
|
|