Question

由于无法控制的原因，我必须将数据保存为csv并上传，并且必须手动选择并清除数据集下方的单元格，范围每天都在变化。

问题：如何编辑我的vba脚本以根据数据集：J10下的单元格创建一个范围并清除/删除它？编辑：您将执行任何更改吗？

这是我当前拥有的，在导出并另存为CSV后，我重新打开新数据并进行排序并尝试清除。我已经尝试过Selection.SpecialCells(CellTypeBlanks).EntireRow.ClearContents和Selection.SpecialCells(CellTypeBlanks).ClearContents

我有5个单独的csv工作簿，此宏当前会打开并在其中运行，但这是我脚本的最后一部分，给我错误

 Sub openCSV()
    Dim lRow As Long
    lRow = Cells(Rows.Count, 1).End(xlUp).Row

    For i = lRow To 2 Step -1
        If ActiveSheet.Range("H" & i).Value = 0 Then
            ActiveSheet.Rows(i).ClearContents
        End If
    Next i

    Range("A2:J10").Select
    ActiveWorkbook.Worksheets("BA").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("BA").Sort.SortFields.Add Key:=Range("H2") _
                                                              , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("BA").Sort
        .SetRange Range("A2:J10")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    On Error Resume Next
    Range("A2:H10").Select
    Selection.SpecialCells(CellTypeBlanks).ClearContents
    Range("A2:J10").Select
    Selection.SpecialCells(CellTypeBlanks).EntireRow.ClearContents

    ActiveWorkbook.Save
    ActiveWorkbook.Close
    SaveChanges = True

感谢您的时间和帮助

根据具有值加1的最后一个像元设置范围

0 个答案: