Excel VBA代码根据计算的数字删除行

Question

在处理数据集时，我使用=RAND((为每一行分配一个随机数。然后，我从最小到最大对随机生成的数字进行过滤。从这里开始，我只想保留20%具有最小随机数的行，用于审计目的。然后，我使用函数将没有标题的行数相加，计算20%，四舍五入到最接近的整数并加1。如何编写一个宏，读取四舍五入的整数+1，选择行，并删除其下的所有内容？

例如，假设我的页眉下面有100行。20%是20，+1是21。如何在VBA中编写以读取计算出的数字21，然后选择第21行？

Answer 1

根据我对选择的理解，您可以尝试一下。

Sub Random()
Dim i As Integer
Dim j As Integer
With Sheet1
i = .Cells(Rows.Count, "A").End(xlUp).Row
i = i * 0.2     'to compute 20%
i = i + 1       'additional 1 for last row selection
j = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("A" & i & ":A" & j).ClearContents
End With
End Sub

希望我能正确理解你的问题。