关于transpose的转置数组的问题。

sfiqkf

Sub FB()
Dim xh As Range, i As Range, n%, arr(), arr1
'j = InputBox("请输入班级")
    Set xh = Worksheets(1).Range("a2", Worksheets(1).[a2].End(xlDown))
        For Each i In xh
                If Val(Mid(i, 5, 2)) = j Then
                n = n + 1
                ReDim Preserve arr(1 To n)
                arr(n) = i.Resize(1, 2)
                End If
        Next
    arr1 = WorksheetFunction.Transpose(WorksheetFunction.Transpose(arr))
    [a2].Resize(n, 2) = arr1
End Sub
运行后，红色部分出错，
也改过代码为：arr1=application.transpose(application.transpose(arr))
运行后，arr1的值为空，但数组正确，arr值存在，
详情见附件，恳请各位大神指教。

abc123281

Sub FB()
Dim arr, brr(1 To 10000, 1 To 2)
With Worksheets("sheet1")
  .UsedRange.Offset(1, 4).ClearContents
  a = .Range("f1")
  r = .[a65536].End(xlUp).Row
  arr = .Range("a1:b" & r)
  For i = 2 To UBound(arr)
    If Mid(arr(i, 1), 5, 2) = a Then
      n = n + 1
      For j = 1 To UBound(arr, 2)
        brr(n, j) = arr(i, j)
      Next
    End If
  Next
  .Range("e2").Resize(n, 2) = brr
End With
End Sub

abc123281

123.rar (18.12 KB, 下载次数: 9)

2019-2-20 12:05 上传

点击文件名下载附件

taller

WorksheetFunction.Transpose(WorksheetFunction.Transpose(arr))

-- 楼主为啥这么用呢？转置两次和没有转置一样的

lsc900707

不需要转置的就不要转置！

wj2368

。。。。。。。。。

wj2368

Sub FB()
Dim xh As Range, i As Range, n%, arr(), arr1
j = InputBox("???????")
    Set xh = Worksheets(1).Range("a2", Worksheets(1).[a2].End(xlDown))
        For Each i In xh
                If Val(Mid(i, 5, 2)) = j Then
                n = n + 1
                ReDim Preserve arr(1 To n)
                arr(n) = i.Resize(1, 2)
                End If
        Next
    Sheet2.[a1].Resize(2, UBound(arr)) = WorksheetFunction.Transpose(arr)
End Sub

DevilW

代码运行没问题啊，[a2].Resize(n, 2) = arr1 这里输出覆盖了原数据

sfiqkf

各位，转置两次，是因为生成的arr是个1维数组，通过这个命令，转了两次后，可以变成二维的，成了二维的，才可以写入，否则写不进。

sfiqkf

taller 发表于 2019-2-20 13:23
WorksheetFunction.Transpose(WorksheetFunction.Transpose(arr))

-- 楼主为啥这么用呢？转置两次和没有 ...

您好，转置两次，是为了将生成的arr数组（一维）的，转换为二维的。这样才能写进单元格。