如何修改VBA代码实现批量向多个Excel文件指定单元格插入值

你可以用下面的代码实现批量处理多个Excel文件，统一在指定单元格插入输入框中输入的值，代码加入了文件选择、批量遍历和自动保存关闭的逻辑：

Sub BatchInsertValueInCells()
    Dim targetValue As String
    Dim filePaths As Variant
    Dim wb As Workbook
    Dim i As Integer
    
    ' 获取要插入的目标值
    targetValue = InputBox(Prompt:="Enter the value you want to insert.")
    ' 用户取消输入则直接退出
    If targetValue = "" Then Exit Sub
    
    ' 让用户选择多个待处理的Excel文件
    filePaths = Application.GetOpenFilename( _
        FileFilter:="Excel Files (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm", _
        Title:="Select Excel Files to Process", _
        MultiSelect:=True)
    
    ' 用户取消选择文件则直接退出
    If IsArray(filePaths) = False Then Exit Sub
    
    ' 遍历选中的每个文件
    For i = LBound(filePaths) To UBound(filePaths)
        ' 打开目标文件
        Set wb = Workbooks.Open(filePaths(i))
        ' 在指定单元格插入目标值（示例为第一个工作表的C3，可按需修改）
        wb.Sheets(1).Range("C3").Value = targetValue
        ' 保存修改并关闭文件
        wb.Close SaveChanges:=True
    Next i
    
    MsgBox "批量处理完成！"
End Sub

• 先通过InputBox获取要插入的值，若用户取消输入则直接退出，避免无效操作
• 用Application.GetOpenFilename支持用户一次性选择多个Excel文件，覆盖常见的xls/xlsx/xlsm格式
• 循环遍历每个选中的文件，打开后定位到指定工作表的目标单元格（可根据需求修改Sheets(1)和Range("C3")）
• 插入值后自动保存并关闭文件，最后弹出提示告知处理完成

内容的提问来源于stack exchange，提问作者hamzafj