回答編集履歴

修正

2021/11/17 05:25

投稿

スコア4592

test CHANGED Viewed

@@ -1,4 +1,4 @@
-こんな感じでどうでしょうか。
+こんな感じでどうでしょうか。（修正：セル結合がある場合にOffsetがずれる事象に対処しました。）
 ```VBA
@@ -32,13 +32,13 @@
             Do
-                c.Offset(1, 2).Value = moto.Range("B14")
+                c.Offset(, 2).Offset(1).Value = moto.Range("B14")
-                c.Offset(1, 3).Value = moto.Range("F14")
+                c.Offset(, 3).Offset(1).Value = moto.Range("F14")
-                c.Offset(3, 2).Value = moto.Range("B15")
+                c.Offset(, 2).Offset(3).Value = moto.Range("B15")
-                c.Offset(3, 3).Value = moto.Range("F15")
+                c.Offset(, 3).Offset(3).Value = moto.Range("F15")
                 Set c = .FindNext