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