删除行不起作用
问题描述:
我在尝试使用excel 2016在这一侧找到的代码,但它不起作用。要放入行数开始删除。删除行不起作用
Sub Sample()
Dim Ret As Long
Ret = Application.InputBox(Prompt:="Please enter a row number", Type:=1)
If Ret = False Then Exit Sub
With Mysheet1
.Rows(Ret + 1 & ":" & .Rows.Count).Delete
End With
End Sub
我在这里有一个问题,这个代码
答
现在你已经的相关详细一点ùore您的问题,我认为这个问题是你从未宣布过Mysheet1是什么。相反,你可以做的是
With Worksheets("<YourSheetName>")
然而,Rows
不工作,你如何看待它。根据the official documention,它必须用于特定的Range
对象。 This thread告诉我们如何找到工作表的最后一行。所以,你可以这样做:
With Worksheets("<YourSheetName>")
.Range(Cells(Ret + 1, 1), Cells(.UsedRange.Rows.Count, 1)).Delete
End With
你能告诉我们什么是行不通的吗?你可以输入一个行号吗? – Xatyrian
是的,我可以输入行号,但它显示此行上的错误 – Hendrik
。行(Ret + 1&“:”&。行数。)删除 – Hendrik