为何UsedRange在Office 2016与365中列数统计不一致？

核心原因：UsedRange的版本行为差异 #

你的代码依赖UsedRange.Columns.Count确定最后一列，但该属性的计算逻辑在Office 365中做了优化，和2016版本存在关键区别：

• Office 2016：UsedRange会保留所有曾经被编辑过的单元格范围，即便后续清空内容，也不会自动收缩，除非手动重置（比如保存文件后重新打开，或执行UsedRange.Reset）。如果第1到14列都曾被使用过，哪怕后续第1列空了，UsedRange.Columns.Count仍返回14，代码会选中第14列。
• Office 365：采用更智能的实时检测机制，会自动排除完全空的列/行。如果表格中第1列实际无内容，365会将UsedRange的起始列调整为第2列，此时UsedRange.Columns.Count返回13（第2到14列共13列），代码就会选中第13列。

另外要注意：UsedRange.Columns.Count返回的是UsedRange范围内的列数，而非最后一列的列号。就算用UsedRange.Column + UsedRange.Columns.Count - 1计算列号，也不如直接定位最后列的方法可靠。

解决方法：改用精准的最后列获取方式 #

替换原有逻辑，用Find或End(xlToLeft)定位真正的最后使用列，彻底规避版本差异：

Sub SelectLastUsedRange()
    Dim Master As Workbook
    Dim MasterLastColumn As Long
    
    Set Master = ThisWorkbook
    
    ' 方法1：用Find查找最后一列（支持非连续数据）
    MasterLastColumn = Master.Sheets(1).Cells.Find( _
        What:="*", _
        After:=Master.Sheets(1).Cells(1, 1), _
        LookIn:=xlFormulas, _
        LookAt:=xlPart, _
        SearchOrder:=xlByColumns, _
        SearchDirection:=xlPrevious, _
        MatchCase:=False).Column
    
    ' 方法2：从最右侧列向左查找（适合连续数据）
    ' MasterLastColumn = Master.Sheets(1).Cells(2, Master.Sheets(1).Columns.Count).End(xlToLeft).Column
    
    Master.Sheets(1).Activate
    Master.Sheets(1).Cells(2, MasterLastColumn).Select
End Sub

两种方法都能精准定位到有内容的最后一列，不受Office版本影响。

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