回答編集履歴

コード修正

2020/04/20 00:59

投稿

スコア34367

answer CHANGED Viewed

@@ -12,11 +12,12 @@
         Set rng = Range("$O$3:$O" & Index).SpecialCells(xlCellTypeVisible) 'O列の表示セルを取得
         'コピー&貼り付け
+        Dim c As Range
-        For i = 1 To rng.Count
+        For Each c  in rng.Cells
             If i < 11 Then
-                .Range("D" & i + 12) = rng(i)
+                .Range("D" & i + 12) = c
             Else
-                .Range("E" & i - 7) = rng(i)
+                .Range("E" & i - 7) = c
             End If
         Next
 ```