ªð¦^¦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°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD