麻辣家族討論版版 » Excel程式區 » 文字串接麻煩前輩了

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 87
點名: 0
作業系統: win7
軟體版本: 旗艦版
閱讀權限: 20
註冊時間: 2017-3-22
最後登錄: 2024-3-12

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2020-4-7 04:49 | 只看該作者

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

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

樓主熱帖

收藏

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

2^#

發表於 2020-4-7 09:50 | 只看該作者

Sub zz()
Dim a, s$
a = Range([a1], [a1].End(4))
For i = 1 To UBound(a)
s = s & "OR" & a(i, 1)
Next
[b1] = Mid(s, 3)
End Sub

複製代碼

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

3^#

發表於 2020-4-7 11:58 | 只看該作者

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

回復 1# eric7765

Sub Test()
Dim Arr
Arr = Range([A1], [A1].End(4))
[B1] = Join(Application.Transpose(Arr), "OR")
End Sub

複製代碼

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

靜思自在 : 慈悲沒有敵人，智慧不起煩惱。

返回列表下一主題上一主題