VBA 현금흐름 정렬 by ChatGPT

이런느낌

Sub a현금흐름정렬a()
    Dim lastRowC As Long
    Dim lastRowD As Long
    Dim cellC As Range
    Dim cellD As Range
    Dim ws As Worksheet
    
    ' 현재 워크시트 설정
    Set ws = ThisWorkbook.Sheets("tmp현금") ' 시트 이름에 맞게 변경
    
    ' C열과 D열의 마지막 행 찾기
    lastRowC = ws.Cells(ws.Rows.Count, 3).End(xlUp).row
    lastRowD = ws.Cells(ws.Rows.Count, 4).End(xlUp).row
    
    ' C열을 순회하면서 D열과 비교
    For Each cellC In ws.Range("C2:C" & lastRowC)
        For Each cellD In ws.Range("D2:D" & lastRowD)
            If cellC.Value = cellD.Value And cellC.Value <> "" Then
                ' 값이 같으면 F열에 D열의 값, G열에 E열의 값을 복사
                cellC.Offset(0, 3).Value = cellD.Value      ' F열에 D열 값 복사
                cellC.Offset(0, 4).Value = cellD.Offset(0, 1).Value  ' G열에 E열 값 복사
                Exit For ' 값을 찾으면 다음 C셀로 이동
            End If
        Next cellD
    Next cellC
    
    MsgBox "F열과 G열에 데이터 정렬이 완료되었습니다!", vbInformation
End Sub