
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたいです。
VBA初心者です。教えて頂けますと嬉しいです。
sheet1のA列セルの値 = sheet2のA列セルの値
だった場合
sheet2の該当行をsheet1の該当行に上書きコピペ
したいです。
sheet1に元データ表があって、sheet2に検索抽出表示した後にsheet2のデータを書き換えた際にsheet1の元データに反映したい感じです。
A列にはデータの番号が連番で割り振られています。
説明がわかりづらかったらすみません。
何卒宜しくお願い致します。
No.2ベストアンサー
- 回答日時:
こんばんは
よく理解できていませんけれど、勝手に解釈しました。
それぞれのシート内でA列の値には重複がなく、複数ヒットすることはないものと仮定しています。
(=再検索する必要はないものと解釈)
セル範囲等は不明なので、適当です。
Sub Sample_Q12625547()
Dim sh As Worksheet
Dim a As Range, c As Range, f As Range
Set sh = Worksheets("Sheet2")
Set a = Worksheets("Sheet1").Columns(1)
For Each c In Range(sh.Cells(1, 1), sh.Cells(Rows.Count, 1).End(xlUp))
If c.Value <> "" Then
Set f = a.Find(What:=c.Value, LookIn:=xlValues, Lookat:=xlWhole)
If Not f Is Nothing Then f.EntireRow.Value = c.EntireRow.Value
End If
Next c
End Sub
ありがとうございます。
思う感じで動きました!
返事遅くなり申し訳御座いません。
分かりづらい説明の中解決に導いて下さって感謝です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
-
VBA 列全体を別シートの列と比較し、同じ値がある行の、右端に値をコピーする方法について
Excel(エクセル)
-
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
-
4
【VBA】元のシート内の文字列を別シートと比較し、一致したら元のシートの別のセルへ転記する方法。
Excel(エクセル)
-
5
シート間で同じ値があったらコピペ
Visual Basic(VBA)
-
6
更新前と更新後の差分をVBAを使って抜き出したい
Excel(エクセル)
-
7
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
8
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
9
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
10
エクセルマクロ:複数列 重複があった場合、メッセージと印入れる方法
Excel(エクセル)
-
11
VBAでのリスト不一致抽出について
Visual Basic(VBA)
-
12
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
13
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
14
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
15
VBAで重複する項目を1つにまとめて金額を合計したい
Excel(エクセル)
-
16
Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです
Visual Basic(VBA)
-
17
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
18
【VBA】指定したセルと同じ値で、別シートにあるセルに移動するには?
Visual Basic(VBA)
-
19
VBAで重複するデータがあれば1個だけ残して他の重複セルを"(空白)にしたいのですが
Excel(エクセル)
-
20
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
血小板増加について
-
検便についてです。 便は取れた...
-
首吊りどこ締めるの
-
Excel 数値の前の「 ' 」を一括...
-
レインボーシックスシージをし...
-
エクセルで空白セルを含む列の...
-
腕を見たら黄色くなってる部分...
-
VLOOKUP関数を使用時、検索する...
-
2つの数値のうち、数値が小さい...
-
小数点以下を繰り上げたものを...
-
値が入っているときだけ計算結...
-
病院側から早く来てくださいと...
-
勃起する時って痛いんですか? ...
-
エクセルのラベルの値(文字列...
-
彼女のことが好きすぎて彼女の...
-
Excel条件付書式(残業45時間以...
-
リンク先のファイルを開かなく...
-
エクセルで数式の答えを数値と...
-
MIN関数で空白セルを無視したい...
-
値が入っている一番右のセル位...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
検便についてです。 便は取れた...
-
値が入っているときだけ計算結...
-
彼女のことが好きすぎて彼女の...
-
尿検査前日に自慰行為した時の...
-
VLOOKUP関数を使用時、検索する...
-
Excel 数値の前の「 ' 」を一括...
-
精液の落とし方を教えてください
-
【Excelで「正弦波」のグラフを...
-
2つの数値のうち、数値が小さい...
-
風俗店へ行く前のご飯
-
精子に血が・・・
-
リンク先のファイルを開かなく...
-
小数点以下を繰り上げたものを...
-
EXCELで条件付き書式で空白セル...
-
イタリアから帰国する際、肉製...
-
excelでsin二乗のやり方を教え...
-
腕を見たら黄色くなってる部分...
-
病院側から早く来てくださいと...
-
ワードのページ番号をもっと下...
おすすめ情報