ªð¦^¦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 : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD