用Excel宏命令实现批量修改

用公式就可以做到，你的数据如果都是10位的话，假设数据从A1开始，在B1输入：=left(A1,7)向下填充就行

如果数据都在a列

Sub TEST()
Dim I As Integer
For I = 1 To ENDROW()
If ActiveSheet.Cells(I, 1) <> "" Then
ActiveSheet.Cells(I, 1) = Left(Trim(ActiveSheet.Cells(I, 1)), 7)
End If
Next I
End Sub

Private Function ENDROW() As Integer
Dim I As Integer
For I = 1 To 10000
If ActiveSheet.Cells(I, 1) = "" Then
ENDROW = I - 1
End If
Next I
End Function

Sub aa()
x = Sheets("sheet1").Range("a56565").End(3).Row
For i = 2 To x
Cells(i, 1) = Mid(Cells(i, 1), 1, 7)
Next
End Sub
数据在A2开始

=left(A1,7)