删除行不起作用

我在尝试使用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

我在这里有一个问题，这个代码

来源

2017-08-07 Hendrik

你能告诉我们什么是行不通的吗？你可以输入一个行号吗？ – Xatyrian

是的，我可以输入行号，但它显示此行上的错误 – Hendrik

。行（Ret + 1＆“：”＆。行数。）删除 – Hendrik

现在你已经的相关详细一点ù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

来源

2017-08-07 09:04:35 Xatyrian

它正在工作，但它正在删除一列而不是完整的行，列只是移动一个表格上的行号，我已经放入了。我想删除行的完整 – Hendrik

谢谢你会阅读你的信息给我。但maby有办法做到这一点 – Hendrik

好吧谢谢你的帮助，我已经得到它的工作。 – Hendrik

删除行不起作用

回答

相关问题