返回列表 上一主題 發帖

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

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

A欄 每一筆資料(資料筆數不一定)串接OR
在B1顯示
先謝謝 前輩了 在這真得學習到很多東西
串.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
複製代碼

TOP

本帖最後由 n7822123 於 2020-4-7 12:00 編輯

回復 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
複製代碼
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

        靜思自在 : 發脾氣是短暫的發瘋。
返回列表 上一主題