第1个回答 2009-01-08
用操作的方法只能一个一个复制粘贴。如果文本框比较多的话,编一段代码还快些。
比如有10个文本框,分别是文本框1~文本框10,要将其内容同时复制到文本框11里。
Sub abc()
kkk = ""
For i = 1 To 10
ActiveSheet.Shapes("Text Box " & i).Select
kkk = kkk & Selection.Characters.Text
Next
ActiveSheet.Shapes("Text Box 11").Select
Selection.Characters.Text = kkk
End Sub
Alt+F11,插入一个模块,将下面代码复制进去,然后执行这个宏即可。