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

是否可以通过此方法获取所选最后一行的值/数据/内容？我如何得到它。谢谢。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

来源

2017-05-18 Hydes Yase

使用任何你想要的细胞的'Value'属性（比如'细胞（LASTROW，“A”）。价值'） – YowE3K

非常感谢YowE3K。这对我有效。 –

你的问题有很多可能的方法。我平时是什么，定位在工作表中最低的范围内，做一个结束xlUp一样，

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

来源

2017-05-18 09:48:06

你不应该硬编码行数！不同的Excel版本确实有不同的行数。总是使用'LastRow = Worksheet（“sheet1”）。Range（“A”＆Worksheet（“sheet1”）.Rows.Count）.End（xlUp）.Row'或者将其封装到'With'语句中以缩短它。你也不需要设置更短的范围。 –

@peh啊！谢谢你，先生。我是否正确地认为，如果代码在Excel 2007及更早的版本上运行，这将返回一个错误？ –

是的，你只在Excel 2010及更高版本中工作。我的工作也适用于早期版本。 –

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

回答

相关问题