excel - 如果可能，使用 VBA 或任何 excel 公式单击按钮时从 excel 表中删除 n% 的行

Question

我想从 sheet1、sheet2、sheet3、sheet4 中删除 n% 的单元格。百分比将以原始形式在工作表名称中给出。例如，在 E19 的原始工作表中，它给定 10%，因此在每个工作表 S1、S2、S3、S4 中，它应该删除总共 10% 的数据行。（例如：工作表 1 有 100 行数据，因此按照 10% 的比例，它应该从 100 行中删除 10 行，其他工作表也同样如此。我进行了很多研究，但没有得到任何与此相关的信息。

Answer 1

要删除前 x% 的行，您可以这样做：

s.Range(s.Cells(1, 1), s.Cells(s.UsedRange.Rows.Count * Range("Percentage").Value, 1)).EntireRow.Delete

范围（“百分比”）是给出百分比的单元格

要为所有工作表获取它，您只需要一个循环来重复该操作：

Sub deleteFirstPercentageOfRows()
Dim s As Worksheet
    For Each s In ThisWorkbook.Sheets
        If s.Name <> "raw" Then
            s.Range(s.Cells(1, 1), s.Cells(s.UsedRange.Rows.Count * Range("Percentage").Value, 1)).EntireRow.Delete
        End If
    Next s
End Sub