在Excel VBA中,如果中间存在空单元格,但我们仍然想要查找最后一个非空单元格中的值,可以使用以下代码:
Sub FindLastNonEmptyCell()
Dim lastRow As Long
Dim lastColumn As Long
Dim lastValue As Variant
' 获取最后一个非空单元格的行号
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
' 获取最后一个非空单元格的列号
lastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
' 获取最后一个非空单元格的值
lastValue = Cells(lastRow, lastColumn).Value
' 在Immediate窗口中打印最后一个非空单元格的值
Debug.Print lastValue
End Sub
这段代码首先使用Cells(Rows.Count, 1).End(xlUp).Row
来获取最后一个非空单元格的行号,Cells(1, Columns.Count).End(xlToLeft).Column
来获取最后一个非空单元格的列号。然后使用Cells(lastRow, lastColumn).Value
获取最后一个非空单元格的值,并将其打印在Immediate窗口中。
这个方法适用于在单个列或单个行中查找最后一个非空单元格的值。如果要在整个工作表中查找最后一个非空单元格的值,可以将Cells
替换为ActiveSheet.UsedRange
。
这个方法可以应用于各种情况,例如在数据处理、报表生成、数据分析等场景中,当我们需要获取最后一个非空单元格的值时,可以使用这个方法。
腾讯云相关产品和产品介绍链接地址:
领取专属 10元无门槛券
手把手带您无忧上云