エクセルのマクロVBAで質問です。
1つのシートに下記のような(1)(2)のデータと
同ブック内・別シートに(3)(4)のデータがあり
(1)のデータ内を検索して、
別シート内の置換リスト(3)に値が存在すれば、
(4)の値を(2)に記載し、なければ、(1)の値をそのまま(2)に記載
するという内容にしたいのですが、どうもうまくいきません。
(1) (2)
AAAA ■■■←AAA
BBBB ■■■←JJJ
CCCC ■■■←CCC
DDDD ■■■←GGG
EEEE ■■■←UUU
FFFF ■■■←FFF
置換リスト(同ブック内・別シート)
(3) (4)
BBBB JJJ
DDDD GGG
EEEE UUU
いい方法はないでしょうか。
No.1ベストアンサー
- 回答日時:
ほい
標準モジュールに書けば動く
Option Explicit
Sub SHT_Check()
Dim iCnt As Integer
Dim iMax As Integer
Dim jCnt As Integer
Dim jMax As Integer
Dim SHT1 As Worksheet
Dim SHT2 As Worksheet
Set SHT1 = Sheets("Sheet1") '以下Sheets("Sheet1")の代わりに使用
Set SHT2 = Sheets("Sheet2") '以下Sheets("Sheet2")の代わりに使用
iMax = SHT1.Range("A1").CurrentRegion.Rows.Count 'Sheets("Sheet1")の最大行数(ループ回数)
jMax = SHT2.Range("A1").CurrentRegion.Rows.Count 'Sheets("Sheet2")の最大行数(ループ回数)
For iCnt = 1 To iMax '1行目からデータが連続する間ループ
For jCnt = 1 To jMax '1行目からデータが連続する間ループ
If SHT1.Cells(iCnt, 1).Value = SHT2.Cells(jCnt, 1).Value Then 'もし値が一致してたら
SHT1.Cells(iCnt, 2).Value = SHT2.Cells(jCnt, 2).Value '変換
Exit For '置き換えたら後続不要(次は当然一致しないから、再変換防止)
Else '違ってたら
SHT1.Cells(iCnt, 2).Value = SHT1.Cells(iCnt, 1).Value 'B列iCnt行に入力
End If
Next jCnt
Next iCnt
End Sub
データが連続してない(空白セルがある)と失敗するかも
ああ、それとたぶんこのままじゃ実際には使えないだろうから、シート名はどこを置き換えるとか、cellsの括弧内が何を表してるかは、自力で調べてね
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Visual Basic(VBA) vbaについて 主に以下のような設定をしたいです。 Aブックの表の行数が20未満だったら Bブックの 1 2023/06/08 23:40
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- Excel(エクセル) VBAで、シート間の転記するコードを教えてください。 4 2023/03/26 10:43
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Excel(エクセル) エクセルシートのデータを1列飛ばしで別ブックのシートに貼り付けるマクロが知りたい 2 2023/06/05 22:37
- Excel(エクセル) 【マクロ】同じフォルダ内にある複数ブックから1つのブック内の1シートにデータを集めたい 6 2022/09/28 18:16
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
首吊りどこ締めるの
-
射精をして1週間以内に尿検査を...
-
変な話しになります。尿検査で...
-
白血球が多いとどんな心配があ...
-
今朝、毎朝の習慣でオナニーし...
-
1日前の検尿
-
検便についてです。 便は取れた...
-
男です。昨日の午後3時くらいに...
-
勃起する時って痛いんですか? ...
-
EXCELで条件付き書式で空白セル...
-
腕を見たら黄色くなってる部分...
-
彼女のことが好きすぎて彼女の...
-
中出しをするとお腹が痛い・・・。
-
小数点以下を繰り上げたものを...
-
EXCELで式からグラフを描くには?
-
2つの数値のうち、数値が小さい...
-
値が入っているときだけ計算結...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
中出しをするとお腹が痛い・・・。
-
麻疹風疹の抗体検査結果につい...
-
エクセルでエラーが出て困って...
-
白血球が多いとどんな心配があ...
-
彼女のことが好きすぎて彼女の...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
至急!尿検査前日にオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
精子が黄色?
-
小数点以下を繰り上げたものを...
-
値が入っているときだけ計算結...
-
口の中に黒い血の塊
-
健否~書類の書き方~
-
甲状腺が腫れているが血液検査...
-
はしかの抗体検査は何科の病院...
-
テスターで断線を調べる方法教...
おすすめ情報