Excel VBA：获取最后一行的数据/值/内容

是否可以通过此方法获取所选最后一行的值/数据/内容？我怎么得到它。多谢各位

Dim WhatChapter As String
WhatChapter = InfoForm.Chapter

If WhatChapter <> "" Then
    With ActiveSheet
        lastRow = Cells(.Rows.Count, "A").End(xlUp).Row
    End With
End If

Dim WhatChapter作为字符串
WhatChapter=InfoForm.Chapter
如果第“”章是什么
使用ActiveSheet
lastRow=单元格（.Rows.Count，“A”）.End（xlUp）.Row
以
如果结束

你的问题有很多可能的解决方法。 我通常做的是，在工作表中找到最低范围，然后做一个end

xlUp

like

Dim rLastNonBlankCell as Range
Dim LastRow as Long
Set rLastNonBlankCell = Sheet[x].Range("A1048576").End(xlUp)
LastRow = rLastNonBlankCell.Row

---

你的问题有很多可能的方法。 我通常做的是，在工作表中找到最低范围，然后做一个end

xlUp

like

Dim rLastNonBlankCell as Range
Dim LastRow as Long
Set rLastNonBlankCell = Sheet[x].Range("A1048576").End(xlUp)
LastRow = rLastNonBlankCell.Row

---

我找到了一个简单的方法来解决这个问题

如果要从lastRow获取值，可以使用以下方法：

Dim rows As String
Dim value As String
Dim concat As String

rows = Range("A1048576").End(xlUp).Row

Dim a As String
'Column
a = "A"
concat = a & rows
'Value in last low is below
value = Range(concat).value

MsgBox (value)

---

我希望这个解决方案能对其他人有所帮助

我找到了一个简单的方法来解决这个问题

如果要从lastRow获取值，可以使用以下方法：

Dim rows As String
Dim value As String
Dim concat As String

rows = Range("A1048576").End(xlUp).Row

Dim a As String
'Column
a = "A"
concat = a & rows
'Value in last low is below
value = Range(concat).value

MsgBox (value)

---

我希望此解决方案将对其他人有所帮助

使用您想要的任何单元格的

Value

属性（例如

单元格（lastRow，“A”）.Value

）非常感谢@YowE3K。这对我很有用。使用您想要的任何单元格的

Value

属性（例如

Cells（lastRow，“A”）。Value

）非常感谢@YowE3K。这对我有用。你不应该硬编码行计数！不同的Excel版本有不同的行数。始终使用类似于

LastRow=Worksheet（“sheet1”）.Range（“A”&Worksheet（“sheet1”）.Rows.Count”）.End（xlUp）.Row

或使用

语句将其包装成
，以缩短它。您也不需要设置更短的范围。@peh-Ah！谢谢你，先生。如果代码在Excel2007和更早版本上运行，我是否正确地假设这将返回一个错误？是的，您的代码仅在Excel2010和更高版本中运行。我的也适用于早期版本。你不应该硬编码行数！不同的Excel版本有不同的行数。始终使用类似于
LastRow=Worksheet（“sheet1”）.Range（“A”&Worksheet（“sheet1”）.Rows.Count”）.End（xlUp）.Row
或使用
语句将其包装成
，以缩短它。您也不需要设置更短的范围。@peh-Ah！谢谢你，先生。如果代码在Excel2007和更早版本上运行，我是否正确地假设这将返回一个错误？是的，您的代码仅在Excel2010和更高版本中运行。我的也适用于早期版本。