|
ここの過去の記事を参考に自分なりにマクロを作って見ました。
でもうまくいきません。
下の表の様に、表1でC列に1162という番号がある行を丸ごと表2に順番にコピーしていきたいのです。
表1(シート名 2006.2)
A B C D ・・・
1 2月 1日 1162 立替金
2 4日 1162 立替金
3 7日 1180 その他
4 8日 1180 その他
5 12日 1162 立替金
表2(シート名 立替金)
A B C D ・・・
1 2月 1日 1162 立替金
2 4日 1162 立替金
3 12日 1162 立替金
私が作ったVBAは
Sub 検索()
Dim b As Range
Dim FirstAddress As String
Dim RowNo As Integer
RowNo = 2
'Sheet"2006.2"のC3からC140に
With Worksheets("2006.2").Range("C3:C140")
'「1162」という値を部分一致で検索する。
Set b = .Find("1162", LookIn:=xlValues, LookAt:=xlPart)
If Not b Is Nothing Then
FirstAddress = b.Address
Do
'検索値が見つかったらSheet"立替金"の2列目に順番にコピーする
b.Copy Destination:=Sheets("立替金").Cells(RowNo, 2)
RowNo = RowNo + 1
'次を検索する。
Set b = .FindNext(b)
Loop While Not b Is Nothing And b.Address <> FirstAddress
End If
End With
End Sub
です。
ご指導よろしくお願い致します。
|
|