Excel 宏 - 如何删除行号后的单元格值？

Question

A 到 K 列的条目直到特定的数字，该数字可能会有所不同。 L 到 Q 列的条目直到 1,50,000。我想删除A列最后一个条目之后的所有条目（这个数字是可变的）

我录制宏后得到的代码如下。

代码的问题在于它是硬编码的 Application.Goto 参考：="R70086C1"

Sub ExtraDelete()
    ' ExtraDelete Macro
    Range("AN1").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(C[-39], ""*"")"
    Range("AN1").Select
    Selection.Copy
    Range("AN3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("AN1").Select
    Selection.Copy
    Application.Goto Reference:="R70086C1"
    Rows("70087:70087").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A70082").Select
    ActiveWorkbook.Save
End Sub

Answer 1

_{我想删除A列最后一个条目之后的所有条目。}

通常，您将从 A 列的底部开始向上查找以找到最后填充的单元格。这就像从 A1048576 开始并点击 ctrl+。

Range.Select 几乎从不需要，也很少是最好的方法。 (read this)

Sub ExtraDelete()
    ' ExtraDelete Macro

    with worksheets("sheet1")
        .range(.cells(.rows.count, "A").end(xlup).offset(1, 0), _
               .cells(.rows.count, "A")).entirerow.clear
        .parent.Save
    end with

End Sub