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

[µo°Ý] For...Next °ÝÃD

  1. Sub Macro1()
  2. Set c = [C2:C6]
  3.     For k = 2 To Sheet1.[A65535].End(xlUp).Row
  4.     i = Application.Match(Cells(k, 2), c, 0)
  5.     If Err.Number = 0 Then
  6. Cells(k, 1).Copy Cells(65536, i + 3).End(3)(2, 1)
  7. End If
  8.     Next
  9. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD