Question

我一直在编写一个代码，我需要始终在名为＆＃34; Support2＆＃34;的电子表格中复制C列的lat NON空单元格。然后我需要粘贴电子表格＆＃34; Final＆＃34;，始终在单元格A2上。因此，我将每天更新电子表格，并在C列上添加更多值，这就是为什么它需要始终复制最后一个。我已经尝试了下面的代码，但它无法正常工作。非常感谢你的帮助，谢谢！

子测试（）

Dim myLastCell As Range
Set myLastCell = LastCell(Worksheets("Support2").Range("C:C"))
    End Sub


    ' Now Copy the range:
    Worksheets("Support2").Range("C:c" & myLastCell.Row).Copy

Else
    MsgBox ("There is no data in specified range")
End If

End Sub

Answer 1

需要另一张表（＆＃34; Support2）

{{1}}

End Sub

复制最后一个非空单元格

1 个答案: