[已解决]求大神帮忙改一个宏代码！！！

yyyydddd8888

孔老弟 发表于 2013-9-12 16:55
谢谢你，好老师！

你原来的代码不能获取表头以下的数据，是因为“ .range("n65536").end(3)  "  这里出错了，因为在N列没有数据，所以” range("n65536").end(3)  “得到的是N1的行数，也就是1，那么你复制的就是A1:N1这个区域的数据，而这个区域只有表头的数据。
为了能获取所有数据，你得找到数据区域最后的一行的行数，所以你得用B列或者E列来获取行号，它才是数据区域最下端的行号。
  你测试过了吗？能用吗？有什么不懂的可以再问我，希望能给我个最佳答案啊！哈哈！

sliang28

上清宫主 发表于 2013-9-12 16:14
Sub 汇总()
    Dim sh As Worksheet
    [a1].CurrentRegion.Offset(2).Clear 'Contents

不注释代码就不是好老师{:3912:}

孔老弟

yyyydddd8888 发表于 2013-9-12 21:19
你原来的代码不能获取表头以下的数据，是因为“ .range("n65536").end(3)  "  这里出错了，因为在N列没有 ...

你的代码已经通过测试了，感谢好老师，我给你加分了！！

孔老弟

sliang28 发表于 2013-9-12 22:28
不注释代码就不是好老师

你也是好老师！