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

[µo°Ý] ¤å¦r¦ê±µ ³Â·Ð«e½ú¤F

¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-4-7 12:00 ½s¿è

¦^´_ 1# eric7765
  1. Sub Test()
  2. Dim Arr
  3. Arr = Range([A1], [A1].End(4))
  4. [B1] = Join(Application.Transpose(Arr), "OR")
  5. End Sub
½Æ»s¥N½X
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD