VBA中UBound函数使用疑问：动态列A行计数变化时循环范围定义

嘿，我来帮你搞定这个问题！你遇到的运行时错误，大概率是CurrentRegion的特性或者数组类型的问题导致的，咱们一步步拆解：

常见错误原因 & 解决办法 #

• 原因1：A1为空，导致CurrentRegion返回单个单元格
  如果A1单元格是空的，CurrentRegion只会选中A1这一个单元格，这时候arr不是数组，而是单个Variant值，调用UBound(arr, 1)自然会抛出「无效的过程调用或参数」错误。

• 原因2：CurrentRegion意外包含多列（甚至多行多列）
  CurrentRegion是从A1出发，选中所有连续有数据的区域——如果A1旁边的B列、C列有数据，它会把这些列也包含进来。虽然这时候UBound(arr,1)还是能拿到行数，但如果你的逻辑只需要A列数据，这种情况会导致数组冗余，甚至可能因为后续代码处理多列而出错。

• 原因3：数组维度不匹配
  如果CurrentRegion是一行多列的区域，arr会变成一维数组，这时候用UBound(arr,1)就会报错（一维数组只需要UBound(arr)，不需要第二个参数）。不过这和你要处理A列行数的需求不符，本质还是CurrentRegion选的范围不对。

更可靠的替代方案 #

与其依赖CurrentRegion，不如直接定位A列的实际使用范围，这样能精准获取你需要的行数：

Dim ws As Worksheet
Set ws = Worksheets("Sheet1")

' 获取A列最后一行有数据的行号（即使中间有空行也能精准定位）
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' 先判断A列是否真的有数据
If lastRow = 1 And ws.Range("A1").Value = "" Then
    MsgBox "A列没有可处理的数据哦！"
    Exit Sub
End If

' 将A列数据转成二维数组（行索引从1开始）
Dim arr As Variant
arr = ws.Range("A1:A" & lastRow).Value

' 循环处理每一行
Dim i As Long
For i = 1 To UBound(arr, 1)
    ' 这里写你的处理逻辑，比如读取当前行的A列值：arr(i, 1)
    Debug.Print "第" & i & "行的值：" & arr(i, 1)
Next i

补充说明 #

• ws.Cells(ws.Rows.Count, "A").End(xlUp).Row是VBA中获取列最后一行数据的标准写法，比CurrentRegion更稳定，不会因为其他列的数据干扰范围。
• 转成的数组是二维数组（即使只有一列），所以用UBound(arr, 1)取行数，UBound(arr, 2)取列数（这里是1），索引都是从1开始的，和Excel的行号对应，用起来更直观。

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