求助一个小白问题，关于批量替换多个Excel文件内容

杨建营

Sub replace()
Dim i&
Dim arr
Application.ScreenUpdating = False
With Sheet1
arr = .[a1].CurrentRegion
For i = 2 To UBound(arr)
    Select Case arr(i, 2)
        Case Is = "甲"
        arr(i, 2) = "A"
        Case Is = "乙"
        arr(i, 2) = "B"
        Case Is = "丙"
        arr(i, 2) = "C"
    End Select
Next
.[a1].CurrentRegion = arr
Application.ScreenUpdating = True
End With
End Sub
只是比较简单的替换，根据需要修改一下。请楼主参考。