新建一个excel工作薄,按ALT + F11 插入一个模块,将下面的代码复制进去,然后执行(快捷键F5)
Worksheets(1) 1是你要操作的sheet,注意了。
Sub test()
Dim str
Dim i, j
i = 1
j = 1
For r = 1 To Worksheets(1).UsedRange.Rows.Count
For c = 1 To Worksheets(1).UsedRange.Columns.Count
str = Worksheets(1).Cells(r, c).Value
If str <> "" Then
Worksheets(1).Cells(r, c).Value = IIf(Len(str) < 8 And Len(str) > 2, "'0" + CStr(str), str)
End If
i = i + 1
Next
j = j + 1
Next
End Sub