|
本帖最后由 ddyy004 于 2017-1-3 12:25 编辑
- Sub 汇总()
- Dim shtO As Worksheet
- Dim shtD As Worksheet
- Dim HZ&, GZB&, ShtCount
- Set shtD = Sheets("汇总")
- ShtCount = Worksheets.Count
- For i = 2 To ShtCount
- Set shtO = Sheets(i)
- GZB = shtO.Range("v65536").End(xlUp).Row - 2
- HZ = shtD.Range("B65536").End(xlUp).Row + 2
- shtO.Range("U8:V" & GZB).Copy shtD.Range("B" & HZ)
- Next i
- End Sub
复制代码
加了一句话If Sheets(i).Name <> "汇总" Then
- Sub 汇总()
- Dim shtO As Worksheet
- Dim shtD As Worksheet
- Dim HZ&, GZB&, ShtCount
- Set shtD = Sheets("汇总")
- ShtCount = Worksheets.Count
- For i = 2 To ShtCount
- If Sheets(i).Name <> "汇总" Then Set shtO = Sheets(i)
- GZB = shtO.Range("v65536").End(xlUp).Row - 2
- HZ = shtD.Range("B65536").End(xlUp).Row + 2
- shtO.Range("U8:V" & GZB).Copy shtD.Range("B" & HZ)
- Next i
- End Sub
复制代码
|
|