ExcelVBAで簿記的な勘定科目を転記したい

ありがとうございます-。実際、vlooukpで値を返して、削除して、やってます。そうなんですけど、どうしてもVBAでしたいんですよねー。勉強の為にー。

「明細シートの品名名称」をキーにし「mainシートの検索文字列」と一致させて「mainシートの勘定科目」を取得し「明細シートの勘定科目」に設定をしたいのですよね？

「明細シートの品名名称」が「支払手形」の場合、「mainシートの検索文字列」から「支払手形」を探す必要があります。
プログラム的には「mainシートの検索文字列」を「現金」から順に比較し「一致もしくは最終行まで」確認をする必要があります。

プログラムを確認する限り、「mainシートの検索文字列」を「現金」から順に比較し「一致もしくは最終行まで」を確認する処理がありません。
※明細シートの for と mainシートの文字列を探す for の二つのループが必要になるかと思います

はい。二重ループですかねー。ありがとうございますー。初心者なので、具体的コードがないと、分かりません。officetanakaさんの、if文で、=TRUEの時、TRUEが返ると、youtubeで、載ってました。引き継き検索してみますー。

ありがとございます。このサイト知ってます。コードが長いのと、今のレベルでは理解できませんでした。教えて頂いてるのにすみません。一旦、これは保留して置きます。

自分が意図した通りのコードです。Functionもいるんですねー。初心者の自分にとっては、全然手に届かないレベルです。親切に回答して下さり、真に有難うございました。大変助かりました。Functionも今、ちょっとずつ勉強中です。

ありがとございますー。一度 、連想配列、かじったのですが、まだまだ、難しいですー。情報、有難いですー。

再回答の仕方がわからなかったので、コメントでコードを送ります。
見にくくてすみません。

Option Explicit

Sub 勘定科目転記()

Const startRow = 4
Const targetColumn = 5
Const accountColumn = 1
Const updateColumn = 5

Dim maxRow As Long
Dim i As Long
Dim dataSheet As Worksheet: Set dataSheet = ThisWorkbook.Sheets("明細")
Dim masterSheet As Worksheet: Set masterSheet = ThisWorkbook.Sheets("main")

maxRow = dataSheet.Cells(Rows.Count, 1).End(xlUp).Row

Dim accountDic As Object
Set accountDic = CreateObject("Scripting.Dictionary")
Call getMaster(accountDic, masterSheet, 4, 2)

For i = 4 To maxRow
dataSheet.Cells(i, targetColumn) = accountDic.Item(dataSheet.Cells(i, accountColumn).Value)
Next i

End Sub

Function getMaster(dictionary As Object, targetSheet As Worksheet, startRow As Long, keyColumn As Long)

Dim i: i = startRow

Do
If targetSheet.Cells(i, keyColumn) = "" Then Exit Do
dictionary.Add targetSheet.Cells(i, keyColumn).Value, targetSheet.Cells(i, keyColumn + 1).Value
i = i + 1
Loop

End Function

限定公開記事にいれておきました。
https://qiita.com/yamagoo1205/private/9dbbf9f0eac38909be91

親切にありがとうございますー。