vba批量修改多个excel内容？
用VBA修改多个Excel指定的内容，需要先循环工作簿，再循环工作表， 然后再循环单元格。
关键是，看你的工作表是不是指定的工作表，你的单元格区域是否固定，如果不固定就得循环，如果固定就先指定。
以下代码你可以看一下行不行。可以使用dir函数来实现工作簿的循环。
其他循环则看具体情况。另外，多个工作簿是在指定目录还是在当前目录，这个也很重要。是否是打开状态也很重要。
代码假定在代码工作簿所在的目录，全部关闭的情况下。
Sub 修改内容()
pth = ThisWorkbook.Path
wbn = Dir(pth & "\*.xls*")
Do While wbn ""
If wbn ThisWorkbook.Name Then
Set wb = Workbooks.Open(pth & "\" & wbn, , False)
For Each st In wb.Worksheets
For Each rg In st.UsedRange
If rg Like "*K1+500*" Then
rg = Replace(rg.Value, "K1+500", "K2+350")
End If
Next
Next
wb.Close True
End If
wbn = Dir
Loop
End Sub
可以试一下。如果不行，要看具体的表才能确定你需要的代码怎么写。
在另个表的sheet里写
依次打开这些excel，查找 厦门分公司 所在的单元格，修改为 福建总部，有多少修改多少
然后关闭，再循环其他excel
Sub 批量操作()
Application.ScreenUpdating = False '//关闭屏幕刷新
Application.DisplayAlerts = False '//关闭系统提示
n = 1
mypath = ThisWorkbook.Path & "\"
myfile = Dir(mypath)
benname = ThisWorkbook.Name
Do While myfile <> ""
If myfile <> ThisWorkbook.Name Then
Workbooks.Open Filename:=mypath & myfile
For i = 1 To Workbooks(myfile).Sheets.Count
[f2] = "10-5"
[h2] = "天宝DINI03"
[j2] = "清晰"
[b3] = "晴天"
[h3] = "微风"
[j3] = "土"
Next
Workbooks(myfile).Close True
End If
myfile = Dir
Loop
Application.ScreenUpdating = True '//恢复屏幕刷新
Application.DisplayAlerts = True '//恢复系统提示
End Sub
繁体xp系统玩简体中文游戏出现乱码,咋办?
解码办法:用E-mail软件,选择编码中Base64 选项就可解码,解码后会消除乱码。 QpencodeQP:全称“Quoted-Printable Content-Transfer-Encoding”。因为这种格式邮件的内容都是ASCII字符集中可以打印的字符,所以名称中含有Printable。大体格式为: =A1A=B1z=A6n=A1I=A7=DA=A6b=BA=F4=B8=F4=A4W ...
微信中的通讯录如何导出
x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto"esrc="https:\/\/iknow-pic.cdn.bcebos.com\/2934349b033b5bb570d685ba3bd3d539b600bc75"\/> 3、完成以上步骤后，会弹出导出确定窗口，点击确定。\/iknow-pic.cdn.bcebos.com\/b21bb051...
中国经济社会如何与传统文化相适应?
02104341457c38cc9f85dabbf855e2d9f573f6768f55613a30edfcd5156b137e12cfedf18f0bb8025e2d9c5a2d94323ba44760e94b7cb040f4e8c29b2033090bb840d501a07ba9a6824b7136029e86b18a1478eb16e735fdaa182075182708d2442d7e922b04941f451b31e6f7704e65bb67c0a7027e13926fd4e2a0496ba0ea13d7e3478e05fb2cfc2b1&p=9839c...
淘宝店铺如何复制宝贝详情页
通过删除原标题中不适合的关键，添加原标题的前后缀，或者替换关键来进行操作；选择原链接中的模板，活动信息等是否要一起复制，如果不需要，勾选过滤内容即可。7.将需要上架的宝贝原链接复制到输入框，点击【复制到仓库】按钮，即可将宝贝上架到自己的店铺了。如果是多个链接，可以用回车键隔开输入。
内码转换器使用后的问题
解码办法:用E-mail软件,选择编码中Base64 选项就可解码,解码后会消除乱码。 QpencodeQP:全称“Quoted-Printable Content-Transfer-Encoding”。因为这种格式邮件的内容都是ASCII字符集中可以打印的字符,所以名称中含有Printable。大体格式为: =A1A=B1z=A6n=A1I=A7=DA=A6b=BA=F4=B8=F4=A4W ...
淘宝网怎么开通卖家
在淘宝上开通卖家，首先需注册淘宝会员名，然后通过支付宝实名认证，淘宝开店认证，认证后即可以点击"免费开店"。其次，在开店前要先找好货源。具体流程为：1、百度搜索淘宝网，点击官网进入。2、在登录页面，输入淘宝账户及密码登录，如果忘记密码，则点击忘记密码，根据页面提示操作。3、进入个人账户页面后...
怎样修改扫描件上的文字?
1、如果想修改扫描件的文字，需要 通过百度搜索下载相关OCR文字识别工具，通过此工具对图片进行文字识别。2、如图所示，安装并运行相应的OCR文字识别软件，点击“读取”按钮，即可从打开 的窗口中选择相应的图片或扫描件。3、待成功打开对应的扫描件文档后，OCR文字识别工具将自动对图片进行识别，在此可以...
怎么用Easyboot软件制作启动光盘,要求很简单,就是系统无法启动时,我...
HCQ9D-TVCWX-X9QRG-J4B2Y-GR2TT 参考资料：http:\/\/hi.baidu.com\/guoguo6688\/blog\/item\/0f0c5bd0317f5d8ba0ec9cc9
0*0047ba00指令引用的0*00e2001c内存.该内存不能为written
批量文件：新建txt文件，复制一下代码，然后保存，接着修改后缀名，把txt改成bat for %1 in (%windir%\\system32\\*.dll) do regsvr32.exe \/s %1 完成后重新启动机器。五、如果你电脑里面存在NET.Framework这个微软的组件服务而你又不使用它→那么卸载这个服务可能会解决问题：开始→设置→控制面板→...
如何根据文件名列表批量搜索文件?
x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto"esrc="https:\/\/iknow-pic.cdn.bcebos.com\/4afbfbedab64034f7b51135ba1c379310b551dca"\/> 3、然后打开文件点击另存为，文件名保存为:新建文档.bat ，此处一定要改后缀为.bat才行...
贾钟硫辛： Sub MultiModi()Dim wb As WorkbookDim ws As WorksheetDim fnfn = Dir(＂盘符:\文件所在的完整路径名\*.xls＂) '取得第一个工作簿的文件名(如果是2007版,则后缀名...
四平市18031113307： 修改excel多个内容相似的文件同一个单元格里的内容 - ？
贾钟硫辛： 操作方法: 选取第一个要修改的工作表,按shift键再选取最后一个要修改的工作表,这样就可以把两个工作表和中间的所有工作表全选取了(如果不相邻,可以按ctrl键逐个选取),选取后把当前工作表的A1单元格值A修改成B即可. 修改后我们再看看其他所有的工作表的值,全变成B了.
四平市18031113307： 一个VBA程序怎么处理多个excel 表格 - ？
贾钟硫辛： 处理多个Excel文件时,将文件依次打开,然后再利用代码处理数据即可 下面代码为打开Excel文件,并提取sheet1中的第一行数据到本表中: Sub main() f = Dir(ThisWorkbook.Path & ＂\*.xlsx＂)'打开制定文件夹中的所有Excel文件 Do While f <> ...
四平市18031113307： 如何使用VBA把一个文件夹里面的全部EXCEL表进行一次性批量替换字符?求程序 - ？
贾钟硫辛： 容易做.但我要源文件.没有数据样式,无法针对性地编程.======================================== 您的问题==我的课题 奉献知识==辉煌生命 黑龙江省 张志晨========================================
四平市18031113307： VBA批量修改excel格式 - ？
贾钟硫辛： VBA批量修改excel格式,可以这样:1、ShapeRange.width=宽 activesheet;chart 22＂).line(＂.ShapeRange.line(＂)可以用以下公式来解决 activesheet;chart 22＂2、activesheet.ShapeRange.line(＂chart 22＂).width=宽 activesheet....
四平市18031113307： 如何批量修改多张Excel表中的sheet名? - ？
贾钟硫辛： '近要求运行下面VBA代码. Sub ReNameSheet() Dim f Dim wb As Workbook '先在桌面建立一个名为EXCEL文件的文件夹,将要修改表名的EXCEL都放到这个文件夹中. f = Dir(＂c:\documents and settings\administrator\桌面\EXCEL文件\*.xls...
四平市18031113307： 如何同时修改多张EXCEL表格 - ？
贾钟硫辛： 用VBA吧,自动依次打开指定文件夹下面所有excel文件,然后按你的要求去依次进行修改. 得知道你要进行什么修改才能说怎么具体怎么做.下面这段代码实现:在“C:\Test”文件夹下面所有...
四平市18031113307： EXCEL VBA 批量替换单元格内容 - ？
贾钟硫辛： '比如 在范围 A1:D100'把下面代码拷贝到后台宏,按F5执行就OK public sub test() FOR EACH S IN RANGE(＂A1:D100＂) if s = ＂one＂ then range(s.address)=＂1＂ if s = ＂Thank you＂ then range(s.address)=＂谢谢＂ if s = ＂me＂ then range(s.address)=＂我＂ next end sub
四平市18031113307： 批处理多个EXCEL的内容 - ？
贾钟硫辛： Sub Macro1() Application.DisplayAlerts = False nopathfilename1 = ActiveWorkbook.Name'统计文件名 pathfile = ＂D:\li＂'统计文件目录 Dim sFolder As String Dim wb As Workbook Dim i As Long With Application.FileSearch .NewSearch .LookIn ...
