エクセルVBAコピーしたセルを順番に張り付ける方法

質問

おはようございます。

for文の処理方法がわからないので質問します。

やりたいこと
例・sheet2・sheet2・sheet4・・・と
A～B列のセルに文字が有る場合
B列のセルに文字が有れば
その行全体をコピーして
【貼り付け】シートに張り付けたいのですが

私の考えたコードだと
コピーまではうまくできるのですが
【貼り付け】シートに行全体を張り付ける際
行を上書きされてしまいます。
（sheet2の行を張り付けたら
次にsheet3の行を貼り付けシートに上書きしてしまう）

このような上書きをされずに
すでに【貼り付け】シートにコピーされたものが有る場合
一つ下の行に貼り付けって出来ないでしょうか？

コードを下記に記載します。

すいませんがコードを書いて頂けると助かります。
宜しくお願い致します。

追記：【貼り付け】シートは一番左端にあります。

Sub test()

Dim b As Variant
Dim i As Long
Dim io As Integer
Const　 AAA　 As String = ""

Set b = Worksheets("貼り付け")

For i = 1　To 100
For io = 2 To ThisWorkbook.Worksheets.Count

If WorksheetFunction.CountIf(Worksheets(io).Rows(i), "") > 0 Then
　Worksheets(io).Rows(i).Copy
　 b.Rows(i).Offset(1, 0).PasteSpecial (xlPasteAll)’ここの貼り付け方が間違ってますよね・・・

End If

Next
Next

End Sub

回答No.2

watabe007 · ベストアンサー

>B列のセルに文字が有れば
>その行全体をコピーして
>【貼り付け】シートに張り付けたいのですが

参考に
Sub test()
Dim i As Long
Dim io As Integer

For io = 2 To Worksheets.Count
For i = 1 To 100
With Worksheets("貼り付け")
If Worksheets(io).Cells(i, "B").Value <> "" Then
Worksheets(io).Rows(i).Copy .Rows(.Cells(Rows.Count, "B").End(xlUp).Row + 1)
End If
End With
Next
Next
End Sub

回答No.1

SI299792

説明とプログラムが違っているのですが。
プログラムでは、Ｂ列を参照していません。
説明を信じてＢ列に文字がある場合のみ行コピーをするなら
Option Explicit
'
Sub Macro1()
　　Dim Sheet As Integer
　　Dim I As Worksheet
　　Dim RInp As Long
　　Dim ROut As Long
'
　　Sheets(1).Select
　　Cells.ClearContents
　　Application.ScreenUpdating = False
'
　　For Sheet = 2 To Sheets.Count
　　　　Set I = Sheets(Sheet)
'
　　　　For RInp = 1 To I.Cells(Rows.Count, "B").End(xlUp).Row
　　　　　　If I.Cells(RInp, "B") > "" Then
　　　　　　　　ROut = ROut + 1
　　　　　　　　Rows(ROut) = I.Rows(RInp).Value
　　　　　　End If
　　Next RInp, Sheet
End Sub

オートフィルターで絞って１度にコピーする方法もありますが、１行目からなので今回は使っていません。
違っていたら補足に書いて下さい。