合并多sheet 带sheet名

槛外之人

于 2016-06-15 14:28:59 发布

阅读量1.6k

点赞数 1

分类专栏： exce vba

本文链接：https://blog.csdn.net/lzhp84/article/details/51682052

版权

vba 同时被 2 个专栏收录

2 篇文章 0 订阅

订阅专栏

exce

1 篇文章 0 订阅

订阅专栏

Sub test()
    ActiveSheet.UsedRange.ClearContents
    Dim countalla, countthis As Integer
    countallb = 0
    countthis = 0
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> ActiveSheet.Name Then
           countthis = Sheets(i).UsedRange.Rows.Count
           Sheets(i).UsedRange.Copy [a65536].End(xlUp).Offset(1, 1)
           countallb = countallb + countthis
           ActiveSheet.Range("a" & countallb, Range("a" & countallb).End(xlUp).Offset(1, 0)).Value = Sheets(i).Name
        End If
    Next i
End Sub