Sub FindAndChange()
    Dim i As Integer
    Dim j As Integer
    For i = 1 To 10
        For j = 1 To 20
            If Worksheets("Sheet1").Cells(i, 2).Value = Worksheets("Sheet2").Cells(j, 2).Value Then
            Worksheets("Sheet2").Cells(j, 1).Value = Worksheets("Sheet1").Cells(i, 1).Value
            End If
        Next j
    Next i
End Sub



음...
이젠 VBA 엑셀 스크립트까지 건드리게 되었다.
이 코드에 대한 상세한 설명은 댓글 달리면 추가할 예정임.

by snowall 2008.03.18 18:52