Excel单元格（1,1）.resize转置错误

Question

当我用

获取数据时

    ReDim fldArr(1 To rsData.RecordCount + 1, 1 To 2)
    i = 1
    Do Until rsData.EOF
       For Each FLD In rsData.Fields

                If FLD.Name = "F1" Then fldArr(i, 1) = FLD.Value: i = i + 1
                If FLD.Name = "F30" Then fldArr(i, 2) = FLD.Value


       Next FLD
       rsData.MoveNext
   Loop
            i = 1
            ReDim strArr(1 To 2, 1 To UBound(fldArr))
                For Element = LBound(fldArr) To UBound(fldArr)
                     If InStr(fldArr(Element, 1), ";") Then
                        strArray = Split(fldArr(Element, 1), ";")
                        For intCount = LBound(strArray) To UBound(strArray)
                            strArr(1, i) = strArray(intCount)
                            strArr(2, i) = fldArr(Element, 2)
                            i = i + 1

                            ReDim Preserve strArr(1 To 2, 1 To UBound(fldArr) + i)
                        Next intCount
                    Else
                        strArr(1, i) = fldArr(Element, 1)
                        strArr(2, i) = fldArr(Element, 2)
                        i = i + 1

                        ReDim Preserve strArr(1 To 2, 1 To UBound(fldArr) + i)
                    End If
                Next Element
            ReDim Preserve strArr(1 To 2, 1 To i)
            Worksheets(2).Resize(2, i).Value =strArr

粘贴数据

1 2 3 4 5
q w e r t

但我需要粘贴数据，如

1 q
2 w
3 e
4 r
5 t

如果我尝试使用

工作表（2）.Resize（i，2）.Value = Application.Transpose（strArr）

我收到错误“类型不匹配” 有什么问题？

i = 1011