[已解决]关于一个合并工作表代码的问题

c5h8o4nna

做了个合并excel下工作表代码，不知道为什么会执行了两次，求解答{:021:}
只有三个工作表，每个工作表只有10条数据，合并之后应该只会有30条数据，但是合并之后变成60条数据，重复了一次，不知道为什么{:021:}
Sub rrr()
    Dim sh As Worksheet
    For Each sh In Sheets
        sh.UsedRange.Copy Worksheets("aaa").Cells(65535, 1).End(3).Offset(1, 0)
    Next
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2016-12-18 14:50

Sub 合并()
    Dim i
    Worksheets("aaa").Cells.Clear
    For i = 1 To Worksheets.Count - 1
       Worksheets(i).UsedRange.Copy Worksheets("aaa").Range("A65535").End(3).Offset(1, 0)
    Next
End Sub

跳转到最佳答案楼层

爱疯

Sub 合并()
    Dim i
    Worksheets("aaa").Cells.Clear
    For i = 1 To Worksheets.Count - 1
       Worksheets(i).UsedRange.Copy Worksheets("aaa").Range("A65535").End(3).Offset(1, 0)
    Next
End Sub

c5h8o4nna

爱疯 发表于 2016-12-18 14:50
Sub 合并()
    Dim i
    Worksheets("aaa").Cells.Clear

刚刚我也知道为什么了，因为它把aaa这个工作表也复制了，所以就是重复了一次
你这个worksheets.count-1就是不要把最后那个aaa遍历，
但是我把aaa放到最前面也可以，代码不用改{:011:}
但是我又突发奇想，如果我要把除了aaa之外的其它工作表遍历一次的话那要又怎么写呢？

爱疯

“但是我把aaa放到最前面也可以，代码不用改”
这样会出错的！



Sub 合并()
    Dim i%, str$   
    str = "aaa"
    Sheets(str).Select
    Cells.Clear   
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> str Then Sheets(i).UsedRange.Copy [A65535].End(xlUp).Offset(1, 0)
    Next
End Sub

c5h8o4nna

爱疯 发表于 2016-12-18 15:19
“但是我把aaa放到最前面也可以，代码不用改”
这样会出错的！

用了IF为什么可以不用endif呢？因为then那里没用分开写吗？

c5h8o4nna

爱疯 发表于 2016-12-18 15:19
“但是我把aaa放到最前面也可以，代码不用改”
这样会出错的！

这样我就不懂了，为什么Worksheets.Count - 1就可以呢？而Worksheets.Count 就不可以？

爱疯

c5h8o4nna 发表于 2016-12-18 15:32
用了IF为什么可以不用endif呢？因为then那里没用分开写吗？

if 条件 then
    执行语句
end if


也可以写成下面的形式




if 条件 then 执行语句

爱疯

c5h8o4nna 发表于 2016-12-18 15:36
这样我就不懂了，为什么Worksheets.Count - 1就可以呢？而Worksheets.Count 就不可以？

为什么Worksheets.Count 就不可以？
在本例中，Worksheets.Count = 4
for i=1 to Worksheets.Count，意味着要从1循环到4，
即每个表都执行指定操作：复制本表的使用区域，到aaa工作表。

真的是需要每个工作表都执行吗？显然，应该是除了"aaa"以外的工作表。
所以不该是4，应该是3，即Worksheets.Count-1

c5h8o4nna

爱疯 发表于 2016-12-18 16:25
为什么Worksheets.Count 就不可以？
在本例中，Worksheets.Count = 4
for i=1 to Worksheets.Count，意 ...

嗯，上面的我懂了if    then那里我也懂了
worksheets.count-1我也明白，但是为什么排除的是aaa还不会是其它工作表呢？
呃，这个问题是不是我太过于钻牛角尖呢？{:301:}

爱疯

比如，你是搬运工，你要去4家（sheet1,sheet2,sheet3,aaa）

第1天，你把sheet1家里的东西，搬到aaa家；
第2天，你把sheet2家里的东西，搬到aaa家；
第3天，你把sheet3家里的东西，搬到aaa家；

经过这3天，aaa家已有了那3家的东西
第4天，你还需要把aaa家的东西，搬到aaa家吗？