2つのエクセルで同じコード（数字）にある数値を入力したい

投稿者 : RPAよりマクロ     投稿日時 : 2025/06/26(Thu) 09:47:15     OS : 未指定     EXCEL : 未指定

---

2つのエクセルがあり、同じ勘定科目（001）にある数値を該当する勘定科目へ入力したい場合のコードを教えて下さい。

投稿者 : マグロはうまい     投稿日時 : 2025/06/26(Thu) 10:07:02

---

「RPAよりマクロ」というぐらいなので、マクロの理解は深いのですよね？
「2つのエクセルがあり、同じ勘定科目（001）にある数値を該当する勘定科目へ入力したい場合のコードを教えて下さい。」
その深い理解をもってして、この質問に答えられる超人・達人がこの世に存在すると思いましたか？
一度AIに尋ねてみることをお勧めします。

投稿者 : tek     投稿日時 : 2025/06/26(Thu) 13:38:32

---

■[質問] RPAよりマクロさん（2025-06-26 09:47:15）の記事
＞ 2つのエクセルがあり

2つのBookだとして
XLOOKUP関数が使えるのならば検索される側Workbooks(1)の表をテーブル1にしておき、
検索条件があるWorkbooks(2)の表をテーブル2としたとき

Sub test()
    Dim 検索book As String
    Dim 転記book As String
    Dim 見出し勘定科目 As String
    Dim 見出し数値 As String
    Dim 数式 As String
    
    見出し勘定科目 = "勘定科目"
    見出し数値 = "数値"
    
    検索book = Workbooks(1).Name
    転記book = Workbooks(2).Name
    数式 = "=XLOOKUP(" & _
        転記book & "!テーブル2[" & 見出し勘定科目 & "]," & _
        検索book & "!テーブル1[" & 見出し勘定科目 & "]," & _
        検索book & "!テーブル1[" & 見出し数値 & "],"""")"
    
    Application.Range(転記book & "!テーブル2[" & 見出し数値 & "]").Formula = 数式
End Sub