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

Excel函数 2023-01-08

在一个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

End Sub

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