Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


46507 / 76732 ←次へ | 前へ→

【35195】値を検索で行ごとコピー
質問  Help me!!  - 06/2/23(木) 16:05 -

引用なし
パスワード
   ここの過去の記事を参考に自分なりにマクロを作って見ました。
でもうまくいきません。

下の表の様に、表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

です。


ご指導よろしくお願い致します。

8 hits

【35195】値を検索で行ごとコピー Help me!! 06/2/23(木) 16:05 質問
【35199】Re:値を検索で行ごとコピー Kein 06/2/23(木) 17:02 回答
【35203】Re:値を検索で行ごとコピー Help me!! 06/2/23(木) 17:37 質問
【35204】Re:値を検索で行ごとコピー Kein 06/2/23(木) 17:54 回答

46507 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free