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

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

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

AÄæ ¨C¤@µ§¸ê®Æ(¸ê®Æµ§¼Æ¤£¤@©w)¦ê±µOR
¦bB1Åã¥Ü
¥ýÁÂÁ «e½ú¤F ¦b³o¯u±o¾Ç²ß¨ì«Ü¦hªF¦è
¦ê.png
2020-4-7 04:48

  1. Sub zz()
  2. Dim a, s$
  3. a = Range([a1], [a1].End(4))
  4. For i = 1 To UBound(a)
  5.     s = s & "OR" & a(i, 1)
  6. Next
  7. [b1] = Mid(s, 3)
  8. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ 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 : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD