|
>Sheet1のB1セルの数値が、Sheet2のB列の数値で一致するセルがあった場合、Sheet1の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
|
|