VBA 連続貼付けで列が変わった時に、1行目から張り付ける

Question

B列のe,f・・・・・を2行目から記入させたいです。

testフォルダに入っているAAAとBBBという二つのブックのH列に東京という文字が入っているものを抽出して別ブックに貼りつけるコードを作りました。
貼り付け先のブックでは、行を詰めたいです。
AAAで4列目まで貼付け、その後BBBに異動した際BBBも1行目から記載してほしいのですが5行目から記載されてしまいます。
どのような操作をすればBBBのデータも1列目から記載することができるでしょうか。

【現状】
AAAのﾃﾞｰﾀ　　BBBのﾃﾞｰﾀ
1 a
2 b
3 c
4 d
5 　　　　　　　　e
6　　　　　　　　 f

【やりたいこと】
AAAのﾃﾞｰﾀ　　BBBのﾃﾞｰﾀ
1 a　　　　　　　e
2 b 　　　　 f
3 c
4 d
5 　　　　
6　　　

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

エラーメッセージ

該当のソースコード

Sub fileopenexport()

    Dim testSheet As Worksheet
    Set testSheet = ThisWorkbook.Worksheets(1)

    Const Path As String = "C:\Users\Desktop\test\"
    Dim buf As String
    buf = Dir(Path & "*.xlsm")

    Dim i As Long
    Do While buf <> ""
    
       i = i + 1

        Dim Book As Workbook
        Set Book = Workbooks.Open(Path + buf)
        Dim ws1 As Worksheet, ws2 As Worksheet
        Dim all_row As Long
        Dim j As Long, q As Long
        Set ws1 = Book.Sheets(1)
        Set ws2 = Book.Sheets(2)

all_row = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).row
           For q = 2 To all_row
               If ws1.Cells(q, 8).Value Like "*東京*" Then
                 j = j + 1
                 testSheet.Cells(j , i) = ws1.Cells(q, 1).Value
               End If
           Next


        Book.Close False
        buf = Dir()
    Loop
End Sub

試したこと

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

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

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

Comments

[meg_]

確認ですが、
> その後BBBに異動した際BBBも1行目から記載してほしいのですが5列目から記載されてしまいます。
列ですか？行ですか？

[SSS_]

申し訳ございません
誤字を訂正しました

5列→5行でした

Answer 1

これも一つの方法

Sub tes()
Dim n, q, all_row
Dim tesRow, tesCol

Dim testSheet As Worksheet
Set testSheet = ThisWorkbook.Worksheets(1)
    
all_row = 20
For n = 0 To all_row - 2
  tesRow = (n Mod 4) + 1
  tesCol = Int(n / 4) + 1
  q = n + 2
  testSheet.Cells(tesRow, tesCol).Value = q & "行"
Next
End Sub

Comments

[SSS_]

ご回答ありがとうございます。
余りを利用した条件分けは苦手なので克服できるように勉強いたします。
ありがとうございました！

Answer 2

Long型の変数を定義されていない状態で定義すると0の値で初期化されますが、
既に変数が定義されている場合は何も起きません。

列が切り替わった時に値が増えていってしまうのは、
jを初期化にまかせて値を明示的に設定していないからです。

検索しているFor文の外側で明示的に0を設定すれば、
列が変わる毎に上から書き出してくれると思います。

           j = 0
           For q = 2 To all_row

Comments

[SSS_]

誠にありがとうございます。
ループの外でjをリセットするのですね。
無事にできました。
ありがとうございました！