大家好,乐天来为大家解答以下的问题，关于Excel自动从另一个表中提取数据这个很多人还不知道,现在让我们一起来看看吧！
1、excel中实现数据自动汇总到汇总表的常用办法是vba汇总，高效快速。
2、操作方法如下：打开excel，按住alt+F11打开VBA编辑器：新建一个模块，贴入以下代码：Sub 汇总()Dim d As ObjectDim Arr As VariantArr =Worksheets("数据源").Range("A2:B" & Worksheets("数据源").Range("B"& Rows.Count).End(xlUp).Row)Dim i As LongSet d =CreateObject("Scripting.dictionary")For i = 1 ToUBound(Arr)d(Arr(i, 1)) =d(Arr(i, 1)) + Arr(i, 2)Next iRange("A1:B1") = Array("产品编码", "数量")Range("A2").Resize(d.Count) =Application.WorksheetFunction.Transpose(d.keys)Range("B2").Resize(d.Count) =Application.WorksheetFunction.Transpose(d.items)With Range("a1").CurrentRegion.Borders.LineStyle = xlContinuous.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterEnd WithEnd Sub3.指定执行的宏：4.效果如下：。
本文分享完毕，希望对大家有所帮助。
标签：
免责声明：本文由用户上传，如有侵权请联系删除！