如何编写宏获取行数数值并定义可调用的nrow？

我懂你这会儿的困扰——想写个宏拿到工作表里的有效行数，还能把这个数值存成nrow方便后续调用，试了好几种网上的方法都没成功对吧？其实核心是找对准确获取行数的方式，再把它封装成能复用的逻辑，咱们一步步来解决：

一、先搞懂两种靠谱的行数获取方法 #

网上很多方法失效，大概率是没区分「整个工作表总行数」和「实际有数据的有效行数」，或者没指定具体工作表导致结果出错。推荐两种最实用的方案：

1. 从底部向上找最后一个非空单元格（最准确） #

这种方法会忽略工作表里的空行，直接定位到某一列最后一个有内容的单元格行号，是日常用得最多的：

Function GetLastRow(targetSheet As Worksheet, Optional col As String = "A") As Long
    ' 参数说明：
    ' targetSheet：要统计的工作表对象
    ' col：可选参数，指定要检查的列，默认是A列
    GetLastRow = targetSheet.Cells(targetSheet.Rows.Count, col).End(xlUp).Row
End Function

2. 使用UsedRange获取已使用区域行数（简单但需注意） #

如果你的工作表里没有多余的空行空列，用这个方法更快捷，但要注意UsedRange会包含曾经编辑过后来清空的单元格：

Function GetUsedRowCount(targetSheet As Worksheet) As Long
    GetUsedRowCount = targetSheet.UsedRange.Rows.Count
End Function

二、定义可全局调用的nrow #

如果你想把行数存成nrow随时调用，有两种方式：

方式1：模块级/全局变量 + 初始化宏 #

在VBA模块的最顶部声明变量（这样整个模块甚至所有模块都能调用），再写一个初始化宏把行数赋值给nrow：

' 声明全局变量，所有模块的宏都能直接用
Public nrow As Long

Sub InitializeNRow()
    ' 指定你要统计的工作表，比如"Sheet1"，别用ActiveSheet避免切换工作表出错
    Dim mySheet As Worksheet
    Set mySheet = ThisWorkbook.Worksheets("Sheet1")
    
    ' 用上面的准确方法赋值，这里指定检查B列，可按需修改
    nrow = GetLastRow(mySheet, "B")
    
    ' 可选：弹框确认行数是否正确
    MsgBox "已初始化nrow为：" & nrow
End Sub

之后你只要先运行InitializeNRow，其他宏里直接写nrow就能用这个数值了，比如：

Sub UseNRowExample()
    ' 先确保nrow已初始化
    InitializeNRow
    
    ' 示例：把A1到最后一行的单元格背景设为黄色
    ThisWorkbook.Worksheets("Sheet1").Range("A1:A" & nrow).Interior.ColorIndex = 6
End Sub

方式2：直接在宏里调用函数获取行数 #

如果不想用全局变量，也可以在需要的地方直接调用前面写的函数，比如：

Sub DirectUseRowCount()
    Dim mySheet As Worksheet
    Set mySheet = ThisWorkbook.Worksheets("Sheet1")
    
    ' 直接获取行数并使用
    Dim currentRowCount As Long
    currentRowCount = GetLastRow(mySheet)
    
    MsgBox "当前工作表有效行数是：" & currentRowCount
End Sub

三、之前方法失效的常见原因&修正 #

你之前试的方法没成功，大概率是这几个问题：

• 没指定具体工作表：用ActiveSheet如果切换了工作表会出错，一定要指定ThisWorkbook.Worksheets("你的表名")
• 变量类型错了：行数可能超过32767，所以要用Long类型，别用Integer（会溢出）
• 直接用了Rows.Count：Rows.Count拿到的是整个工作表的总行数（比如Excel 2007+是1048576），不是有效行数，必须结合End(xlUp)
• 变量作用域不对：如果把nrow声明在某个Sub里，其他宏调用不了，要放在模块顶部声明成Public或模块级Dim

内容的提问来源于stack exchange，提问作者moodymudskipper