EXCEL VBA 批量替换单元格内容

1、准备数据。

2、选中数据。

3、按ctrl+h组合键。

4、打开替换界面。

5、输入替换内容和要替换的内容。

6、点击全部替换即可。

注意事项：

Office常是制作文档文件的标准，而且有一些其他产品不存在的特性，但是其他产品也有Office缺少的特性。自从Microsoft 2007 Office System开始，有一个和以前版本差异很大的用户界面，该界面被称为Ribbon界面，并沿用在Microsoft Office 2010、Microsoft Office 2013和Microsoft Office 2016中。

~

---

#桑鬼咏# EXCEL中怎么通过宏(VBA)修给单元格内容 -
(19471836122)： 在工作表标签那里——右键——查看代码把下面这代码粘进去,保存,在第一行随便一个单元格点一下,已经改变了.Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Cells().Row = 1 Then Dim lLastColumn As Long lLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To lLastColumn If Cells(1, i) = ＂姓名＂ Then Cells(1, i) = ＂username＂ NextEnd IfEnd Sub

#桑鬼咏# Excel中怎样批量替换大量数据,而且替换的不是整个单元格,仅仅只是单元格中的某些字符串. -
(19471836122)： Sub 替换() For i = 1 To 10000 Cells(i, 1).Replace ＂美国人＂, ＂American＂ Cells(i, 1).Replace ＂日本人＂, ＂Japanese＂ Cells(i, 1).Replace ＂中国人＂, ＂Chinese＂ '还有什么国家按上面的写 Next End Sub

#桑鬼咏# 如何使用EXCEL公式实现某个单元格部分文字替换为另外个单元格的内容? -
(19471836122)： 第一步:打开要替换的xls表格,在表格中定位要替换的单元格.然后点击“替换和选择“下面的查找个替换. 第二步:输入查找内容”J“,替换为的内容”H“,点击替换(注意,只点击一次,不可连续点击).然后关闭替换对话框,即可完...

#桑鬼咏# excel 自动替换内容实现方法 -
(19471836122)： 一、快捷方式:按Ctrl+F打开“查找和替换”对话框并激活“查找”选项卡,按Ctrl+H打开“查找和替换”对话框并激活“替换”选项卡. 二、使用通配符: 在Excel的查找和替换中使用星号“*”可查找任意字符串,例如 查找“Excel* ”可找...

#桑鬼咏# excel vba查找工作簿中所有为日期格式的单元格进行替换 -
(19471836122)： 如果A1的值为2011/12/15,要在2011/12/15的基础上加上5天,可以在B1输入公式: =date(year(a1),month(a1),day(a1)+5)就可以了,如果是月要更改,则为=date(year(a1),month(a1)+X,day(a1)),以此类推

#桑鬼咏# EXCEL为何不能替换单元格里面的内容.用VBA能解决吗? -
(19471836122)： 以下宏将所有A1:A4之间的单元格中,值包含2元的,将2元全改为红色和加下划线.Sub 宏2() For Each c In Worksheets(＂Sheet1＂).Range(＂A1:a4＂) aaa = InStr(1, c.Value, ＂2元＂, vbBinaryCompare) If aaa > 0 Then With c.Characters(Start:=aaa, Length:=2).Font .Underline = xlUnderlineStyleSingle .Color = -16776961 End With End If Next c End Sub

#桑鬼咏# 在EXCEL中,如何用VBA修改单元格内的表达式,也就是替换部分表达式字符 -
(19471836122)： Range(＂a1＂).Formula = Application.WorksheetFunction.Substitute(Range(＂a1＂).Formula, ＂SUM＂, ＂COUNT＂)公式必须用大写字母

#桑鬼咏# excel中一个单元格如何自动替换相应数据 -
(19471836122)： 如果在A2单元格修改,要用VBA 如果不是,=(A1-33)*5+215

#桑鬼咏# excel中有全角字符,比如:“12 等,如何用VBA脚本批量替换? -
(19471836122)： 使用 for next 循环 逐一替换呗!将下面的代码 插入 你的文档 模块中……然后执行 就把工作不中所有的表中的全角变成了半角根据你自己的实际需要修改吧!祝你快乐!Sub test()Dim mycel As RangeFor i = 1 To ActiveWorkbook.Sheets.Count Sheets(i).Select For Each mycel In Sheets(i).UsedRange mycel = WorksheetFunction.Asc(mycel) NextNextMsgBox ＂恭喜你该工作簿中的所有全角字符都已经被替换成半角的了 ＂End Sub

#桑鬼咏# excel vb 批量修改各工作表相同单元格内容 -
(19471836122)： 按下ALT+F11,菜单:插入-模块,复制下列代码.然后按F5运行Sub number()Dim a As Integera = Sheets.CountFor x = 2 To aSheets(x).SelectCells(1, 2).NumberFormatLocal = ＂@＂Cells(1, 2) = Format(8000 + x - 1, ＂00000＂)NextEnd Sub