在一个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? NextEnd Sub 3.单击属性栏的“运行子过程”,快捷键是F5。关闭代码窗口,返回到excel工作表,可以看到我们想要修改的excel文本框里面的内容已经全部批量修改好了。
……