删除Excel中的特定行

Question

对不起，如果这不是一个合适的问题，但我正在寻求任何帮助。 “删除行”按钮似乎不适用于我正在使用的Excel文档。

代码是：

Sub Button1_Click()

    Dim ws As Worksheet
    Dim wb As Workbook

    rownumber = InputBox("What row would you like to delete ?")

    Set wb = ThisWorkbook

    For Each ws In wb.Worksheets
         ws.Rows(86).Delete
    Next ws

    Set wb = Nothing

End Sub

任何人都可以看到问题吗？非常感谢！

Answer 1

您的代码正在运行，但它只删除第86行。您需要将变量rownumber传递给Rows().Delete函数。

试试这个：

Sub Button1_Click()
Dim ws As Worksheet
Dim wb As Workbook

rownumber = InputBox("What row would you like to delete ?")
Set wb = ThisWorkbook

For Each ws In wb.Worksheets
    ws.Rows(rownumber).Delete
Next ws
Set wb = Nothing

End Sub