[已解决]EXCEL汇总

1005423860

您好，这个是您上次帮忙写的多个excel文件1-7工作表都汇总的代码，但是我最近发现，如果某一个文件里前两列或者前几列没有数据的话，汇总将会出现错误，如现在这个情况，请问能否使所有绿色列的数据都汇总在一起 橙色列数据都汇总在一起，中间没有空行，如1表效果

最佳答案

月排行榜 / 总排行榜

zjdh

2016-3-2 08:31

新文件夹.rar (60.48 KB, 下载次数: 23)

2016-3-2 08:31 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

新文件夹.rar (60.48 KB, 下载次数: 23)

2016-3-2 08:31 上传

点击文件名下载附件

1005423860

zjdh 发表于 2016-3-2 08:31

  你好，我还想问一下 Set NY = Rows(1).Find(what:="年份", lookat:=xlWhole, LookIn:=xlValues) 如果只想从分表的sheet2-sheet7里查找应该怎么改啊？

zjdh

1005423860 发表于 2016-3-2 13:41
你好，我还想问一下 Set NY = Rows(1).Find(what:="年份", lookat:=xlWhole, LookIn:=xlValues) 如果只 ...

若sheet2-sheet7格式一样，则：
Sub HZ()
    ......
    Set NY = Sheets(2).Rows(1).Find(what:="年月", lookat:=xlWhole, LookIn:=xlValues)
    C = 1: N = 1
    Do
        C = C & "," & NY.Column
        Set NY = Sheets(2).Rows(1).FindNext(NY)
    Loop Until NY Is Nothing Or NY.Column = N
    P = Split(C, ",")
    ......
End Sub