找到非空单元格的数量，然后粘贴复制的数据

Question

我写了一个sub来查找非空单元格的数量：

Sub test()

        Dim i, mynumber As Integer

        For i = 22 To 500
            If Cells(i, 2).Value <> 0 Then mynumber = mynumber + 1
        Next i

    End Sub

例如，当我执行此代码时，我得到mynumber = 8，有时我得到mynumber21等，...

我复制了一个数据，我希望在非空单元格数之后将它们粘贴两行（这就是我写这段代码的原因）。

我被困在这里。

Answer 1

要查找列中的最后一行，您可以使用以下代码：

With Sheets("Sheet1")
    LastRow = .Range("B" & .Rows.Count).End(xlUp).Row
End With

然后只需在要粘贴它的范围内添加两行。