如何解决VBA中单元格范围选择时周日与周六顺序颠倒问题

没问题，我来帮你搞定这个问题！你的核心问题是：循环里每一列都执行了周范围的设置，而不是等完整遍历完一周（到周六）再处理。

比如，当循环到周日那列时，sat变量存的还是上一周周六的列号，这时候sun（当前周日列）的编号比sat大，Excel的Range对象会自动把范围调整成「左小右大」的顺序，结果就变成选中周六到周日了。

最直接的修正方案：只在周六时创建周范围 #

我们只需要在遍历到周六的时候，再用之前记录的周日列号来生成周范围。这样sun（当周周日的列）肯定在sat（当周周六的列）左边，不会出现顺序颠倒的情况。

修正后的代码如下：

For colNum = 4 To 100
    Set currentCell = .Cells(rowNum, colNum)
    Set otCell = currentCell.Offset(-1, 0)
    Set regCell = currentCell.Offset(-2, 0)
    
    ' 记录当前周周日的列号
    If colNum Mod 7 = 4 Then
        sun = colNum
    End If
    
    ' 只有遇到周六时，才创建并选中该周的范围（周日→周六）
    If colNum Mod 7 = 3 Then
        sat = colNum
        Set week = .Range(.Cells(rowNum, sun), .Cells(rowNum, sat))
        week.Select
    End If
Next colNum

额外优化：应对特殊列顺序（可选） #

如果你的日历列的星期顺序比较特殊（比如周日排在周六的右边，列顺序是周一到周六、周日），可以用Application.Min和Application.Max强制保证范围是从左到右的连续区域，同时保留你「周日到周六」的周范围逻辑：

If colNum Mod 7 = 3 Then
    sat = colNum
    ' 确保范围左边界小于右边界，避免Excel自动反转顺序
    Dim leftCol As Long, rightCol As Long
    leftCol = Application.Min(sun, sat)
    rightCol = Application.Max(sun, sat)
    Set week = .Range(.Cells(rowNum, leftCol), .Cells(rowNum, rightCol))
    week.Select
End If

这样调整后，就能精准选中你想要的周日到周六的周范围啦！

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