求助

peng风中劲草

销售计划工作薄里有七张工作表，现在要把销售计划表里的内容自动添加到6月客户计划表里去。先在此谢谢路过的大侠帮忙。
华为网盘附件：
【华为网盘】 AA.zip

DAHAI31415

论坛高手很多，上传附件与人方便与己方便。

peng风中劲草

忘记传了，谢谢

peng风中劲草

有木有用公式解决的呀，在线等

peng风中劲草

怎么没人呀用公式解决呀，{:soso_e135:}

shuyee

用公式解决太复杂.而且你这个表,似乎不需汇总功能,只是拷贝数据.
Sub test()
Dim souR() As Range, i%, j%, k%
j = ThisWorkbook.Sheets.Count
ReDim souR(1 To j)
For i = 1 To j
    j = Sheets(i).Range("E65536").End(xlUp).Row
    If j > 4 Then
        k = k + 1
        Set souR(k) = Sheets(i).Range("E5:I" & j)
    End If
Next
Sheets.Add
j = 4
With ActiveSheet
For i = 1 To k
    k = souR(i).Rows.Count
    Range("C" & j).Resize(k, 5) = souR(i).Value
    j = j + k + 1
Next
End With
End Sub

peng风中劲草

shuyee 发表于 2013-5-17 09:14
用公式解决太复杂.而且你这个表,似乎不需汇总功能,只是拷贝数据.
Sub test()
Dim souR() As Range, i%, j ...

用不来VB，按ALT+F11复制进去没得反应样

shuyee

我复制进去有反应啊.
这下你用我的附件,按alt+F8试试

peng风中劲草

shuyee 发表于 2013-5-18 07:56
我复制进去有反应啊.
这下你用我的附件,按alt+F8试试

得行了，谢谢版主

peng风中劲草

http://club.excelhome.net/forum. ... zF8MTAxODAxOQ%3D%3D销售计划工作薄里有七张工作表，现在要把销售计划表里的内容自动添加到6月客户计划表里去。先在此谢谢路过的大侠帮