Copy and Paste of Cell Formats with VBA 教室 形式を選択して貼り付け

　ある範囲のセルの形式を選択して、指定の場所にコピーする操作をVBAで書いてみました。
　そのコピー先が、あるルールに従って沢山のところにある場合、ループで一気にコピーすることはできます。
　以下の例は、B2からC5のブロックの形式を選択し、B7から10セルずつ離れるブロックに1000セル目までコピーします。

Sub CopyAndPasetCellFormat()

    Dim range1 As Range
      Dim i as Interger
      Dim A as String

      Set range1 = Range("B2:C5")
      range1.Copy
  
      For i=7 to 1000 step 10
        A = "B" & Format(i)
        Range(A).PasteSpecial Paste:=xlPasteFormats
      Next
    Application.CutCopyMode = False

End Sub