使用vba获取在Excel中dynamic填充的最后一个单元格值

我有一个Excel工作簿2和1和2.我正在运行一些代码来获得Sheet1填充。 现在在Sheet2 B1单元格中，我需要[D列中的Sheet1最后一个单元格值] + 1。

任何人都可以帮我编码。 提前致谢。

Answer 1

这将捕获Sheet1的 D列中的最后一个值

Sub DataCapture() Dim N As Long, V As Variant With Sheets("Sheet1") N = .Cells(Rows.Count, "D").End(xlUp).Row V = .Cells(N, "D").Value End With Sheets("Sheet2").Range("B1").Value = V End Sub