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

¡i½Ð°Ý¡j¦p¦ó¤ñ¹ï­«½Æ¸ê®Æ¨Ã¥[¥H¼Ð¥Ü

«ç»ò¼ÐÃD»P¤º®e¬O¨â½X¨Æ¡Hªþ¥ó¤]¨S§A»¡ªº±¡§Î¡C

TOP

  1. For I = 2 To [h65536].End(3).Row
  2. If Application.CountIf([h:h], Cells(I, 8)) > 1 And [h:h].Find(Cells(I, 8), , , 1).Row = I Then
  3. Cells(I, 10) = "D"
  4. ElseIf [h:h].Find(Cells(I, 8), , , 1, , 2).Row = I Then
  5. Cells(I, 10) = "O"
  6. End If
  7. Next
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD