回答編集履歴

修正

2021/11/17 05:25

投稿

スコア4592

answer CHANGED Viewed

@@ -1,4 +1,4 @@
-こんな感じでどうでしょうか。
+こんな感じでどうでしょうか。（修正：セル結合がある場合にOffsetがずれる事象に対処しました。）
 ```VBA
 Sub sample()
     Dim moto As Worksheet
@@ -15,10 +15,10 @@
         If Not c Is Nothing Then
             firstAddress = c.Address
             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
             Loop While Not c Is Nothing
         End If