如果会VBA,运行一下Rename即可
Sub Rename()
On Error Resume Next
If MsgBox("是否改名?", 48) = vbNo Then Exit Sub
Sheet1.Select
Range("A1").Select
For r = 1 To Range(Selection, Selection.End(xlDown)).Rows.Count
Name ThisWorkbook.Path & "\" & Range("A" & r).Value As ThisWorkbook.Path & "\" & Range("B" & r).Value
Next
End Sub
温馨提示:答案为网友推荐,仅供参考