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

EXL杨磊

各位老师  版主 你们好。

       我在使用数组Application.Transpose转置时，遭遇65536的封锁。数据大概在30W行左右。目标是想在B列输出A列号码在大红框里出现的次数，想请问下，能不能说把大红框的数据写入字典后，用字典去匹配A列对应的组合后，查询到字典里面对应的items 并把它输出在B列相应的位置上？这一句该怎么写？望有解惑，不胜感激！

陆离Lowry

我一般都直接使用二维数组，不转置

mmwwdd

先把A列数据读入字典,然后再用数据装入,
for i=1 to ubound(brr)
   for j=1 to ubound(brr,2)
      d(brr(i,j))=d(brr(i,j))+1
   next
next
     for i=2 to cells(rows.count,1).end(3).row
      if    d(cells(i,1).value))>1 then
           cells(i,2)=d(cells(i,1).value)
     end if
    next
大致是这个意思

准提部林

1) 右方納入Arr, 字典計數
2) A列裝入Arr...它是源數據, 也可以是新容器,
   將次數填入Arr, 再將Arr寫入B列

一個數組+一個字典...完事

准提部林

Application.Transpose
這方法...省事...但省不了麻煩事,
能不用就不用~~大不了..多繞一圈納入新數組再輸出

EXL杨磊

准提部林 发表于 2023-2-20 10:53
1) 右方納入Arr, 字典計數
2) A列裝入Arr...它是源數據, 也可以是新容器,
   將次數填入Arr, 再將Arr寫入 ...

现在就是纠结如何将次数填入arr

EXL杨磊

准提部林 发表于 2023-2-20 10:56
Application.Transpose
這方法...省事...但省不了麻煩事,
能不用就不用~~大不了..多繞一圈納入新數組再輸 ...

你说  这都20年了  这个函数还不更新，当初开发这个函数的工程师 是辞职了 还是退休了

准提部林

摸著寫//
Set xD = CreateObject("Scripting.Dictionary")
arr=Intersect(activesheet.[i:t], activesheet.usedrange)
for each a in arr
   if a<>"" then xd(a & "")=xd(a & "")+1
next
arr=range([a1], cells(rows.count,1).end(3))
arr(1,1)="次数"
for i=2 to ubound(arr)
   arr(i,1)=xd(arr(i,1) & "")
next i

[b1].resize(ubound(arr))=arr

EXL杨磊

陆离Lowry 发表于 2023-2-20 10:38
我一般都直接使用二维数组，不转置

那 不一般的时候 怎么办

cjc209

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

vba现在没有更新了 要被淘汰了