能否批量替换(或是修改)多个excel工作表里的某一单元格的数值吗?
来自： 更新日期：早些时候
能否批量替换多个excel工作表里的所有单元格的某一固定字符吗?~
按CTRL选定工作表之后，修改单元格即可。
CTRL+H
新建一个excel工作薄,按ALT + F11 插入一个模块,将下面的代码复制进去,然后执行(快捷键F5)
Sub replace() '子过程名replace
Dim myDialog As FileDialog, oFile As Object
Dim FSO, myFolder As Object, myFiles As Object
Dim fn$ '定义一些要用到的变量,分别获取文件夹名,文件名
Set FSO = CreateObject("Scripting.FileSystemObject") '创建文件操作
Set myDialog = Application.FileDialog(msoFileDialogFolderPicker) '用对话框获取文件夹路径
With myDialog
If .Show <> -1 Then Exit Sub '如果在文件夹选择时点"取消"则退出过程
Set myFolder = FSO.GetFolder(.InitialFileName) '将文件夹路径赋值到变量
Set myFiles = myFolder.Files '将文件夹内所有文件存入变量数组
For Each oFile In myFiles
Dim strName, strName1, strName2 As String '定义局部变量,检查文件扩展名是否为xls或xlsx
strName = LCase(oFile.Name)
strName1 = VBA.Right(strName, 3)
strName2 = VBA.Right(strName, 4)
If strName1 = "xls" Or strName2 = "xlsx" Then '如果是excel文件,则执行下面的操作
fn = myFolder & oFile.Name '这两句是用来打开文件的
Workbooks.Open Filename:=fn
Worksheets(1).Range("O1") = "280" '修改第一个工作表中的O1单元格的值,如果不是第一个工作表或不是这个区域,请修改之
Application.DisplayAlerts = False '为了防止保存时出现提示信息,关闭提示
ActiveWorkbook.Save '保存活动的工作薄
Application.DisplayAlerts = True '打开提示信息
ActiveWindow.Close '关闭工作蒲
End If
Next '处理下一个文件
MsgBox ("文件处理完成") '处理完文件夹内所有文件时提示操作完成
End With
End Sub
最简单的办法是用VBA，新建一个Excel表，把所有文件名字列入sheet的A列，再把260（或280)放在B1，然后新建一个按键，并添加宏：
Dim appWord As Object
Dim doc As Object
Set appWord = CreateObject("Excel.application")
for i=1 to 1000 '人数的最大值
set doc=appWord.documents.open(cells(i,1))
doc.sheets(1).cells(1,15)=cells(1,2)
doc.close
next i
appWord.Quit
MsgBox ("更改完毕！")
如果时间允许的话，也可以建立一个总表，把260（或280)放在某一个sheet里，然后把其余的用户资料的O1都链接到这个单元格，则当这个单元格改时，其余用户资料的值也会跟着变。这个方法比较费时间
能否批量替换(或是修改)多个excel工作表里的某一单元格的数值吗?视频
相关评论：19255158728：Word中的替换功能是什么意思word中的替换功能是什么意思呀
张将山Word中的替换功能是指用新的文本替换掉已有文本的功能。用户可以选择替换一个或多个特定单词或短语，也可以替换整个文档中的所有内容。该功能可以帮助用户快速修改和编辑文档，避免重复工作，提高工作效率。用户可以利用替换功能实现批量修改书写错误、修改文本格式、进行文本翻译等目的，是一个非常实用的功能。
19255158728：怎样同时批量修改多个word文档
张将山原创回答的方法是：推荐使用 文件批量处理百宝箱V10.0的doc批量处理功能或者批替换功能。先加载待处理的doc文件列表，然后启用主界面的批替换功能卡中对应的功能，或者启用拓展界面的文档批处理功能对应的doc类型的功能即可。
19255158728：EXCEL 如何批量替换多个数值?
张将山可以利用left、len和lenb函数实现：步骤如下：=LEFT(A2,2*LEN(A2)-LENB(A2))注：1、 len（）统计字符长度；lenb（）统计字节长度 2、字母和数字占1个字节，文字占2个字节
19255158728：WPS文字怎样批量修改\/替换“不同”文字
张将山WPS可以通过替换来查询并需要替换的文字。但是如果是图片是不能修改的。
19255158728：word文档怎么批量替换文字(word文档怎么批量替换文字格式)
张将山若要一次性替换所有匹配的文字，可以点击“全部替换”按钮。 完成替换后，关闭对话框，保存文档即可。批量替换技巧 除了基本的查找并替换功能外，我们还可以利用一些技巧来实现更高效的批量替换。1. 使用通配符：在查找时，可以使用通配符来匹配多个字符。例如，使用星号（）代表任意字符，问号（?）代表单个...
19255158728：如何批量修改excel中多项数据 在线急等!!!
张将山批量替换多个Word,Excel文件中信息 很多时候，我们都会将文件保存成Word格式。虽然，Word中已经自带了功能强大的“查找与替换”。但它却无法对多组文件进行操作。而这，就为一款名为“Word Pipe”的小工具提供了用武之地。因为，它就能轻松替换多组Word文件之中的信息。1） 首先，启动Word Pipe软件，...
19255158728：如何批量替换多个excel文件的内容
张将山例：如下图所示的excel文件里，现在我们需要修改A1单元格的值，把A修改成B.操作方法：选取第一个要修改的工作表,按shift键再选取最后一个要修改的工作表，这样就可以把两个工作表和中间的所有工作表全选取了（如果不相邻，可以按ctrl键逐个选取），选取后把当前工作表的A1单元格值A修改成B即可。修改...
19255158728：批量修改多个excel文件内容
张将山excel批量替换不同内容需要先打开excel文件，然后在C列输入SUBSTITITE函数，接着参数选中A2，输入英文输入法的逗号，再用双引号打出要替换的内容，点击B2，按回车键即可，鼠标下拉可替换所有。
19255158728：怎么能批量修改多个EXCEL内容
张将山替换法：选中A列，按 Ctrl + H 打开替换对话框：查找内容：SUB(*)替 换 为：SUB(1)然后单击“全部替换”即可。
19255158728：怎样将word中的数字批量替换
张将山在 Word 中可以利用查找和替换功能批量更改数字格式。以下为具体步骤：1. 打开 Word 文档并选择要更改数字格式的部分。2. 使用快捷键 “Ctrl + H” 直接打开“查找和替换”对话框，或者在“开始”选项卡中找到“查找”命令，然后选择“替换”。3. 在“查找和替换”对话框中，在“查找内容”文本框中...
可以的，在当前的工作表下，按ctrl+H组合键弹出查找和替换对话框，在“查找内容”里输入“-”，
在“替换为”里什么也不输入，然后点全部替换，然后当前的工作表里的“-”全部被删除了
用宏可以解决的。
将这些工作簿放到一个文件夹（只有这些Excel文件，且若打开某一文件，数据就能看见——即不用点其他sheet），建一新Excel，也存到该文件夹。仅打开该新Excel，同时按Alt+F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1) 'find all the excel files
ChDir MyDir
Match = Dir$("")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match, 0 'open
range("B5") = 20
ActiveWindow.Close 1
Match = Dir$
End If
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub
其中，粗体部分的意思是将单元格B5的值修改为20，如果是将A8改为 上海，将其改为Range("A8") ="上海"
注意都是英文符号。
然后在此界面下直接按F5运行此宏，很快完成。
一、直接操作
1、选择多个sheet
ctrl+鼠标点击可以依次选择
按住shift,点击首尾两个sheet，可选择包括两个sheet间的所有sheet。
2、点击其中sheet单元格
3、输入公式或者数值即可。
二、VBA法
VBA方法操作更为灵活，可进行的计算也更加多样。
如下VBA代码将在A1单元格分别填入对应的sheet序号。
Sub AllSheet()
Dim i As Single
For i = 1 To Worksheets.Count
Worksheets(i).Cells(1, 1) = i
Next
End Sub
按CTRL选定工作表之后，修改单元格即可。
CTRL+H
新建一个excel工作薄,按ALT + F11 插入一个模块,将下面的代码复制进去,然后执行(快捷键F5)
Sub replace() '子过程名replace
Dim myDialog As FileDialog, oFile As Object
Dim FSO, myFolder As Object, myFiles As Object
Dim fn$ '定义一些要用到的变量,分别获取文件夹名,文件名
Set FSO = CreateObject("Scripting.FileSystemObject") '创建文件操作
Set myDialog = Application.FileDialog(msoFileDialogFolderPicker) '用对话框获取文件夹路径
With myDialog
If .Show <> -1 Then Exit Sub '如果在文件夹选择时点"取消"则退出过程
Set myFolder = FSO.GetFolder(.InitialFileName) '将文件夹路径赋值到变量
Set myFiles = myFolder.Files '将文件夹内所有文件存入变量数组
For Each oFile In myFiles
Dim strName, strName1, strName2 As String '定义局部变量,检查文件扩展名是否为xls或xlsx
strName = LCase(oFile.Name)
strName1 = VBA.Right(strName, 3)
strName2 = VBA.Right(strName, 4)
If strName1 = "xls" Or strName2 = "xlsx" Then '如果是excel文件,则执行下面的操作
fn = myFolder & oFile.Name '这两句是用来打开文件的
Workbooks.Open Filename:=fn
Worksheets(1).Range("O1") = "280" '修改第一个工作表中的O1单元格的值,如果不是第一个工作表或不是这个区域,请修改之
Application.DisplayAlerts = False '为了防止保存时出现提示信息,关闭提示
ActiveWorkbook.Save '保存活动的工作薄
Application.DisplayAlerts = True '打开提示信息
ActiveWindow.Close '关闭工作蒲
End If
Next '处理下一个文件
MsgBox ("文件处理完成") '处理完文件夹内所有文件时提示操作完成
End With
End Sub
最简单的办法是用VBA，新建一个Excel表，把所有文件名字列入sheet的A列，再把260（或280)放在B1，然后新建一个按键，并添加宏：
Dim appWord As Object
Dim doc As Object
Set appWord = CreateObject("Excel.application")
for i=1 to 1000 '人数的最大值
set doc=appWord.documents.open(cells(i,1))
doc.sheets(1).cells(1,15)=cells(1,2)
doc.close
next i
appWord.Quit
MsgBox ("更改完毕！")
如果时间允许的话，也可以建立一个总表，把260（或280)放在某一个sheet里，然后把其余的用户资料的O1都链接到这个单元格，则当这个单元格改时，其余用户资料的值也会跟着变。这个方法比较费时间
能否批量替换(或是修改)多个excel工作表里的某一单元格的数值吗?视频
相关评论：
张将山Word中的替换功能是指用新的文本替换掉已有文本的功能。用户可以选择替换一个或多个特定单词或短语，也可以替换整个文档中的所有内容。该功能可以帮助用户快速修改和编辑文档，避免重复工作，提高工作效率。用户可以利用替换功能实现批量修改书写错误、修改文本格式、进行文本翻译等目的，是一个非常实用的功能。
张将山原创回答的方法是：推荐使用 文件批量处理百宝箱V10.0的doc批量处理功能或者批替换功能。先加载待处理的doc文件列表，然后启用主界面的批替换功能卡中对应的功能，或者启用拓展界面的文档批处理功能对应的doc类型的功能即可。
张将山可以利用left、len和lenb函数实现：步骤如下：=LEFT(A2,2*LEN(A2)-LENB(A2))注：1、 len（）统计字符长度；lenb（）统计字节长度 2、字母和数字占1个字节，文字占2个字节
张将山WPS可以通过替换来查询并需要替换的文字。但是如果是图片是不能修改的。
张将山若要一次性替换所有匹配的文字，可以点击“全部替换”按钮。 完成替换后，关闭对话框，保存文档即可。批量替换技巧 除了基本的查找并替换功能外，我们还可以利用一些技巧来实现更高效的批量替换。1. 使用通配符：在查找时，可以使用通配符来匹配多个字符。例如，使用星号（）代表任意字符，问号（?）代表单个...
张将山批量替换多个Word,Excel文件中信息 很多时候，我们都会将文件保存成Word格式。虽然，Word中已经自带了功能强大的“查找与替换”。但它却无法对多组文件进行操作。而这，就为一款名为“Word Pipe”的小工具提供了用武之地。因为，它就能轻松替换多组Word文件之中的信息。1） 首先，启动Word Pipe软件，...
张将山例：如下图所示的excel文件里，现在我们需要修改A1单元格的值，把A修改成B.操作方法：选取第一个要修改的工作表,按shift键再选取最后一个要修改的工作表，这样就可以把两个工作表和中间的所有工作表全选取了（如果不相邻，可以按ctrl键逐个选取），选取后把当前工作表的A1单元格值A修改成B即可。修改...
张将山excel批量替换不同内容需要先打开excel文件，然后在C列输入SUBSTITITE函数，接着参数选中A2，输入英文输入法的逗号，再用双引号打出要替换的内容，点击B2，按回车键即可，鼠标下拉可替换所有。
张将山替换法：选中A列，按 Ctrl + H 打开替换对话框：查找内容：SUB(*)替 换 为：SUB(1)然后单击“全部替换”即可。
张将山在 Word 中可以利用查找和替换功能批量更改数字格式。以下为具体步骤：1. 打开 Word 文档并选择要更改数字格式的部分。2. 使用快捷键 “Ctrl + H” 直接打开“查找和替换”对话框，或者在“开始”选项卡中找到“查找”命令，然后选择“替换”。3. 在“查找和替换”对话框中，在“查找内容”文本框中...
