如何使用VBA移除选中区域所有单元格的前两个字符？

方法1：基于你已有的选区代码直接处理 #

先使用你提供的代码选中目标区域，再遍历每个单元格移除前两个字符：

' 选中数据区域
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

' 移除每个单元格的前两个字符
Dim cell As Range
For Each cell In Selection
    ' 确保单元格内容长度至少为2，避免报错
    If Len(cell.Value) >= 2 Then
        cell.Value = Mid(cell.Value, 3)
    End If
Next cell

原理：Mid(cell.Value, 3) 会提取单元格内容从第3个字符开始的所有部分，直接覆盖原内容。

方法2：用公式临时生成结果（类似你提到的LEFT TRIM思路） #

如果你想通过公式实现，可以先在相邻列生成处理后的值，再复制回原区域：

' 选中数据区域
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

Dim targetRange As Range
Set targetRange = Selection

' 在右侧列写入MID公式
targetRange.Offset(0, 1).Formula = "=MID(" & targetRange.Cells(1,1).Address(False,False) & ",3,LEN(" & targetRange.Cells(1,1).Address(False,False) & "))"
' 将公式结果转为数值
targetRange.Offset(0,1).Value = targetRange.Offset(0,1).Value
' 把结果移回原区域并删除临时列
targetRange.Value = targetRange.Offset(0,1).Value
targetRange.Offset(0,1).EntireColumn.Delete

方法3：更高效的选区方式（推荐） #

VBA中尽量避免使用Select操作，直接定位数据区域更可靠且高效：

Dim dataRange As Range
' 自动选中A1起始的连续数据块
Set dataRange = Range("A1").CurrentRegion

' 批量处理区域内的单元格
For Each cell In dataRange
    If Len(cell.Value) >= 2 Then
        cell.Value = Mid(cell.Value, 3)
    End If
Next cell

优势：无需手动选中区域，不会因用户操作干扰宏运行，执行速度更快。

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