for eachを使って転記したい

Question

前提

sheet2のa1:f20のfor nextを使って、出力した値をfor eachを使って、sheet3のa1:f20には何も表示せず、i1:n20に転記して1～120としたいのですが、上手くいきません。
コードもあまり良くなく、やっている事が、あまり意味がないと思うのですが。for eachの練習として、実現したいです。大変お手数ですが、どなたか、ご存じの方、教えていただけないでしょうか？
office2010のバージョンです。

該当のソースコード

``VBA
Sub for_e() 'sheet2→sheet3
Dim r1 As Variant
Dim i, j, k, l As Long
Dim r As Range
l = 1
For i = 1 To 20
For j = 1 To 6
Cells(i, j) = l
' i = i + 1
l = l + 1

  Next j
   
   Next i
  For Each r1 In Worksheets(1).Range("a1:f20")

' Debug.Print r1
For i = 1 To 20
For j = 1 To 6
Worksheets(3).Cells(i, j + 8) = r1
Next j
Next i
Next r1
End Sub

試したこと

ここに問題に対して試したことを記載してください。

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

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

Answer 1

下記でどうでしょう。

Sub for_e()                                      'sheet2→sheet3
    Dim i As Long, j As Long, l As Long
    l = 1
    For i = 1 To 20
        For j = 1 To 6
            Worksheets(1).Cells(i, j) = l
            ' i = i + 1
            l = l + 1
        Next j
    Next i
    
    Dim r As Range
    For Each r In Worksheets(1).Range("a1:f20")
        Worksheets(3).Cells(r.Row, r.Column + 8) = r.Value
    Next r
End Sub

Comments

[kagosimah]

いつも、有難うございます。sheet3に転記した後、a1:f20は表示したくないのですが、無理ですよね。すみません。

[hatena19]

sheet2 (Worksheets(1)) をアクティブにした状態で実行してください。

それか、回答のコードを修正しましたので、そのコードで試してみてください。

そのうえで、目的と違うなら、どこが違って、何をしたいのか説明してください。

[kagosimah]

返事、遅くなりました。sheet3をアクティブにして実行していてたからsheet3、a1:f20は表示されたんですね。、仰る通り、sheet2をアクティブにしたら、sheet3に転記した後、a1:f20は表示はなくなりました。また、コードを修正、頂き、無事、やりたいことが実現しました。有難うございました。基本的、ミスに気付かない、自分が悪いです。すみませんでした。

Answer 2

とりあえず、修正しておきました。

Sub for_e()    'sheet2→sheet3
    Dim r1 As Variant
    Dim i, j, k, l As Long
    Dim r As Range
    l = 1
    For i = 1 To 20
        For j = 1 To 6
            Cells(i, j) = l
            ' i = i + 1
            l = l + 1

        Next j

    Next i
    For i = 1 To 20
        For j = 1 To 6
            Worksheets(3).Cells(i, j + 8) = Worksheets(1).Cells(i, j)
        Next j
    Next i
End Sub

Comments

[kagosimah]

有難うございます。すみません。for eachが無かったのですが、これは勉強になります。参考にさせて頂きます。