Application.Transpose转置行数受限后的另辟蹊径

cjc209

EXL杨磊 发表于 2023-2-20 11:20
你说  这都20年了  这个函数还不更新，当初开发这个函数的工程师 是辞职了 还是退休了

要被Python js之类的替代了

cjc209

EXL杨磊 发表于 2023-2-20 11:20
你说  这都20年了  这个函数还不更新，当初开发这个函数的工程师 是辞职了 还是退休了

Python 中的pandas 处理数据要强大的多 更快 基本上抛弃了循环 进行的是矩阵处理

cjc209

EXL杨磊 发表于 2023-2-20 11:20
你说  这都20年了  这个函数还不更新，当初开发这个函数的工程师 是辞职了 还是退休了

pandas 转置就是一个 .T就完成了 简单明了

陆离Lowry

EXL杨磊 发表于 2023-2-20 11:20
你说  这都20年了  这个函数还不更新，当初开发这个函数的工程师 是辞职了 还是退休了

还是能规避的。主要操作excel还是VBA方便

ivccav

cjc209 发表于 2023-2-20 11:39
vba现在没有更新了 要被淘汰了

这个函数跟vba没任何关系，这是工作表函数

EXL杨磊

准提部林 发表于 2023-2-20 11:25
摸著寫//
Set xD = CreateObject("Scripting.Dictionary")
arr=Intersect(activesheet., activesheet.use ...

哦~~~~~  明白了  明白了 ！非常感谢！

EXL杨磊

mmwwdd 发表于 2023-2-20 10:42
先把A列数据读入字典,然后再用数据装入,
for i=1 to ubound(brr)
   for j=1 to ubound(brr,2)

嗯嗯嗯 是的，就是还差一段输出，我已经明白了，感谢！

C371301552

用数据透视表的多重选择合并计算区域试试

naolew

给一个罗刚君的自定义函数解决方案供参考！！！
Excel有一个工作表函数Transpose可以将数组转置方向，在工作中举足轻重，常用数组的朋友自然深在体会。
例如，要将上图中A1:B9的值转一个方向，写入到D1:L2中去，可用以下代码：
Sub 转置方向()
    Dim arr
    arr = Range("a1:b9").Value
    Range("D1").Resize(UBound(arr, 2), UBound(arr, 1)).Value = WorksheetFunction.Transpose(arr)
End Sub


然而该函数也有着3个缺陷，请听我为您一一道来。
其一，数组的行数或者列数大于65536时，Transpose函数无法转置成功。
其二，数组中某个元素的字符数量超过256时，Transpose函数无法转置成功。
其三，调用工作表函数Transpose转置数组的方向，在操作效率上偏低。
为此，我为您准备了一个自定义函数，可以同时解决以上三个问题，代码如下：
Function Zhuan(arr)
    Dim Myarr()
    If VBA.IsArray(arr) Then
        ReDim Myarr(LBound(arr, 2) To UBound(arr, 2), LBound(arr, 1) To UBound(arr, 1))
        For i = LBound(arr, 1) To UBound(arr, 1)
            For j = LBound(arr, 2) To UBound(arr, 2)
                Myarr(j, i) = arr(i, j)
            Next
        Next
        Zhuan = Myarr
    End If
End Function

perfect131

cjc209 发表于 2023-2-20 11:39
vba现在没有更新了 要被淘汰了

excel 被淘汰时 有可能，不然不可能被淘汰