VBA小程序--数据清洗_寻找关键词_并将前面的工作表名字一起复制到新表_用于检查都是谁的表

Excel数据清洗与格式统一

最新推荐文章于 2025-05-10 12:00:00 发布

原创最新推荐文章于 2025-05-10 12:00:00 发布 · 554 阅读

2 ·

CC 4.0 BY-SA版权

VBA 专栏收录该内容

62 篇文章

订阅专栏

在工作中遇到格式不一的表格，使用VBA脚本自动查找特定关键词，并将含有该关键词的工作表名称复制到新表中，便于统一处理和格式标准化。

在工作中，难免会遇到各种坑爹的队友，给你乱七八糟的表格。

我现在需要将这种奇葩的各种格式的标题拎出来，看看到底都是谁的表格，如果都是同一个人的，那就对这个人的表格进行专项处理，因为其他人的表格还算格式整齐

财务部已经在推行格式统一化，方便你我他。。。

Sub 数据清洗_寻找关键词_并将前面的工作表名字一起复制到新表_用于检查都是谁的表()
    Dim r_num As Long, i As Long
    i = 1
    
    With Worksheets("合并表")
        .Activate
        .Cells.Find(What:="店铺").Select
        r_num = Selection.Row
        .Range(Cells(Selection.Row, 1), Cells(Selection.Row, 2)).Copy Worksheets("123").Cells(i, 1)
        .Cells.FindNext(after:=ActiveCell).Select
        'Do While循环判断，当工作表都寻找完毕，就是找下一个跑到第一个的时候，自动停止
        Do While Selection.Row <> r_num
            .Cells.FindNext(after:=ActiveCell).Select
            i = i + 1
            .Range(Cells(Selection.Row, 1), Cells(Selection.Row, 2)).Copy Worksheets("123").Cells(i, 1)
        Loop
    End With
    
End Sub