Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4295|回复: 10

[已解决]如何实现多个数同时替换

[复制链接]
发表于 2015-12-14 11:20 | 显示全部楼层 |阅读模式
本帖最后由 ahooo3 于 2015-12-23 14:49 编辑

如何实现多个数同时替换,谢谢!
最佳答案
2015-12-15 20:20
本帖最后由 today0427 于 2015-12-15 20:21 编辑

  我给你做个附件解释一下我如花大神的意思  在你想要替换的单元格输入如华大神给你写的公式=CHAR(A2+96),然后右拉下拉

多个数同时替换.zip

6.34 KB, 下载次数: 8

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2015-12-14 11:25 | 显示全部楼层
你想在原单元格上替换还是用替换到其他区域?
回复

使用道具 举报

发表于 2015-12-14 11:55 | 显示全部楼层
  1. Sub 替换()
  2. Dim arr, i&, j&
  3. arr = [a3].CurrentRegion
  4. For j = 1 To UBound(arr, 2)
  5.     For i = 1 To UBound(arr)
  6.         If arr(i, j) = 1 Then
  7.             arr(i, j) = "a"
  8.         ElseIf arr(i, j) = 2 Then
  9.             arr(i, j) = "b"
  10.         ElseIf arr(i, j) = 3 Then
  11.             arr(i, j) = "c"
  12.         End If
  13.     Next i
  14. Next j
  15.         
  16. [e3].Resize(UBound(arr), UBound(arr, 2)) = arr

  17. Erase arr

  18. End Sub
复制代码

多个数同时替换.rar

8.65 KB, 下载次数: 9

回复

使用道具 举报

发表于 2015-12-14 12:14 | 显示全部楼层
=CHAR(A2+96)
回复

使用道具 举报

发表于 2015-12-14 12:28 | 显示全部楼层
  1. Sub 替换2()
  2. [a3].CurrentRegion.Copy [e3]
  3. With [e3].CurrentRegion
  4.     .Replace 1, "a"
  5.     .Replace 2, "b"
  6.     .Replace 3, "c"
  7.     '如果有其他的替换要求,按照以上格式在此添加即可
  8. End With
  9. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2015-12-14 12:48 | 显示全部楼层
蝶·舞 发表于 2015-12-14 11:25
你想在原单元格上替换还是用替换到其他区域?

都可以,谢谢!
回复

使用道具 举报

 楼主| 发表于 2015-12-14 12:57 | 显示全部楼层
sry660 发表于 2015-12-14 12:28

初学者,没基础,看不懂。有没有简单的方法。谢谢!
回复

使用道具 举报

 楼主| 发表于 2015-12-14 12:57 | 显示全部楼层
ahooo3 发表于 2015-12-14 12:57
初学者,没基础,看不懂。有没有简单的方法。谢谢!

不好意思。
回复

使用道具 举报

发表于 2015-12-15 20:20 | 显示全部楼层    本楼为最佳答案   
本帖最后由 today0427 于 2015-12-15 20:21 编辑

  我给你做个附件解释一下我如花大神的意思  在你想要替换的单元格输入如华大神给你写的公式=CHAR(A2+96),然后右拉下拉

多个数同时替换.rar

7.27 KB, 下载次数: 7

回复

使用道具 举报

 楼主| 发表于 2015-12-23 14:48 | 显示全部楼层
today0427 发表于 2015-12-15 20:20
我给你做个附件解释一下我如花大神的意思  在你想要替换的单元格输入如华大神给你写的公式=CHAR(A2+9 ...

谢谢!太久没来,回复晚了。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 07:51 , Processed in 1.400337 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表