京东所需表格数据清洗程式_删除图片_取消合并_搜索删行

最新推荐文章于 2021-01-14 09:26:44 发布

原创最新推荐文章于 2021-01-14 09:26:44 发布 · 324 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vba #excel #微软 #microsoft #openoffice

VBA 专栏收录该内容

62 篇文章

订阅专栏

本文提供了一段VBA代码，用于自动化处理Excel表格中的数据清洗任务，包括删除图片、取消单元格合并、查找并删除特定列，适用于京东利润所需的刷单表格数据处理流程。

Option Explicit '强制声明变量
Sub 京东利润所需刷单表格数据清洗程式_删除图片_取消合并_搜索删行()
    Dim r As Long, shp As Shape, sht As Worksheet
    On Error Resume Next '忽略报错，防止有#N/A
    Rem 遍历所有工作表
    
    For Each sht In Worksheets
        Rem 清除图形对象
        sht.Activate
        For Each shp In sht.Shapes
            shp.Delete
        Next
        r = sht.UsedRange.Rows.Count
        Cells(1, 1).Select
        Range(Cells(1, Rows(1).Find(what:="*订单*").Column), Cells(r, Rows(1).Find(what:="*订单*").Column)).Select
        Call Merge_1    '调用取消合并程序
        
        '调用删行程序
        Call delete_1("*尺*")
        Call delete_1("*截*")
        Call delete_1("订单号2")
        Call delete_1("订单号3")
        Call delete_1("订单号4")
    Next
    
    On Error GoTo 0 '恢复报错
End Sub
Sub delete_1(name_1 As String)
    Dim c As Long
    c = Rows(1).Find(what:=name_1).Column
    Columns(c).Delete shift:=xlToLeft
End Sub
Sub Merge_1()
    Dim a As Range
    Set a = Selection
    Selection.UnMerge
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "=R[-1]C"
    a.Copy
    a.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub