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

¦p¦ó¥Îvba«ö±ø¥ó¨ú¥NÀx¦s®æ¤º®e

  1. Sub ex()
  2. For Each a In [A3:I22]
  3. If a <> "" And IsError(Application.Match(a, [A1:I1], 0)) Then a.Value = "X"
  4. Next
  5. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD