ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¸ê®Æ®æ¦¡¤£²Å

With Sheets(1)
¡@¡@For i = 2 To .UsedRange.Rows.Count
¡@¡@¡@¡@.Cells(i, 2) = Application.VLookup(.Cells(i, 1), Sheets(2).UsedRange.Columns("A:D"), 4, 0)
¡@¡@¡@¡@.Cells(i, 3) = Application.VLookup(.Cells(i, 1), Sheets(3).UsedRange.Columns("A:D"), 4, 0)
¡@¡@Next i
End With

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD