在工作中,难免会遇到各种坑爹的队友,给你乱七八糟的表格。
我现在需要将这种奇葩的各种格式的标题拎出来,看看到底都是谁的表格,如果都是同一个人的,那就对这个人的表格进行专项处理,因为其他人的表格还算格式整齐
财务部已经在推行格式统一化,方便你我他。。。
.
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