任意の複数セルをマクロで選択し、コピーする方法

質問

またお世話になります。
エクセルで選択された項目だけを抜き出して、新たに並べ替え、印刷するマクロを作っていますが、任意のセルからその横のセル３つを選択することが出来ません。表のイメージとしては、

　　Ａ　　　Ｂ　　　Ｃ
1　氏名　獲得　点数
2　田中　　3　　30点
3　中村　　5　　50点
4　高橋
5　近藤　　1　　10点
6　南
　 ・
　 ・
　 ・

の中からB列に数値が入っている行だけを別のところへコピペするというものです。

現在まで作ったマクロは、
Sub Macro01()
Range("B1").Select
Selection.End(xlDown).Offset(0, -3).Select

ここに「田中　3　30点」の３つのセルを選択する方法

Selection.Copy
　’印刷用の一番下から入力されているセルのひとつ下を選択する
Range("N22").Select
Selection.End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, 　　SkipBlanks:= _
False, Transpose:=False

この作業を繰り返しして、一定のところで止まるようにしたい。

End Sub

です。
お返事よろしくお願いいたします。

回答No.1

n-jun · ベストアンサー

Sub test()
Dim r As Range

For Each r In Range("A2", Range("A" & Rows.Count).End(xlUp))
If r.Offset(0, 1).Value <> "" Then
r.Resize(1, 3).Copy Range("N22").End(xlUp).Offset(1, 0)
End If
Next

End Sub
こんな事でしょうか。

お礼

さっそくのお返事ありがとうございました。
大変役に立ちました。