Excel怎样快速每行数据替换不同值 _Excel|2007

修法布施得聪明智慧，多分享让生活更美好。上次分享了《Excel怎样批量替换特殊值并修改其一个字符字体》，介绍了批量替换特殊值并修改其一个字符字体处理方法，如下图每行数据相同数字被替不同数字，如果用替换功能一个一替换，费时费力，那有什么办法快速批量处理？下面介绍快速批量处理方法。 1Excel如何批量替代特别值并点窜其一个字符字体

文章插图

需要这些哦
Microsoft Office Excel 2007
Excel VBA
处置方式/
1起首打开Microsoft Office Excel 2007 ，上图文件另存文件名《Excel如何快速每行数据替代分歧值 .xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以）如图。

文章插图

2然后按下快捷键ALT+F11打开VBE（宏）编纂界面，然后点菜单栏【插入】下拉中列表中点【模块（M）】如图。

文章插图

3然后插入了一个模块1 ，在代码框中复制如下代码：
Sub 批量不异值替代分歧值()
'2020-10-30 22:00:32
Dim myn As String, my1 As Range, my2 As Range, i As Long, j As Long, m1 As String, m2 As String
Dim r As Long, c As Long
On Error GoTo my
Set my2 = Selection
myn = Application.InputBox(prompt:="输入要替代内容（数据中存在的）", Default:=4, Type:=2)
Set my1 = Application.InputBox(prompt:="选择替代为的单位格列区域数据", Type:=8)
r = my1.Count
c = my2.Columns.Count
Application.ScreenUpdating = False
For i = 1 To c
For j = 1 To r
m1 = my1.Cells(j, 1).Text
m2 = my2.Cells(j, i).Text
If m2 <> Replace(m2, myn, m1) Then my2.Cells(j, i).Value = https://vvvtt.com/article/Replace(m2, myn, m1)
Next j
Next i
my:
Application.ScreenUpdating = True
Sub

文章插图

4以上操作动态过程如下：

文章插图

5回到工作表窗口，起首选要替代数据单位格区域，然后运行【批量不异值替代分歧值】宏（菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选该宏名，执行），提醒“输入要替代内容（数据中存在的）” ，默认4 ，确定，再提醒"选择替代为的单位格列区域数据" ，选好后有4单位格被替代响应数值，运行过程如下图。

文章插图

文章插图

6【Excel怎样快速每行数据替换不同值】若是感觉这篇经验帮到了您，请点击下方的 “投票点赞" 或者“保藏”撑持我！还有疑问的话可以点击下方的 “我有疑问” ，感谢啦！

注重事项动态图片要双击当作零丁大图才能播放全过程。

以上内容就是Excel怎样快速每行数据替换不同值的内容啦，希望对你有所帮助哦！