爱问知识人 爱问教育 医院库

哪位能帮我做一个excel单元格自动替换的宏程序

首页

哪位能帮我做一个excel单元格自动替换的宏程序

各位大神,谁能帮我做一个宏程序,让我在对附件中黄色的单元格中的内容进行时,其他单元格中有相同内容的文字同时进行修改。
比如我把B2格中的“XX中压/民用/工商燃气工程”改为“YY工程”,那下面A24、A30、A31、A32、A33单元格中相同字样的内容也全部自动替换为“YY工程”。以此类推。
非常非常感谢

各位大神,谁能帮我做……
提交回答
好评回答
  • 2013-06-21 20:20:52
      完全是按你的要求做的,具体详见附件。
    附件中的代码可以进行一下简化,用以下代码来替换,功能一样。
    Dim xg As Variant
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    xg = Target。
      Value End Sub Private Sub Worksheet_Change(ByVal Target As Range) th = Target(1)。Value If th = xg Then Exit Sub If Intersect(Target(1), [B1:B14]) Is Nothing Then Exit Sub Application。
      
      EnableEvents = False Range("A19:F50")。Replace What:=xg, Replacement:=th, LookAt:=xlPart Application。EnableEvents = True End Sub。

    夏***

    2013-06-21 20:20:52

其他答案

    2013-06-22 07:29:45
  • a24=b2不是更简单

    t***

    2013-06-22 07:29:45

  • 2013-06-21 16:38:21
  • CTRL+H、ALT+N并输入“XX中压/民用/工商燃气工程”、ALT+E并输入“YY工程”、CTRL+A,“确定”,“关闭”,即可将所有单元格的“XX中压/民用/工商燃气工程”字样全部替换为“YY工程”。

    c***

    2013-06-21 16:38:21

  • 2013-06-21 15:54:24
  • 操作方法:
        以将表格中的所有“XX中压/民用/工商燃气工程”替换为“YY工程”为例。
        1、复制需要替换的字符串:将B2单元格作为活动单元格后,将光标放在编辑栏,再将需要替换的字符串“XX中压/民用/工商燃气工程”选中(刷黑)并“复制”,点编辑栏左边的“×”。也可不进行这一步的操作而直接进入第2步的操作,这就需要在代码的运行过程中手工输入需要替换的字符串“XX中压/民用/工商燃气工程”!
        2、运行宏代码:点击“全部替换”按钮后宏代码开始运行,运行过程中按代码提示进行相关操作即可。

    信***

    2013-06-21 15:54:24

  • 2013-06-21 15:23:38
  • 没有必要使用宏,直接使用=即可。

    用***

    2013-06-21 15:23:38

类似问题

换一换
  • 办公软件 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):