excel 批量修改文本框里面的文字内容之方法

在一个excel文档里面，插入了很多文本框，如果批量快速的将文本框里面的某一些文字修改为另外的文字？

比如本文的案例：将excel文档文本框里面的：43278116频道，修改为：69247频道。如果批量迅速修改呢？

这种批量的操作已经超出了excel的常规操作，也就是使用excel内置命令是无法实现批量的，可以借助在VBE里面编写一段小代码实现。

操作方法是：

1.按下ALT+F11，打开VBE代码窗口。

2.双击文本框所在的工作表名称，这里是SHEET1，然后在右边复制下面的代码：

Sub 文本框批量修改文字()

  Dim tb As Object

  For Each tb In ActiveSheet.Shapes

    If tb.Type = msoTextBox Then

      tb.DrawingObject.Caption = Replace(tb.DrawingObject.Caption, "43278116频道", "69247频道")

    End If

  Next

End Sub

3.单击属性栏的“运行子过程”，快捷键是F5。关闭代码窗口，返回到excel工作表，可以看到我们想要修改的excel文本框里面的内容已经全部批量修改好了。