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