標題: [發問] 文字串接 麻煩前輩了 [打印本頁]

---

作者: eric7765    時間: 2020-4-7 04:49     標題: 文字串接 麻煩前輩了

A欄 每一筆資料(資料筆數不一定)串接OR
在B1顯示
先謝謝 前輩了 在這真得學習到很多東西
[attach]31897[/attach]

---

作者: ikboy    時間: 2020-4-7 09:50

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

複製代碼

---

作者: n7822123    時間: 2020-4-7 11:58

本帖最後由 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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)