Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

62175 / 76732

←次へ　｜　前へ→


	【19165】Re:検索について

かみちゃん - 04/10/24(日) 12:00 -


	引用なし

	パスワード

>Sheet1のB1セルの数値が、Sheet2のB列の数値で一致するセルがあった場合、Sheet１のB1を含むその行を、Sheet2の一致した行に上書きするにはどうしたらいいのでしょうか。

Sheet1のB1セルの数値がSheet2のB列にあるかどうかを検索するという方法をとります。それには、Findメソッドを使えばできます。
あとは、一致した行全体をSheet1のB1セルを含む行、つまり1行目にコピーをします。

Findメソッドのヘルプの使用例と、行全体を別のシートの行全体にコピーする方法をマクロの記録でしてみて、加工すれば、以下のコードができました。
Sheet1をアクティブにして、実行してみてください。

Sub Macro1()
　With Sheets("Sheet2").Columns("B")
　　Set c = .Find(Range("B1"), LookIn:=xlValues)
　　If Not c Is Nothing Then
　　　'検索値に一致行全体をコピーする
　　　Sheets("Sheet2").Rows(c.Row).Copy
　　　Range("A1").Select
　　　ActiveSheet.Paste
　　　Application.CutCopyMode = False
　　Else
　　　MsgBox "検索値が見つかりません"
　　End If
　End With
　Range("A1").Select
End Sub

2 hits

▼

【19164】検索について seya 04/10/24(日) 11:15