如何将一个EXCEL中多个工作表的第H列全部顺序复制到另一个EXCEL表格中?
选中所有需写公式的工作表(先点第一个,若工作表是连续的,就按住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编程来完成。
如何将一个工作表的数据导入到另一个工作表
1 如下是一个Excel工作薄中的两张表,分别为Sheet1和Sheet2,下面分别以表1和表2来代替。我们要把表2中的语文成绩导入到表1中,但是从图中可以看出表1和表2名字并不一一对应 2 选中表1,选中C2单元格,即语文项目中第一个要录入的成绩。选择“插入—函数”命令 在“或选择类别”中选择“查找与...
excel表格怎么把一个单元格内的内容复制到另一个??
1个回答 #热议# 为什么有人显老,有人显年轻?深空游戏 2024-09-02 · 百度认证:东莞市深空信息咨询官方账号 深空游戏 向TA提问 关注 展开全部 1、首先打开excel表格,在表格A3单元格中输入一组数据,需要该数据复制到B列一整列中。2、将A3单元格选中按下Ctrl+C执行复制操作,同时选中B列的整列单元格。3...
请问如何将同一个EXCEL中的一列中的某些单元格合并汇总(求和)到另一...
如果这些个单元格 是连续的,那么你就与常规的求和差不多的操作 只不过 你自己去用鼠标选择那些个单元格,而不是用系统自动判断的……就是用工具栏上的求和符号……也可以输入例如 =sum(A5:A9)………
如何将EXCEL表格中的同一列有相同的内容 合并成一个单元格
工具\/材料:EXCEL表格 1.首先打开EXCEL表格,并输入相关的信息到表格里面。2.输完了数据之后,点击导航栏上的数据选项。3.接着在数据一栏中点击高级选项进入。4.然后选择列表区域并勾选图示的选项并点击确定。5.最后就同一列有相同的内容就合并成一个单元格了。
excel如何将同一个单元格的多行内容拆分
1、打开excel2013文档。2、如下图所示一个单元格中有三行内容。3、点击单元格,选择单元格中的内容。4、点击鼠标右键,选择“复制”。5、点击目标单元格,点击鼠标右键,选择“粘贴”。6、内容就会按照三行粘贴了。
如何将一个EXCEL中的多个标签页合并到一个标签页里?
1.首先要有自己的excel数据,并且我们需要的是microsoft excel,WPS没有这些负责的功能。比如下面举例的,有205页的数据需要合并,如图所示。2.看到这么多数据页要合并,如果是复制粘贴的话,工作量就很大了。现在开始合并,首先要在最前页新建一个工作表。如图:3.在新建的sheet表中“右键”,找到“...
excel怎么把横排变竖排
1、打开需要处理的表格,如下图,需要将这一行的数据变成一列。 2、选中数据所在的行,点击鼠标右键,选择『复制』。 3、点击需要粘贴数据的列,点击鼠标右键,选择『选择性粘贴』,再选择『粘贴内容转置』。 4、这样操作下来,原来横排所包含的数据,就变成竖排数据了。 以上就是excel把横排变竖排的教程了,学会了的小...
怎样将excel中的一个单元格拆分为多个单元格?
在Excel中,要将一个单元格拆分为多个单元格,通常指的是合并后的单元格进行“取消合并”操作,然后调整列宽或行高以达到视觉上的拆分效果。由于Excel的单元格是基本的矩形单位,无法直接将一个单元格物理拆分为多个独立的小单元格,但可以通过取消合并和调整尺寸来模拟这一过程。详细 段落1:...
如何将多个不同的excel文件放在一个excel文件里
4、点击了之后再合并文件,合并后就可以点击sheet1,进入到查询编辑器里面。5、进入查询编辑器里面之后就可以看到多个excel合并后的文件,可以在里面将不需要的内容删除,或者是进行其他的编辑。6、编辑完之后,点击左上角的关闭并上载,这样就可以将多个不同的excel文件放在一个excel文件里了。
如何将多个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键,然后点最后一个工作表,这样就可以快速全部选...