VBA 批量 替换指定的数据

最新推荐文章于 2024-05-04 19:05:47 发布
最新推荐文章于 2024-05-04 19:05:47 发布
阅读量2.5k 收藏 6
点赞数 1
文章标签： java
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/yangyulong0622/article/details/131918209
版权

使用Excel时，我们需要批量按照某些规则替换数据，ALT+F11，调出VBA编译器，插入-模块-输入如下代码。修改范围和替换前，和替换后，执行即可。代码如下：

Sub ReplaceRangeValues()
 Range("C2:B1000").Replace "111111", "AAA"
 Range("C2:B1000").Replace "222222", "BBB"
 Range("C2:B1000").Replace "3333333", "CCCC"
 Range("C2:B1000").Replace "44444444", "DDDDD"
End Sub
杨忆
关注
  • 1
    点赞
  • 踩
  • 6
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VBA修改跨工作薄替换修改Excel工作表单元格数据
BeijixingVBA的博客
04-30 795
VBA修改跨工作薄替换修改Excel工作表单元格数据
word2010批量修改表格内指定单元格内容（VBA）
03-08
工作中经常遇到对word的批量操作，如果重复的操作达到上百甚至更多后，也是不小的工作量，在此可以使用word的宏来自动执行重复的操作，提高办公效率，特写文档举列说明具体使用
批量替换excel文字
08-11
此工具可以用于批量替换excel表格中指定的文字，此工具可以用于批量替换excel表格中指定的文字
excel&word批量替换vba代码
06-29
需频繁批量替换文档的可以试试，可选定待替换文件夹，替换doc，xls文档，一次性替换多个字符串
excel vba 操作word 替换指定内容并复制到指定文件夹
Yj229的专栏
10-04 841
这段代码主要是解决：替换模板 .doc 中的指定内容1、2、3，并将新生成的文本保存到指定路径下。主要容易出现的问题是，要使用此功能需要在工具-引用中，引用Microsoft Word 16.0 Object Library ，但在实际操作时，此包可能找不到或路径有问题，导致引用不上。所以建议不引用此包，直接将变量替换成数字常量，如：Const wdReplaceAll = 2 ，就能成功运行。
Excel Vba 替换word中的指定内容的方法解释
Yj229的专栏
10-04 1124
WordDoc.Range.Find.Execute findtext:="被替换掉啥", ReplaceWith:="替换成啥", MatchWildcards:=True, Forward:=True, Replace:=wdReplaceAll, Wrap:=wdFindContinue。如果为 True，则只查找匹配的完整单词，而并非作为一个长单词的一部分的文字。wdFindAsk 2 搜索完所选内容或者区域后，Microsoft Word 会显示一条消息，询问是否搜索文档的其他部分。
宏批量替换多个word指定文字
热门推荐
AvenjanCSDN博客
04-27 1万+
1、新建一个word文本，点击”开发工具“菜单下的”宏“按钮（如没有开发工具可点击”视图“下的宏按钮） 2.输入名称后点击”创建“按钮 3.输入如下代码： Sub CommandButton1_Click() Application.ScreenUpdating = False '关闭屏幕闪 Dim myFile$, myPath$, i%, myDoc As Object, myAPP As Object, txt$, Re_txt$ Set myAPP = New Word.App
如何利用VBA批量更改Excel文件的内容
deapou的博客
09-05 9358
心得(5)：利用VBA批量更改Excel文件的内容 问题：因为接受的所有Excel文件都是相同格式的，但是有个单元格的内容就是需要，主办方来更改，如下所示： 获奖级别，得由主办方来更改，但是如果一个一个打开的话这样就很麻烦，（如何把所有文件分为，一等奖，二等奖等各个文件，暂时还不知道，我是通过一个个来排除的）在把他们分开之后，直接利用VBA快速更改， 更改步骤： 首先还是环境配置，避免出现差错...
VBA实现全文件快速替换
神奇的BI
11-02 2278
大家对于VBA处理文本文件并不陌生，`Open`打开文件，`Line Input`逐行读取处理，然后再使用`Print`写入到目标文件，整个过程并不复杂，但是如果源文件数据行数较多，那么逐行读取将花费较多的时间。 VBA内置的打开文本文件的方法，并无法实现读取全部文件内容，借助`FileSystemObject`可以实现一次性快速替换。
VBA宏查找替换目录下所有Word文档中指定字符串
netscaner的专栏
10-29 1158
以前要替换大量文件里面特定名称或者某一错误时，需要逐一打开文件，非常麻烦，所以写了个VBA程序。过了这么多年，突然又要做同样的事情，发现新版本的Word不支持其中的Application.FileSearch了，又找不到合适的工具。只能又学习了新的VBA代码，改写了原来的VBA窗体程序，主要就是用Dir()函数。不支持子目录搜索，要把所有需要查找替换文件放在相同目录里。
VBA：结合查找替换批量检索关键词
qq_64613735的博客
07-18 1867
因为此问题可以结合大学日常用得较多的Excel，作为存储多个关键词的载体。此文便在Excel中写代码，也方便操作。
文本内容 批量替换 很好用的！！
12-05
文本内容 批量替换 很好用的！！
vba:根据一个sheet内容批量替换整个工作簿
01-22
vba:根据一个sheet内容批量替换整个工作簿,vba:根据一个sheet内容批量替换整个工作簿，vba:根据一个sheet内容批量替换整个工作簿，vba:根据一个sheet内容批量替换整个工作簿，vba:根据一个sheet内容批量替换整个工作簿，vba:根据一个sheet内容批量替换整个工作簿，vba:根据一个sheet内容批量替换整个工作簿，vba:根据一个sheet内容批量替换整个工作簿，vba:根据一个sheet内容批量替换整个工作簿
批量替换CAD中的文字
04-26
本文将深入探讨“批量替换CAD中的文字”这一主题，以及如何利用基于AutoCAD的VBA（Visual Basic for Applications）编程来实现这一功能。 首先，CAD软件如AutoCAD允许用户创建、编辑和查看二维和三维设计。在这些...
修改word替换重要代码
04-13
"VBAWord批量替换技术" 在本篇文章中，我们将详细探讨如何使用VBA编程语言来实现Word文档的批量替换功能。我们将从基础知识开始，逐步深入到高级技术，涵盖VBA编程语言的基本概念、Word对象模型、Excel与Word的交互...
用VBA实现批量数据填充到word模板
08-02
本篇我们将深入探讨如何利用VBA来实现批量数据填充到Word模板中。 首先，我们需要了解VBA的基本结构。VBA代码通常包含模块（Module）、子程序（Sub）和函数（Function）。在批量数据填充的场景中，我们可能创建一个...
word批量替换和查找
12-10
在Word文档处理中，批量查找和...总的来说，"word批量替换和查找"这项技术通过宏和VBA为用户提供了强大的文档处理能力，大大提高了工作效率。正确理解和运用这一技巧，可以在处理大量Word文档时节约大量时间和精力。
cad批量查找替换
01-01
在CAD软件中，批量查找替换功能是设计师和工程师提高工作效率的重要手段，尤其对于处理大量图纸和数据时。这个功能允许用户在多个CAD文件中一次性查找并替换特定的对象、文字或属性，而无需逐个文件手动操作。 批量...
VBA 批量处理Excel文件
最新发布
菜鸟记录
05-04 754
⏹VBA 批量处理Excel文件
else 用 vba批量去掉多个文件的公式保留原有数据
07-15
您可以使用VBA编写一个宏来批量去除多个文件中的公式，保留原有数据。以下是一个示例代码： ```vba Sub RemoveFormulas() Dim folderPath As String Dim fileName As String ' 设置文件夹路径 folderPath = "C:\YourFolderPath\" ' 获取文件夹中的所有文件 fileName = Dir(folderPath & "*.xls*") ' 循环处理每个文件 Do While fileName <> "" ' 打开文件 Workbooks.Open folderPath & fileName ' 循环处理每个工作表 For Each ws In ActiveWorkbook.Worksheets ' 禁用计算 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual ' 将所有单元格的公式替换为值 ws.UsedRange.Value = ws.UsedRange.Value ' 启用计算 Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Next ws ' 保存并关闭文件 ActiveWorkbook.Close SaveChanges:=True ' 获取下一个文件 fileName = Dir Loop End Sub ``` 请注意，将 `folderPath` 变量替换为您要处理的文件所在的文件夹路径。此代码将遍历指定文件夹中的所有Excel文件，并将每个工作表中的所有单元格的公式替换为值。最后，保存并关闭每个文件。 在运行宏之前，请确保在Excel中启用了开发人员选项卡，并将宏的安全性设置为允许运行宏。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值