Excel VBA variant 数据传输问题

程序如下：
Public i As Integer
Public j As Integer
Sub TestSignal()
Dim iRowOfNum As Integer
iRowOfNum = 9886
Dim iColuOfNum As Integer
iColuOfNum = 3
Dim daData() As Variant
ReDim daData(1 To iRowOfNum, 1 To iColuOfNum)
For i = 1 To iRowOfNum
daData(i, 1) = Worksheets("TD Sequential").Cells(i + 12, 1)
daData(i, 2) = Worksheets("TD Sequential").Cells(i + 12, 5)
daData(i, 3) = Worksheets("TD Sequential").Cells(i + 12, 11)
Next i
Dim sAsk As String
Dim sBid As String
sAsk = "Ask"
sBid = "Bid"
Dim daResult() As Variant
ReDim daResult(1 To iRowOfNum, 1 To iColuOfNum)
Dim iRowOfResult As Integer
'Call TestResult(iRowOfNum, iColuOfNum, daData, sAsk, sBid, daResult, iRowOfResult)
For i = 1 To iRowOfResult
For j = 1 To iColuOfNum

vba excel excel vba EXCEL VBA excel VBA Excel VBA excel VBA小问题 excel vba 编程 excel vba 函数 如何学习excel vba 关于excel的VBA