excel問題，如何批量替换工作表同一单元格不同内容

你把要放入B5单元格的数据 放在A列，B列放入对应的文件名

使用以下代码

Sub B5()

i = 1

Do Until ThisWorkbook.ActiveSheet.Cells(i, 2) = ""
    Set dx_workbook = Workbooks.Open(ThisWorkbook.ActiveSheet.Cells(i, 2))
   dx_workbook.Sheets("sheet1").Range("B5") = ThisWorkbook.ActiveSheet.Cells(i, 1)
    i = i + 1
     dx_workbook.Close
    Set dx_workbook = Nothing
Loop
End Sub

可以实现，将恶意用VBA处理，可以的话可以看看你的演示数据

设数据简略如图:

将公式

="020-"&b2

复制后粘贴到“c2”单元格，对准右下角，光标成“+”状时双击，如图：

如果要删除原号码，请先在图中深色区域内右击——“复制”——再右击——“选择性粘贴”——“数值”，如图：

——“确定”，再删除原号码，效果如图：