这种复制会不会覆盖数据呢?能不能把特定的几列一同取出来呢?
追答当然不会覆盖了,在汇总表中是往右一列一列地扩展。
你要哪几列最好说清楚吧。我给你一次改好。
每张sheet表代表一个品牌,每个品牌都有自己的毛利统计,毛利的列每个表都是同一列的,总共有100多个表格,我要把每个sheet表里的毛利汇总到一个新的汇总表里,也是按品牌分类统计的,
追答那你的意思不就是每张表只需要取出仅仅一个毛利的列么。
不需要其他列的话我刚才的代码就ok了呀。
这是朋友一开始说的要求,然后给我打电话说还有利润…就这两列
追答两列以上的话代码需要改一下,我发在下面,请查收
Sub QuLieHuiZong()
Dim i As Integer
Dim j As Integer
Dim bk As Workbook
Dim sht As Worksheet
Set bk = ActiveWorkbook
Set sht = bk.Worksheets.Add '新建一个工作表存放汇总的数据
sht.Name = "汇总"
j = 1 '表示汇总表从第一列开始粘贴数据
For i = 2 To bk.Worksheets.Count
'注意!下一行代码请根据实际情况修改列标
bk.Worksheets(i).Range("A:A,B:B").Copy '拷贝每个表中特定的两列,我暂时设的A列和B列,还要多加任意列都可以,放到B:B后面用,号隔开,注意下面"j = j +2"这行代码也要多加就行
sht.Columns(j).Select
sht.Paste '粘贴到汇总表中
j = j + 2 '一次粘贴了两列,所以下一个粘贴位置是+2的列
Next i
sht.Cells(1, 1).Select '汇总表的光标归位
End Sub
实际测试过运行正常,有问题可以再联系。
我只要里面的利润,商家,毛利等几列…然后在新表里商家是一列,利润是一列,毛利是一列只要这三列
追答全部粘贴到汇总表中,删除不要的列/如果想自动完全,用VBA完成
有…sheet1到sheet114不过都重命名了呀
追答Sub www()
Dim i As Integer
i = 0
Do While i < 115
i = i + 1
Range("a" & i).Value = Worksheets(i).Range("a1").Value
Loop
End Sub
试试看
这是把所有a列都汇总到新表了吗?
追答是的~~
把表1到114的a1
都汇总到新表的A列
不能一次把特定几个列都汇总到新表里蛮?