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

syt2008

我每天需要把这个表的数据，G列到N列透视分析，每天都是重复操作，但是每天行数不固定，列数是没变化的，我初学VBA，录制宏试了一下，每次执行都是录制时的行数，增加了数据也不会变化，看 了下代码，我想着只要把代码里的单元格地址用变量代替，但是不能执行，搞不懂，好麻烦，能帮帮我吗，大神们，这个要用VBA怎么写，好人一生平安！！！公司电脑办公软件是07的版本。

创建日期	实际日期	号码1	号码2	类型	编码	主料号	次料号	生产数	用量	需要量	已发套数	已发数量	欠发数量	备注
2018/10/1	2018/10/1	3432324	2ewewrd	等等	3fddfd	42ds23	324221	100	5	5	1	1	4
2018/10/2	2018/10/2	3432324	3ewewrd	等等	4fddfd	42ds24	324221	100	5	5	1	1	4
2018/10/3	2018/10/3	3432324	4ewewrd	等等	5fddfd	42ds25	324221	100	5	5	1	1	4
2018/10/4	2018/10/4	3432324	5ewewrd	等等	6fddfd	42ds26	324221	100	5	5	1	1	4
2018/10/5	2018/10/5	3432324	6ewewrd	等等	7fddfd	42ds27	324221	100	5	5	1	1	4
2018/10/6	2018/10/6	3432324	7ewewrd	等等	8fddfd	42ds28	324221	100	5	5	1	1	4
2018/10/7	2018/10/7	3432324	8ewewrd	等等	9fddfd	42ds29	324221	100	5	5	1	1	4
2018/10/8	2018/10/8	3432324	9ewewrd	等等	10fddfd	42ds30	324221	100	5	5	1	1	4
2018/10/9	2018/10/9	3432324	10ewewrd	等等	11fddfd	42ds31	324221	100	5	5	1	1	4
2018/10/10	2018/10/10	3432324	11ewewrd	等等	12fddfd	42ds32	324221	100	5	5	1	1	4
2018/10/11	2018/10/11	3432324	12ewewrd	等等	13fddfd	42ds33	324221	100	5	5	1	1	4
2018/10/12	2018/10/12	3432324	13ewewrd	等等	14fddfd	42ds34	324221	100	5	5	1	1	4
2018/10/13	2018/10/13	3432324	14ewewrd	等等	15fddfd	42ds35	324221	100	5	5	1	1	4

需要透视表内容如下， 行标签（主料号）和求和项（欠发数量）

行标签	求和项:欠发数量
42ds23	4
42ds24	4
42ds25	4
42ds26	4
42ds27	4
42ds28	4
42ds29	4
42ds30	4
42ds31	4
42ds32	4
42ds33	4
42ds34	4
42ds35	4
总计	52

不知道为什么

数组字典可以解决。只是你需要把你需求描述详细

liulang0808

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     Sheets(2).UsedRange.Clear
   
4.     Application.Intersect(ActiveSheet.UsedRange, Union(Columns(7), Columns(14))).Copy Sheets(2).[a1]
   
5.     r = Sheets(2).Cells(Rows.Count, 1).End(3).Row + 1
   
6.     Sheets(2).Cells(r, 1) = "合计"
   
7.     Sheets(2).Cells(r, 2) = WorksheetFunction.Sum(Sheets(2).[b2].Resize(r))
   
8.     Application.ScreenUpdating = True
   
9. End Sub
   

复制代码

liulang0808

附件内容供参考。。。。

syt2008

不知道为什么 发表于 2018-10-1 13:11
数组字典可以解决。只是你需要把你需求描述详细

我需要主料号和欠发数量，因为每天几百上千行，主料号会有重复的，所以要透视得到这个两列的值，但是每天数据行数不固定，我的意思是用VBA，代替手动，我每次都要从G1选到N1，再shift+ctrl+下方向键，再alt+d+p
,行标签（主料号）和求和项（欠发数量），就得出我要的数据了！

不知道为什么

syt2008 发表于 2018-10-1 13:37
我需要主料号和欠发数量，因为每天几百上千行，主料号会有重复的，所以要透视得到这个两列的值，但是每天 ...

那很简单，字典处理下就可以了

syt2008

liulang0808 发表于 2018-10-1 13:13
附件内容供参考。。。。

你这个方法我看了一下，大概明白意思，也算是一种方法，不过用这个方法的话，能不能让重复的主料号只显示一个，让重复的主料号对应欠发数量也显示一个，

xtpdcyga

这个没必要用vba，数据透视表中用定义动态区域的方式就能解决

cjc209

你把数据转化成表给在做数据透视 数据增加后只需刷新一下透视表就ok了 可以实时更新 很简单 快捷根本不用谢代码

cjc209

可以动态刷新 供参考