使用数据查找列中的最后一行并粘贴下面的其他数据并重复

Question

我从Here找到了以下代码。

10358.165790

我的声誉太低，所以我不能评论并在那里问。输出是什么或在哪里？我无法绑定代码？

Answer 1

该代码为您提供工作表Worksheet.UsedRange property中任意列的最后一行，其中包含值;不是在一个特定列中具有值的最后一个单元格。这两个可能是相同的，但不能保证是相同的。

要获取具有特定列（例如B列）中最后一个值的行，那么这将更合适。

With Sheets("Sheet1")
    If Application.WorksheetFunction.CountA(.Columns(2)) <> 0 Then
        lastrow = .Cells(rows.Count, "B").End(xlUp).Row
    Else
        lastrow = 1
    End If
End With

要使用此 lastrow 在下一个单元格中设置值（第一个空白），请添加 1 并在 row_num 参数中使用它一个Range.Cells property。

With Sheets("Sheet1")
    If Application.WorksheetFunction.CountA(.Columns(2)) <> 0 Then
        lastrow = .Cells(rows.Count, "B").End(xlUp).Row
    Else
        lastrow = 1
    End If
    .Cells(lastrow + 1, "B") = "my new value"
End With