不知道VBA能不能解决这个问题

syt2008

xtpdcyga 发表于 2018-10-1 14:20
这个没必要用vba，数据透视表中用定义动态区域的方式就能解决

主要是我得到数据后我就删掉了，第二天我又要从公司系统里导出来查看，每天数据都不一样，但是我每天操作都是相同的，不知有什么方法解决没有

syt2008

cjc209 发表于 2018-10-1 14:24
你把数据转化成表给在做数据透视 数据增加后只需刷新一下透视表就ok了 可以实时更新 很简单 快捷根本不用谢 ...

主要是我得到数据后我就删掉了，第二天我又要从公司系统里导出来查看，每天数据都不一样，但是我每天操作都是相同的，不知有什么方法解决没有

liulang0808

syt2008 发表于 2018-10-1 13:42
你这个方法我看了一下，大概明白意思，也算是一种方法，不过用这个方法的话，能不能让重复的主料号只显示 ...

Sub 按钮1_Click()
    Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating = False
   
    arr = Sheets(1).UsedRange
    For j = 2 To UBound(arr)
        d(arr(j, 7)) = d(arr(j, 7)) + arr(j, 14)
    Next j
    With Sheets(2)
        .UsedRange.Clear
        .[a1] = "主料号"
        .[b1] = "欠发数量"
        .[a2].Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
        .[b2].Resize(d.Count) = WorksheetFunction.Transpose(d.items)
        .Cells(d.Count + 2, 1) = "合计"
        .Cells(d.Count + 2, 2) = WorksheetFunction.Sum(d.items)
    End With
    Application.ScreenUpdating = True
End Sub

cjc209

表格本身也有合并计算功能啊 简单操作几步就完成了

liulang0808

楼主的模拟数据没有重复项
这次针对重复项使用字典合并了

syt2008

liulang0808 发表于 2018-10-1 14:42
楼主的模拟数据没有重复项
这次针对重复项使用字典合并了

非常感谢，是我想要的，谢谢你

xtpdcyga

在【名称管理器】中新建名称area，输入公式  =OFFSET(Sheet1!$A$1,,,COUNTA(Sheet1!$A:$A),COUNTA(Sheet1!$1:$1))，然后在数据透视表【表/区域】中输入area，这样做，area区域会随着表内容增加而增加，数据透视表只要刷新一下就可以了

xtpdcyga

如附件，可以参考一下，简单的需求简单处理，没必要写VBA

LOA

你在做透视表的时候，只要先把H列到N列全部选中(不要选行)，再插入数据透视表，这样当数据行增加的时候，只要将鼠标移动到透视表内，右键选择“刷新”就行了，不用VBA。

LOA

希望对你有帮助