VBAで　売掛金消込の仕訳を自動で作成してみる

売掛金消込は、月次の業務で非常に面倒な作業です。まだまだ消込を手作業でやっている会社は多いです。
入出金明細では、入金時にどこから入金されたかが分かるようにカタカナで会社名が入っています。そこを利用して、VBAで売掛金と補助科目を設定するコードを以下に作成しました。

これを応用して日々の面倒な売掛金消込を簡単にできるようにやっている見ると日々の苦痛な仕事が楽になりますよ。

Sub ProcessLastRow()
    Dim LastRow As Long
    Dim LastColumn As Long
    Dim ws As Worksheet
    Dim i As Long
    
    ' 作業するシートを指定
    Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を適切に変更
    
    ' 最終行を取得
    LastRow = ws.Cells(ws.Rows.Count, "K").End(xlUp).Row
    
    ' 最終列を取得
    LastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' k列の各セルをチェック
    For i = 1 To LastRow
        If InStr(1, ws.Cells(i, "K").Value, "エクスノア") > 0 Then
            ws.Cells(i, LastColumn - 5).Value = "売掛金"
            ws.Cells(i, LastColumn - 4).Value = "EXNOA"
        ElseIf InStr(1, ws.Cells(i, "K").Value, "アマゾン") > 0 Then
            ws.Cells(i, LastColumn - 5).Value = "売掛金"
            ws.Cells(i, LastColumn - 4).Value = "Amazon"
        ElseIf InStr(1, ws.Cells(i, "K").Value, "APPLE") > 0 Then
            ws.Cells(i, LastColumn - 5).Value = "売掛金"
            ws.Cells(i, LastColumn - 4).Value = "Apple"
        ElseIf InStr(1, ws.Cells(i, "K").Value, "グーグル") > 0 Then
            ws.Cells(i, LastColumn - 5).Value = "売掛金"
            ws.Cells(i, LastColumn - 4).Value = "Google"
        End If
    Next i
End Sub