Excel批量替换所有工作表的文本框内容

在使用Microsoft Office Excel时，我们经常需要对文本框中的内容进行替换操作。但是直接使用替换功能是无法批量替换所有工作表中的文本框内容的，逐个修改文本框非常耗时费力。下面将通过一个实例来演示如何快速替换所有工作表中的文本框内容。

实例演示

1. 首先打开Microsoft Office Excel 2007，新建一个文档并保存为文件名《Excel批量替换所有工作表的文本框内容.xlsm》（演示文件）。可以将以下代码复制到任何能够运行宏的工作簿中。

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

3. 在VBE编辑界面中插入一个模块1，并将以下代码复制到代码框中：

Sub 批量替换文本框内容()
    Dim myr As Shape, st As Worksheet, m1, m2
    m1  (prompt:"查找内容", Type:2)
    m2  (prompt:"替换内容", Type:2)
    For Each st In 
        For Each myr In 
            If myr.Type  msoGroup Then myr.Ungroup
        Next myr
        For Each myr In 
            If myr.TextFrame2.TextRange.Text  m1 Then
                myr.TextFrame2.TextRange.Text  m2
            End If
        Next myr
    Next st
End Sub

4. 完成上述操作后，回到工作表窗口。点击菜单栏中的【视图】，然后从下拉列表中选择【宏】，再点击【查看宏(V)】打开宏对话框。在宏对话框中选择刚刚创建的宏名并执行。

5. 在弹出的对话框中，输入要查找的内容，例如“2021年1月9日”，然后点击确定。接着，在下一个对话框中输入要替换的内容，例如“2021年1月10日”，再次点击确定。这样，所有工作表中的文本框中的内容就会被批量替换了。

6. 如果您觉得这篇文章对您有帮助，请点击下方的“投票点赞”或者“收藏”来支持我！如果还有其他疑问，请点击下方的“我有疑问”，谢谢！

修法布施得聪明智慧，多分享让生活更美好

修法布施得聪明智慧，多分享让生活更美好。在Excel中，我们经常需要对文本框中的内容进行替换操作。但是直接使用替换功能是无法批量替换所有工作表中的文本框内容的，逐个修改文本框非常耗时费力。下面将通过一个实例来演示如何快速替换所有工作表中的文本框内容。 例子：所有工作表中的文本框日期替换如图。 1. 首先打开Microsoft Office Excel 2007，新建一个文档并保存为文件名《Excel怎样批量所有工作表的文本框内容替换.xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以）如图。 2. 然后按下快捷键ALT F11打开VBE（宏）编辑界面，然后点击菜单栏【插入】下拉列表中的【模块（M）】如图。 3. 然后插入了一个模块1，在代码框中复制如下代码：

Sub 批量替换文本框内容()
    Dim myr As Shape, st As Worksheet, m1, m2
    m1  (prompt:"查找内容", Type:2)
    m2  (prompt:"替换内容", Type:2)
    For Each st In 
        For Each myr In 
            If myr.Type  msoGroup Then myr.Ungroup
        Next myr
        For Each myr In 
            If myr.TextFrame2.TextRange.Text  m1 Then
                myr.TextFrame2.TextRange.Text  m2
            End If
        Next myr
    Next st
End Sub

4. 以上操作动态过程如图。 5. 回到工作表窗口，运行【批量替换文本框内容】宏（菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选该宏名，执行），提示“查找内容”输入”2021年1月9日“确定，再提示“替换内容”输入“2021年1月10日”确定，所有表文本框变由”2021年1月9日“为“2021年1月10日”，运行过程如图。 6. 如果觉得这篇经验帮到了您，请点击下方的“投票点赞”或者“收藏”支持我！还有疑问的话可以点击下方的“我有疑问”，谢谢啦！

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。