指导代码修改

sunny568914

Sub 计算订单金额单人1()

    Dim i As Long
    Dim rng As Range
    Dim CT1 As Date
    Dim CT2, CT3
    Dim DDFH As Long
    Dim DDAH As Long

    Set rng = Sheets("订单详细").UsedRange；｛修改为订单详细中的A：E列｝
    CT1 = Sheets("订单计算").Range("K1").Value
    CT2 = Sheets("订单计算").Range("M1").Value
    CT3 = Sheets("订单计算").Range("B1").Value

    '筛选数据
    rng.AutoFilter

    '设置筛选条件
    rng.AutoFilter Field:=1, Criteria1:=Format(CT1, "m月d日")
    rng.AutoFilter Field:=3, Criteria1:=CT2
    rng.AutoFilter Field:=4, Criteria1:=CT3

     With rng
        .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete【删除筛选的数据，下方单元格上移】
    End With

    '取消筛选
    rng.AutoFilter

木子客

Set rng = Sheets("订单详细").UsedRange；｛修改为订单详细中的A：E列｝
只是修改这里吗？
Set rng = Sheets("订单详细").range("A:E")

具体最好是有截图或者是文件才好

sunny568914

木子客 发表于 2024-12-17 20:31
Set rng = Sheets("订单详细").UsedRange；｛修改为订单详细中的A：E列｝
只是修改这里吗？
Set rng =  ...

用range（"A:E"）下面筛选删除代码会报错【无效的运行时错误“5”无效的过程调用或参数】

木子客

sunny568914 发表于 2024-12-18 08:18
用range（"A:E"）下面筛选删除代码会报错【无效的运行时错误“5”无效的过程调用或参数】

那就明确一下，改成
Set rng = Sheets("订单详细").range("A1:E" & Sheets("订单详细").usedrange.row)