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

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

---

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

投稿者 : 気分     投稿日時 : 2025/06/26(Thu) 10:30:02

---

001という数値はありません
文字列にするしかないです
表示形式でごまかす方法もあるけど
実際の数値と違うからどうだろう？

投稿者 : てらてら     投稿日時 : 2025/06/27(Fri) 06:01:11

---

こんにちは。
行とか列とか不明ですが、基本的には、探したい項目を保持して見つけた項目の同じ行に値をハメていく感じでしょうか？
参考にしてみてください。

Sub macro()
    Dim sh1 As Worksheet, sh2 As Worksheet
    
    Set sh1 = Workbooks(1).Worksheets("Sheet1")
    Set sh2 = Workbooks(2).Worksheets("Sheet1")
    
    Dim 勘定科目 As String
    Dim i As Long, j As Long
    
    For i = 1 To sh1.Cells(Rows.Count, "A").End(xlUp).Row
        勘定科目 = sh1.Cells(i, "A")
        For j = 1 To sh2.Cells(Rows.Count, "A").End(xlUp).Row
            If sh2.Cells(j, "A").Text = 勘定科目 Then
                sh2.Cells(j, "B") = sh1.Cells(i, "B")
            End If
        Next j
    Next i
    
End Sub