Excel VBA質問箱 IV

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

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


62171 / 76738 ←次へ | 前へ→

【19175】Re:検索について
回答  かみちゃん  - 04/10/24(日) 17:21 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>Sheet1にはB1だけでなく、B2 B3・・・・・とデーターがはいっています。
>Sheet2のB1セルと、Sheet1のB列では一致するセル番号は1つしかありません。

以下のコードでどうでしょうか?
B1、B2、B3・・・と「空白でない限り(<>"")」順番に繰り返し処理をしていきます。

Sub Macro1()
 Dim RowNo As Long
 Dim c As Range
 
 Worksheets("Sheet1").Select
 RowNo = 1
 Do While Cells(RowNo, 2).Value <> ""
  With Worksheets("Sheet2").Columns("B")
   Set c = .Find(Cells(RowNo, 2).Value, LookIn:=xlValues)
   If Not c Is Nothing Then
    '検索値に一致したらコピーする
    Sheets("Sheet2").Rows(c.Row).Copy
    Cells(RowNo, 1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
   Else
    MsgBox "検索値が見つかりません"
   End If
  End With
  RowNo = RowNo + 1
 Loop
 Range("A1").Select
End Sub
0 hits

【19164】検索について seya 04/10/24(日) 11:15 質問
【19165】Re:検索について かみちゃん 04/10/24(日) 12:00 回答
【19168】Re:検索について ちゃっぴ 04/10/24(日) 13:37 回答
【19172】Re:検索について seya 04/10/24(日) 15:38 質問
【19173】Re:検索について かみちゃん 04/10/24(日) 15:48 発言
【19174】Re:検索について seya 04/10/24(日) 17:12 質問
【19175】Re:検索について かみちゃん 04/10/24(日) 17:21 回答
【19177】Re:検索について ちゃっぴ 04/10/24(日) 17:58 回答
【19178】Re:検索について seya 04/10/24(日) 18:10 お礼

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