Vba Excel宏-如何删除行号后的单元格值?
列A到K有条目,直到特定的数字可能会有所不同。L列至Q列有1,50000个条目。我想删除A列中最后一个条目之后的所有条目(该数字是可变的) 下面给出了我录制宏后得到的代码 代码的问题在于它是硬编码 应用程序。转到参考:=“R70086C1” 我想删除A列中最后一个条目之后的所有条目 通常,从A列的底部开始,向上查找最后填充的单元格。这就像从A1048576开始,然后点击ctrl+ 选择几乎从来都不是必需的,也很少是最好的方法。()Vba Excel宏-如何删除行号后的单元格值?,vba,excel,Vba,Excel,列A到K有条目,直到特定的数字可能会有所不同。L列至Q列有1,50000个条目。我想删除A列中最后一个条目之后的所有条目(该数字是可变的) 下面给出了我录制宏后得到的代码 代码的问题在于它是硬编码 应用程序。转到参考:=“R70086C1” 我想删除A列中最后一个条目之后的所有条目 通常,从A列的底部开始,向上查找最后填充的单元格。这就像从A1048576开始,然后点击ctrl+ 选择几乎从来都不是必需的,也很少是最好的方法。() 不太清楚你想做什么。是否尝试删除列A中最后一个值下方的所有行?是
不太清楚你想做什么。是否尝试删除列A中最后一个值下方的所有行?是。列A到K有条目,直到特定的数字可能会有所不同。L列至Q列有1,50000个条目。我想删除A列中最后一个条目之后的所有条目。偏移量(1,0)从A列中最后填充的单元格向下移动一行。我想删除A列中最后一个条目(称为X)AX:Q150000代码能够做到这一点吗?不用担心,这可能是一个大错误。你可能应该在原版的副本上测试你从互联网上获得的代码。我还有一个问题。请也很好地解决这个问题。这将是一个新的问题,有新的样本数据,预期的结果,并且(希望)显示出一些原始的努力。
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
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