Excel VBA列表框触发宏报错1004：无法获取Range类CurrentRegion属性

问题场景 #

正在对三张工作表上三个部门（2593、2591、2590）的薪资周期报表与数据库进行对账，通过自动筛选可在单张工作表对比薪资明细与数据库信息。Sheet1上的“下一条”“上一条”按钮触发的宏能正常自动筛选员工薪资支票明细，但通过带ListBox的用户表单手动选择特定员工时，宏无法运行且无自动筛选效果，同时报错：

错误1004 无法获取Range类的CurrentRegion属性

报错代码行位于rng.CurrentRegion.Clear，相关代码如下：

Sub ClearForNextRecord()
Dim rng As Range
'set the range on the REVIEW sheet to display the employee records and clean up range before the next record
Set rng = Sheet1.Range("A15")
rng.CurrentRegion.Clear  '--ERROR APPEARS AT THIS LINE
Application.CutCopyMode = False

'Start the extraction of records from the dept sheet onto the REVIEW sheet
Call Copy_AutoFiltered_VisibleRows_NewSheet 
   
End Sub

错误原因 #

1. A15无连续数据区域：CurrentRegion依赖目标单元格周围存在连续的非空单元格形成的数据区域，若A15为空白或周围无关联数据，会触发该错误。
2. 工作表处于保护状态：若Sheet1被保护且未允许编辑A15所在区域，执行Clear操作会被拦截。
3. 工作表引用异常：用户表单触发宏时，当前激活的工作表可能不是Sheet1，导致Range引用失效。

解决办法 #

方法1：替换CurrentRegion为明确范围 #

不依赖自动识别的数据区域，直接指定需要清理的具体范围，避免因空白区域导致的错误：

Sub ClearForNextRecord()
Dim rng As Range
' 指定A15到A列最后一行、F列的区域，可根据实际需求调整列数
Set rng = Sheet1.Range("A15:F" & Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row)
' 若为固定区域，可直接写Set rng = Sheet1.Range("A15:D50")
rng.ClearContents ' 仅清除内容，若需清除格式用Clear
Application.CutCopyMode = False

Call Copy_AutoFiltered_VisibleRows_NewSheet 
End Sub

或者先判断区域是否存在再执行操作：

Sub ClearForNextRecord()
Dim rng As Range
Set rng = Sheet1.Range("A15")
' 捕获可能的错误，避免程序崩溃
On Error Resume Next
rng.CurrentRegion.Clear
On Error GoTo 0
Application.CutCopyMode = False

Call Copy_AutoFiltered_VisibleRows_NewSheet 
End Sub

方法2：确保Sheet1激活且未被保护 #

在操作前激活目标工作表，并处理保护状态：

Sub ClearForNextRecord()
Dim rng As Range
' 激活Sheet1
Sheet1.Activate
' 取消工作表保护（有密码则添加Password参数，如Sheet1.Unprotect Password:="123456"）
If Sheet1.ProtectContents Then
    Sheet1.Unprotect
End If
Set rng = Sheet1.Range("A15")
rng.CurrentRegion.Clear
' 操作完成后可重新保护工作表
Sheet1.Protect
Application.CutCopyMode = False

Call Copy_AutoFiltered_VisibleRows_NewSheet 
End Sub

方法3：手动定位数据区域 #

通过查找最后一行和列来确定需要清理的范围：

Sub ClearForNextRecord()
Dim lastRow As Long, lastCol As Long
Dim rng As Range
With Sheet1
    ' 获取A列最后一行有数据的行号
    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    ' 获取第15行最后一列有数据的列号
    lastCol = .Cells(15, .Columns.Count).End(xlToLeft).Column
    ' 确保行号不小于15，避免引用空白区域
    If lastRow >= 15 Then
        Set rng = .Range(.Cells(15, 1), .Cells(lastRow, lastCol))
        rng.Clear
    End If
End With
Application.CutCopyMode = False

Call Copy_AutoFiltered_VisibleRows_NewSheet 
End Sub

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