使用vba拆分单元格中的值

Question

交易表

  ID1  Name Amount ID2 
  123   A     1   0,124,0 
  456   B     2   124,0,0  
  789   C     3   456,0,0

交易表（预期结果）

 ID1  Name Amount ID2   Summary
 123   A     1   0;124;0  124
 456   B     2   124;0;0  456
 789   C     3   456;0;0

我已尝试将文字添加到列中，但我不确定如何忽略所有0并且只显示值，如果列D中的＆gt; 0。

代码：

 Sub SplitString()

 Dim TempArray As String
  Dim i as Integer
 Dim j As Integer


 For i = 1 To 10000

 TempArray = Split(Worksheets("transactions").Cells(i,4).Value,";")

  For j = 0 to UBound(TempArray)

    If CDbl(TempArray(j)) <> 0 Then

          [Output value]

    End if

  Next j

 Next I

End Sub

错误：UBound上的编译器错误预期数组。