Q&A
sageさんの回答のコメントにあるように、Vlookup関数を使うのは良いと思います。参照後にコピー＆値の貼り付けで値にすれば良いですし。
今回の作業は繰り返し発生するものでもないように思われますし。
※もし定期的に発生する作業であればVBAを検討しても良いかとは思います。
こんにちは。vba知識がなく、困っています。
やりたいの、は特定の文字列を検索して、置換用リスト（別ブック）の値にどんどん置き換えていきたいです。
例えば現状こういう状態のブックAがあります
| C列 | N列 |
|---|---|
| 1-1 | 別ブック参照 |
| 1-3 | 別ブック参照 |
| 1-4 | 別ブック参照 |
これに、置換用リストのブックBが別で存在します。
| 番号 | パラメータ |
|---|---|
| 1-1 | AAA |
| 1-3 | BBB |
| 1-4 | CCC |
この2つを使ってブックAの「別ブック参照」の場所を、ブックBの値で置換したいです
求める結果はこのような形です。
| C列 | N列 |
|---|---|
| 1-1 | AAA |
| 1-3 | BBB |
| 1-4 | CCC |
ブックAの1-1等の値と、ブックBの番号1-1等の値は紐づいています。
完全に素人なので知識が全くなく、サンプルコードのようなものすら書くことが難しく困っております。
申し訳ありませんがお力添えを頂きたいです。
よろしくお願いいたします。
回答2件
0
ベストアンサー
少し強引なコードですが、このようなエッセンスが必要です。
十分に吟味できていませんがサンプルですのでよろしくお願いいたします。
動作確認はしていますが・・・。
Book名:Master
シート名：Master.xlsx
A列 B列
コード 名まえ
1-1 CCC
1-2 BBB
1-3 AAAA
Book名:Main.xlsm
(※マクロ付きbook)
シート名：Main
A列 B列
コード 名まえ
1-1 置換される
1-2 置換される
1-3 置換される
VBAコード（※Main.xlsmに記述して呼び出す）
Sub test()
Dim masterbook As Workbook
Dim Filepath As String
Filepath = ThisWorkbook.Path & "" & "master.xlsx"
If Dir(Filepath) = "" Then
MsgBox "指定したファイルは存在していません"
Exit Sub
End If
Set masterbook = Workbooks.Open(Filepath)
'マスタのデータ数をカウント
master_cnt = masterbook.Sheets("Master").Range("A1").CurrentRegion.Rows.Count
'メインのデータ数をカウント
main_cnt = ThisWorkbook.Sheets("main").Range("A1").CurrentRegion.Rows.Count
For i = 2 To main_cnt
'今回は、シンプルにワークシート関数であるmatch関数を使う（みつかった番号のとなりの値を取得）
検索値 = masterbook.Sheets("Master").Range("A" & i).Value 検索範囲 = masterbook.Sheets("Master").Range("A2:A" & master_cnt) セル番号 = WorksheetFunction.Match(検索値, 検索範囲, 0) ThisWorkbook.Sheets("main").Range("B" & セル番号 + 1).Value = masterbook.Sheets("Master").Range("B" & i).Value
Next
masterbook.Close
Set masterbook = Nothing
End Sub
投稿2020/04/24 07:22
退会済みユーザー
総合スコア0
変数の宣言も全部していませんのでよろしくお願いいたします。
言い忘れましたが、同日フォルダにそれぞれのファイルがあるという
前提です。
はじめの表記がエクセル名、BOOｋ名が逆でした・・。
0
本を買ってきて勉強して自分で作成するか、誰かにお金を払って教えてもらうか、作ってもらったらいかがでしょうか?
マクロや数式の知識があると便利なことがたくさんありますが、只でやってもらっても、今後の為になりませんよ。知識は買うものです。
投稿2020/04/24 03:47
総合スコア1216
あなたの回答
tips
プレビュー
