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

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

  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

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD