刪除行不起作用

我在嘗試使用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

刪除行不起作用

回答

相關問題