台灣最大程式設計社群網站
線上人數
1296
 
會員總數:243634
討論主題:188245
歡迎您免費加入會員
討論區列表 >> VB6 >> VBA 串字串, 字串內的值不重覆
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
VBA 串字串, 字串內的值不重覆
價值 : 100 QP  點閱數:195 回應數:1

樓主

sc25
門外漢
0 1
6 1
發送站內信

請問要將特定儲存格範圍內的值串起來, 忽略空格外, 值還不能重覆, 要在條件內加入什麼?

原VBA:

Function Concatenatecells(ConcatArea As Range) As String
For Each n In ConcatArea: nn = IIf(n = "", nn & "", nn & n & ", "): Next
Concatenatecells = Left(nn, Len(nn) - 2)
End Function

資料
A
1 藍
2 紅
3 黃
4 紅
5 白
6 黑
7 紅
8 (空格)
9 (空格)
10 (空格)

字串結果: 藍, 紅, 黃, 白, 黑

搜尋相關Tags的文章: [ 串字串 ] , [ 值不重覆 ] ,
本篇文章發表於2018-07-04 11:44
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
作者回應

sc25
檢舉此回應
已找到方法, 提供給有需要的人

Function Concatenatecells(ConcatArea As Range) As String
'updateby Extendoffice 20151103
For Each n In ConcatArea: nn = IIf(n = "" Or InStr(1, nn, n & ", ") > 0, nn & "", nn & n & ", "): Next
Concatenatecells = Left(nn, Len(nn) - 2)
End Function
本篇文章回覆於2018-07-04 14:34
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.