财务用VBA之vlookup
2018-11-04 本文已影响0人
积极向丧的girl
Sub wlookup()
For i = 2 To [a1].End(xlDown).Row
If Not (Sheets(2).Cells(i, 1) = Empty) Then
Sheets(2).Cells(i, 2) = Sheets(1).Cells(Sheets(1).[am:am].Find(Sheets(2).Cells(i, 1)).Row, [au:au].Column)
End If
Next i
End Sub
