Sub？宏3()
開？錯誤？簡歷？然後
暗淡？我的路？myFile$，？我& amp,?d？作為？目標
我的路？=?[F1]
如果？Dir(mypath？& amp？"*",?vbDirectory)？=?""?然後
MsgBox？文件地址不存在，請重新輸入
退出？潛水艇
結束？如果
如果？範圍(" C65536 ")。結束(xlUp)。劃？=?1?然後
MsgBox？"請在C列中輸入壹個新名稱"
退出？潛水艇
結束？如果
arr？=?Range("A2:C "？& amp？範圍(" A65536 ")。結束(xlUp)。行)
設置？d？=?CreateObject(" scripting . dictionary ")
d.CompareMode？=?1
為了什麽？我？=?1?去哪？欠奉
d(arr(i，1))?=?""
然後
為了什麽？我？=?1?去哪？欠奉
如果？d .存在(arr(i，3))?然後
MsgBox？“禁止修改與原始文件同名的文件名”
退出？潛水艇
結束？如果
然後
我的路？=?我的路？& amp？"\"
為了什麽？我？=?1?去哪？欠奉
如果？arr(我，？3)?& lt& gt？""?然後
如果？Dir(mypath？& amp？arr(我，？1))?& lt& gt？""?然後呢？名字？我的路？& amp？arr(我，？1)?作為？我的路？& amp？arr(我，？3)
結束？如果
然後
MsgBox？"已修改"
結束？潛水艇
A列是原始文件名，C列是修改後的文件名，都帶有文件後綴...