VBA小程序--新增工作表_遍历现有所有工作表_用于核实首列数据_无视隐藏工作表

最新推荐文章于 2020-07-09 13:29:13 发布

STR_Liang

最新推荐文章于 2020-07-09 13:29:13 发布

阅读量321

点赞数

分类专栏： VBA

本文链接：https://blog.csdn.net/STR_Liang/article/details/105789247

版权

VBA 专栏收录该内容

62 篇文章 26 订阅

订阅专栏

Sub 新增工作表_遍历现有所有工作表_用于核实首列数据_无视隐藏工作表()
    Dim i As Integer
    '新增工作表，并移动到第一个位置，用于写入核实首列数据
    Worksheets.Add.name = "核实首列"
    Worksheets("核实首列").Move before:=Sheets(1)
    For i = 2 To Worksheets.Count
        Worksheets(i).Activate
        Columns(1).Select
        Selection.Copy Worksheets(1).Cells(1, i)
    Next
    Worksheets(1).Activate
    '插入首行，用于写入工作表名字
    Worksheets(1).Rows(1).Insert shift:=xlDown
    For i = 2 To Worksheets.Count
        Cells(1, i).Value = Worksheets(i).name
    Next
    Cells(1, 1).Select
End Sub