如何将一个EXCEL中多个工作表的第H列全部顺序复制到另一个EXCEL表格中？

vba如何一键把一个excel表格下多个sheet(sheet的名字不同)的h列同时写上公式？~

选中所有需写公式的工作表（先点第一个，若工作表是连续的，就按住shift，鼠标点最后一个，否则按住ctrl，鼠标依次点各表），又选中h列需写公式的范围输入公式，同时按ctrl+回车即可

选择表一的h到X列，右键复制，选表2，按shift键选表30，选h到X列，右键粘贴，ok

比如将如下图示工作表1、2、3、4，H列合并。

第一种方法：复制、粘贴这个没什么好说的。

第二种方法：利用VBA来实现。

1、按ALT+F11打开VBE编辑器，在工程窗口下的Microsoft Excel对象右键-插入-模块，新建一个模块1，粘贴如下代码：

Option Explicit
Sub columncopy()
Dim c As String, sh As Worksheet, i As Integer, flag As Boolean, b As String, arr, l As Integer, j As Integer, min As Integer, max As Integer
flag = False
c = InputBox("请输入列号，如：A、B、C……", "列号输入（请输入大写字母）")
For i = 1 To Sheets.Count
 If Sheets(i).Name = "第" & c & "列合并数据" Then flag = True
Next
If flag = False Then
Set sh = Worksheets.Add
sh.Name = "第" & c & "列合并数据"
Sheets("第" & c & "列合并数据").Move after:=Sheets(Sheets.Count)
End If
b = InputBox("请指定需合并列的工作表，多张连续表请用“-”隔开，多张不连续表请用“,”隔开，如：1,2,3-5,6等。", "指定工作表（请输入数字)")
arr = Split(b, ",", -1, vbTextCompare)
If Sheets("第" & c & "列合并数据").Range("iv1").End(xlToLeft).Column = 1 Then
 l = Sheets("第" & c & "列合并数据").Range("iv1").End(xlToLeft).Column
Else
 l = Sheets("第" & c & "列合并数据").Range("iv1").End(xlToLeft).Column + 1
End If
For i = 0 To UBound(arr)
 If InStr(arr(i), "-") Then
  min = Split(arr(i), "-", -1, vbTextCompare)(0)
  max = Split(arr(i), "-", -1, vbTextCompare)(1)
  For j = min To max
   Sheets(j).Columns(c & ":" & c).Copy Destination:=Sheets("第" & c & "列合并数据").Cells(1, l)
   l = l + 1
  Next j
 Else
  Sheets(CInt(arr(i))).Columns(c & ":" & c).Copy Destination:=Sheets("第" & c & "列合并数据").Cells(1, l)
  l = l + 1
 End If
Next
End Sub

2、按ALT+F8打开宏对话框窗口，鼠标单击执行columncopy宏。在弹出的“列号输入（请输入大写字母）”对话框中输入所需的列号（比如“H”列），点确定。接着在弹出的“指定工作表（请输入数字)”对话框中按照要求输入所需的工作表（比如：“1,2-3,4”即为第1,2至3,4张工作表），点确定。最后得到如下合并效果：

假设总表为A，50个工作表（sheet）为A1-A50。
1、跨sheet引用法：
（1）把表A1的H1引用到表A的B1单元格里：在表A的B1单元格内输入公式【='A1'!$H1】后回车；
（2）引用表A1的所有H列数据：单击表A的单元格B1，然后将鼠标移动到B1外方框的右下角，鼠标变为一个+号后，摁住左键向下拖拽至行500。表A1的H列数据全部引用到表A；
（3）引用表A2的H列数据：单击表A的单元格B1，然后将鼠标移动到B1外方框的右下角，鼠标变为一个+号后，摁住左键向右拖拽到B2。单击B2，修改公式内容为【='A2'!$H1】后回车。按照（2）的方法引用所有H列数据；
（4）A3-A50的数据引用参照（3）即可。
2、数据复制法：
（1）打开表A1，选中并复制H列的所有数据（假设为H1-H500）；
（2）打开表A，将鼠标放在单元格B1，单击右键点击“选择性粘贴”，在对话框中选中“数值”然后点击确定；
（3）以此类推，将A2-A50的所有H列数据复制到表A的相应位置。

打开你要的处理的文件，表1，也就是第一个表，要是空表，要用来装结果文件的，对了，建议文件先备份。！！！
然后，按ALT + F11，双击SHEET1，在左边靠上角，粘贴以下代码，保存，然后按F5，就好了，
Sub tttt()
Sheets(1).Columns(8).ClearContents
Sheets(1).Cells(1, 8).Value = "结果"
Dim i As Integer
i = i + 1
For i = 2 To 3
If i > 1 Then
Dim j As Integer
j = j + 1
For j = 1 To 1000
If Sheets(1).Cells(j, 8).Value <> "" And Sheets(1).Cells(j + 1, 8).Value = "" Then
Dim n As Integer
n = n + 1
For n = 1 To 500
If n > 0 Then
Sheets(1).Cells(j + 1, 8).Value = Sheets(i).Cells(n, 8).Value
j = j + 1
End If
Next n
End If
Next j
End If
Next i
End Sub
值得注意的是，我只建立的3个表，测试通过，这个数据量很大，建议你也先用2到3张表测试下，确定程序可用后再使用，我只能尽量保证程序的可用性，但本人不对数据造成的任何后果负责。

只能新建一个表格，从50个工作表中复制H项的全部值一个一个复制到那新表格里了，没什么特快速的方法了``

这个除手工之外，只能用VBA编程来完成。

---

大英县19855305107： 怎么把多个excel表格汇总在一个excel表里的多个工作表 - ？
靳澜绿萼： 量特别大的话,就不知道怎么弄了我只知道一种手工的、较快的方法1、打开一个“工作簿”,按住“Ctrl”,点击想要汇集出去的“工作表”,这样就可以选择多个工作表 2、在选择的工作表底部(工作表名区域)右键,在弹出对话框中点“移动或复制工作表” 3、在弹出页面中选择要汇集到的目的“工作簿”以及汇集过去的位置,如果是复制,就选中“建立副本”,否则不选,建议选中

大英县19855305107： 怎么拆分一个excel工作簿中的多个工作表 - ？
靳澜绿萼： Excel工作簿中含有多个工作表,可以通过Excel本身的功能来把工作表分开,具体方法如下: 所需工具: Microsoft Office Excel 2007电脑 详细步骤: 1、首先打开Excel工作簿,可以看到如下图所示的三个工作表. 2、选择“案例1”工作表,右击鼠标,选择“移动或者复制工作表”如图所示: 3、选择之后,出来如下图的界面,勾选“建立副本”,在工作簿需要选择新工作簿如图: 4、点击确定,即可出来新的工作表.如图所示: 5、然后在把这个新建的工作簿另存在电脑,即可完成.

大英县19855305107： 如何将一个 Excel 工作簿中的多个工作表合并成一个工作表 - ？
靳澜绿萼： 1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet12、选择查看代码(PS:excel有着一项,WPS没有)3、将下列代码复制到文本框中:Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, ...

大英县19855305107： excel怎么快速合并多个工作表数据到一个工作表 - ？
靳澜绿萼： 可以利用VBA快速合并单个excel工作簿中的多个工作表(sheet) 软件版本:Office2007 方法如下: 1.当前工作簿中有多个工作表,结构都一样如下所示,当里面的数据不一样,将它们全部合并到当前工作表中: 2.Alt+F11,打开宏界面,输入如下代码: ...

大英县19855305107： 怎么对EXCEL中多个工作表同时进行编辑 - ？
靳澜绿萼： 方法/步骤 将多个EXCEL文件中的工作表,汇总到一个EXCEL中. 举例一:对EXCEL中相邻的多个工作表同时进行以下操作,如“设置单元格格式”.按住Shift键,点击鼠标左键进行操作,在工作簿底部选择相邻的工作表,进行多个工作表的“设置单元格格式”的操作. 举例二:对EXCEL中不相邻的多个工作表同时进行以下操作,如设置“插如一行”.按住Ctrl键,点击鼠标左键进行操作,在工作簿底部选择不相邻的工作表,进行多个工作表的进行“插如一行”的操作.4 举例二:对EXCEL中不相邻的多个工作表同时进行以下操作,如设置“公式”.按住Ctrl键,点击鼠标左键进行操作,在工作簿底部选择不相邻的工作表,进行多个工作表的进行“公式”设置的操作.

大英县19855305107： 如何把excel的多个工作表合并成一个 - ？
靳澜绿萼： 利用excel表的宏计算可以把多个工作表合并成一个.方法如下:工具/原料:多个excel表数据丶microsoft office步骤:1.需要把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel.如图所示:2.用microsoft excel打开...

大英县19855305107： 如何把excel多个工作表合在一起 - ？
靳澜绿萼： 1、新建一个Excel,ALT + F11打开VBA编辑器;2、菜单栏,插入模块;3、粘贴代码:Private Sub merge_sheet() Dim fn$ Dim dir_path$ Dim rs As Worksheet Dim wk As Workbook'需要遍历的目录 dir_path = ＂E:\我的文档\工作\桌面目录\签章...

大英县19855305107： excel怎样把同一个工作簿的多个工作表将其中两个工作表独立成一个工作簿. - ？
靳澜绿萼： 1、有二个工作簿,每一个工作簿中都有若干个工作表,在做合并之前,我们要将这两个工作表打开.2、在其中一个工作簿选择所有的工作表,方法是先选择第一个工作表,按住shift键,然后点最后一个工作表,这样就可以快速全部选中3、当然,你也可以右击任意一工作表,在弹出的菜单中选择“选定全部工作表”选择所有的工作表4、右击工作表标签,在弹出的菜单中选择“移动或复制工作表”在第一个下拉框中选择另一个要合并的工作簿.5、这样就可以快速将当前工作簿的所有工作表合并到另外一个工作簿了

大英县19855305107： excel中如何将多个工作表的内容快速复制整合到同一个工作薄中? - ？
靳澜绿萼： 把 多个工作表 合并到到一张表, 最快捷的方法是用宏处理: 例如 将多个表合并到总计表: 总计 表只留一个标题 右键点 汇总 工作表 标签 ,查看代码, 把如下代码复制进去, F5运行: Sub 工作表合并() For Each st In Worksheets If st....

大英县19855305107： excel怎么把多个工作表合并成一个 - ？
靳澜绿萼： 方法/步骤 如图:有二个工作簿,每一个工作簿中都有若干个工作表,在做合并之前,我们要将这两个工作表打开.在其中一个工作簿选择所有的工作表,方法是先选择第一个工作表,按住shift键,然后点最后一个工作表,这样就可以快速全部选...