VBA跨工作表设置13天移动范围求助：无法同时引用两个工作表

我来帮你搞定这个跨工作表引用Range的问题！你遇到的核心问题很明确：Range对象只能属于单个工作表，你试图把当前工作表的start13和下一个工作表的finish13合并成一个rng13，这在VBA里是不允许的——因为一个Range不能同时包含两个不同工作表的单元格。

接下来我给你梳理修改思路和重构后的代码：

核心修改思路 #

• 拆分跨表场景的范围：当13天范围跨到下一个工作表时，分别取当前表的剩余列区域和下一个表的起始列区域
• 移除不必要的Activate操作：直接通过工作表对象引用单元格，代码更稳定高效
• 抽离检查逻辑：把“判断13个单元格是否全为True”做成独立函数，复用性更强

重构后的代码 #

Sub Check13DayRange()
    Dim wb As Workbook
    Dim wsCurrent As Worksheet, wsNext As Worksheet
    Dim rowNum As Long, colNum As Long
    Dim onePersonLoop As Range
    Dim nameLocation As Range
    Dim start13 As Range, finish13 As Range
    Dim remainingCols As Long, carryOver As Long
    Dim allTrue As Boolean
    
    Set wb = ActiveWorkbook
    
    ' 遍历工作表（注意：这里要确保i的范围不会让i+1超出工作表总数）
    For i = 1 To wb.Worksheets.Count - 1
        Set wsCurrent = wb.Worksheets(i)
        Set wsNext = wb.Worksheets(i + 1)
        
        With wsCurrent
            ' 修正原代码重复赋值的问题
            Set onePersonLoop = .Cells(rowNum, colNum).Offset(-1).End(xlToRight).Offset(, -2)
            
            For rowNum = 6 To 24 Step 6
                Set nameLocation = .Cells(rowNum, colNum).Offset(-2, -1).EntireRow.Cells(1, 2)
                
                ' 修正原代码For循环的语法错误（onePersonLoop.后面少了Column）
                For colNum = 4 To onePersonLoop.Column
                    Set start13 = .Cells(rowNum, colNum)
                    
                    If start13.Column <= onePersonLoop.Column - 12 Then
                        ' 不跨表的情况：直接取当前表的13列范围
                        Set finish13 = .Cells(rowNum, colNum + 12)
                        allTrue = AreAllCellsTrue(.Range(start13, finish13))
                    Else
                        ' 跨表的情况：拆分范围
                        remainingCols = onePersonLoop.Column - start13.Column + 1
                        carryOver = 13 - remainingCols
                        
                        ' 检查当前表的剩余部分 + 下一个表的起始部分
                        allTrue = AreAllCellsTrue(.Range(start13, .Cells(rowNum, onePersonLoop.Column))) _
                                And AreAllCellsTrue(wsNext.Range(wsNext.Cells(rowNum, 3), wsNext.Cells(rowNum, 3 + carryOver - 1)))
                    End If
                    
                    ' 这里可以添加你需要的逻辑，比如根据allTrue的值做后续处理
                    ' 示例：如果全为True，输出姓名和范围信息
                    If allTrue Then
                        Debug.Print nameLocation.Value & "的13天范围全为True"
                    End If
                Next colNum
            Next rowNum
        End With
    Next i
End Sub

' 辅助函数：判断指定区域内所有单元格是否均为True
Function AreAllCellsTrue(rng As Range) As Boolean
    Dim cell As Range
    AreAllCellsTrue = True ' 默认全为True
    
    For Each cell In rng
        ' 处理单元格为空或非布尔值的情况（可选，根据你的需求调整）
        If IsEmpty(cell) Or Not IsBoolean(cell.Value) Or cell.Value = False Then
            AreAllCellsTrue = False
            Exit For
        End If
    Next cell
End Function

关键细节说明 #

1. 跨表范围处理：当范围跨工作表时，我们计算当前表剩余的列数，再算出需要从下一个表取的列数，分别检查两个区域后用And合并结果，这样就避开了跨工作表创建Range的问题。
2. 移除Activate：直接通过wsCurrent和wsNext引用工作表，避免了切换工作表带来的不稳定问题。
3. 语法修正：原代码里For colNum = 4 To onePersonLoop.有语法错误，我修正为For colNum = 4 To onePersonLoop.Column；同时去掉了重复的Set onePersonLoop赋值。
4. 边界检查：遍历工作表时限制到wb.Worksheets.Count - 1，避免i+1超出工作表总数导致报错。

额外建议 #

• 可以给onePersonLoop的赋值逻辑补充更明确的上下文（原代码里rowNum和colNum初始值未定义，可能会导致错误）。
• 如果你的日历列是按日期顺序排列的，也可以考虑用日期值来计算范围，而不是列索引，这样逻辑会更直观。

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