返回列表 上一主題 發帖

[發問] 文字串接 麻煩前輩了

  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
複製代碼

TOP

        靜思自在 : 要批評別人時,先想想自己是否完美無缺。
返回列表 上一主題