Excel中怎样把多个文本框里面内容比较快的方法复制到同一个文本框?

发布网友发布时间：2022-04-23 06:03

共4个回答

热心网友时间：2023-10-18 02:52

两个方法：
1、三楼的方法可以做到，缺点是组合后的文本没有换行。
2、更好的办法是选中所有要复制的单元格后，拷贝粘贴到Notepad(记事本）里，再将全部内容拷贝粘贴到Excel目标单元格中。粘贴时要点进单元格，出现I光标时再贴，就不会贴到多个格中，而是以内部换行的方式出现在同一格中。

热心网友时间：2023-10-18 02:53

用操作的方法只能一个一个复制粘贴。如果文本框比较多的话，编一段代码还快些。
比如有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,插入一个模块，将下面代码复制进去，然后执行这个宏即可。

热心网友时间：2023-10-18 02:53

全部选中按ctrl+c复制，然后ctrl+v粘贴就可以啦

热心网友时间：2023-10-18 02:54

在要复制到同一个文本框中输 =第一个单元格&第二个单元格&第三个&....最后一个。确定