2021年1月9日 星期六

VBA:一維陣列資料堆壘

經常有整理資料需要,自己寫給自己查詢用。
2個引數:陣列、結合符號
code:
Function ARRAY_Pile(INPUT_ARRAY, SYMBOL)
If IsArray(INPUT_ARRAY) = True Then
Dim ARRAY_STOCK_TOTAL As String
For i = LBound(INPUT_ARRAY) To UBound(INPUT_ARRAY) Step 1
If i = LBound(INPUT_ARRAY) Then
ARRAY_STOCK_TOTAL = INPUT_ARRAY(i)
Else
If INPUT_ARRAY(i) <> "" Then
ARRAY_STOCK_TOTAL = ARRAY_STOCK_TOTAL & SYMBOL & INPUT_ARRAY(i)
End If
End If
Next i
ARRAY_Pile = ARRAY_STOCK_TOTAL
Else
ARRAY_Pile = INPUT_ARRAY '2020.12.24 ARRAY_STOCK = 0
End If
End Function
view raw ARRAY_Pile.vba hosted with ❤ by GitHub



沒有留言:

張貼留言

指數變化(2025.03.28)

 指數變化(2025.03.28) 上周焦點: 美國消費者信心指數 3/25 92.9 美國耐久財訂單月增率 3/26 1.4 PCE 月增 0.4 年增 2.8 (不多阿,最高還有5.5ㄝ)   本周愛看: 美國非農業就業人數變化 美國ISM製造業採購經理人指數 美國芝加哥FE...