vba列表框数据自动刷新代码
Sub宏1()
[a23]="汇总："
Dim arr1
Set dic1=CreateObject("scripting.dictionary")
Set dic2=CreateObject("scripting.dictionary")resize函数vba
arr1=Range("a2:b8").Value
For a=LBound(arr1)To UBound(arr1)
dic1(arr1(a,1)&arr1(a,2))=arr1(a,1)
dic2(arr1(a,1)&arr1(a,2))=arr1(a,2)
Next
Range("a24").Resize(dic1.Count)=Application.Transpose(dic1.items)
Range("b24").Resize(dic1.Count)=Application.Transpose(dic2.items)
End Sub
每次更新工作表时，每次都要在汇总下面的内容清空掉再点击这代码才能更新，太麻烦了。
这工作表是放在Excel的子表格，在以上代码功能不变的基础上再添加个：一点击这子表格目录，自动刷新该数据。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。