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

最新推荐文章于 2024-11-20 10:57:11 发布

原创最新推荐文章于 2024-11-20 10:57:11 发布 · 377 阅读

1 ·

CC 4.0 BY-SA版权

VBA 专栏收录该内容

62 篇文章

订阅专栏

本文介绍了一段VBA代码，用于在Excel中新增工作表并核对所有现有工作表的首列数据。代码首先创建一个名为核实首列的新工作表，然后遍历所有现有工作表，将每张表的首列数据复制到新表的对应列下，同时在首行插入工作表名称，便于对比和核实数据。

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