このエラーの解決求む

前提・実現したいこと

エクセルのマクロで、年/月/日(例：2000/1/1)と書かれている列の横に、その年だけが書かれた列を作っています。
例
2000/1/1 | 2000
2000/1/2 | 2000
...
2000/12/31 | 2000
2001/1/1 | 2001
...

発生している問題・エラーメッセージ

　実行すると、
「実行時エラー"1004":
　"Range"メソッドは失敗しました:'_Global'オブジェクト」
となってしまいます。

該当のソースコード

Sub Macro4()
'
' Macro4 Macro
'
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
   
    
    
        j = 1828 'セルの番号'
        For i = 1980 To 2016 '年の数'
            If i Mod 4 = 0 Then　'うるう年'
                Range(2, j).Value = i
                Range(2, j).Copy
                k = j + 365
                Range(Cells(2, j), Cells(2, k)).PasteSpecial xlPasteAll
                j = j + 366
            Else '平年'
                Range(2, j).Value = i
                Range(2, j).Copy
                k = j + 364
                Range(Cells(2, j), Cells(2, k)).PasteSpecial xlPasteAll
                j = j + 365
            End If
      
        Next i
        
            
End Sub

試したこと

あまりエクセルのマクロに詳しくなく、手も足も出ませんでした。
どなたか詳しい方、回答していただけると嬉しいです。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

行動規範の内容に同意します

回答1件

ベストアンサー

Range オブジェクト (Excel)

範囲アドレスに文字列引数を使用する場合、アドレスは A1 スタイルの形式で指定する必要があります。R1C1 スタイルの形式は使用できません。

A1 形式の参照を変更するのに Visual Basic の文字列関数を使用することもできますが、Cells(1, 1) 形式を使用したほうが簡単であり、より効率的なプログラミングを実践できます。

vba
1Sub Macro4()
2'
3' Macro4 Macro
4'
5    Dim i As Integer
6    Dim j As Integer
7    Dim k As Integer
8
9
10
11        j = 1828 'セルの番号'
12        For i = 1980 To 2016 '年の数'
13            If i Mod 4 = 0 Then  'うるう年'
14                Cells(2, j).Value = i
15                Cells(2, j).Copy
16                k = j + 365
17                Range(Cells(2, j), Cells(2, k)).PasteSpecial xlPasteAll
18                j = j + 366
19            Else '平年'
20                Cells(2, j).Value = i
21                Cells(2, j).Copy
22                k = j + 364
23                Range(Cells(2, j), Cells(2, k)).PasteSpecial xlPasteAll
24                j = j + 365
25            End If
26
27        Next i
28
29
30End Sub