excel首行固定后怎么复制,固定,复制

1.如何将一张EXCEL表格中某行固定列的数据自动复制到另一个excel

如何将一张EXCEL表格中某行固定列的数据自动复制到另一个excel表格的解决方法如下：

1、公式法，

比如要把sheet1中B2单元格内容复制到sheet2的A1单元格，A1单元格的公式为：=sheet1!B2，如果是连续的可以下拉公式，你说的情况不是连续单元格，就只能这样了

2、编程法，

可以根据你的需要，通过录制或是直接手动输入的方法生成vba程序段，然后通过的手工编辑，从源位置读取数据，然后把内容写到目的位置即可。

2.如何将一个excel文件中多个工作表中的固定一行复制到另一个单独的工

望能告知要复制的固定行号，以及单独工作表开始摆放结果的单元格

如果不便告知，可自行修改下列公式解决问题 。

假设存放结果的工作表从A列开始存放。

=IFERROR(INDIRECT("'3."&ROW($F7)&"'!"&CHAR(COLUMN(B7)+64）&"要拿的固定行的行号"），""）

特别提醒：

=============================================================

1、公式最后【要拿的固定行的行号】需要修改成那行的行号，譬如说想拿的是第13行的内容，那公式就是

=IFERROR(INDIRECT("'3."&ROW($F7)&"'!"&CHAR(COLUMN(B7)+64）&"要拿的固定行的行号"），""）

=====================================================

2、此公式能拿的是3月份的全部表，如果要拿4月份，请把公式从左往右数第一个3字改成4

=======================================

写好一个后向右填充公式，在向下填充公式

3.如何将批量excel表里面的固定行复制到别一个excel表里面

Public excelPath As StringPublic myInt As Integer '公共Public myName As String '公共Sub 合并（） excelPath = "C:\Documents and Settings\***istrator\桌面\" Set s = Application.FileSearch s.LookIn = excelPath s.Filename = "waybilldatalist*.xls" ' 此处更改为共有表名>>>> s.Execute '执行搜索 On Error Resume Next For i = 1 To s.FoundFiles.Count myName = s.FoundFiles(i) myName = Split(myName, "\")(UBound(Split(myName, "\"))) If InStr(myName, "xls") > 0 Then Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open(excelPath + myName) '打开 xlApp.Visible = True '设置EXCEL对象可见（或不可见） Set xlsheet = xlApp.Worksheets(Replace(myName, ".xls"， "")） '设置活动工作表 Cells(2, 1) = CStr(Cells(2, 1) + xlApp.Cells(8, 4)） '操作>>>> xlBook.Save xlBook.Close End If End If Next iEnd Sub上面是模板，你改两个>>>>地方就可以用。

s.Filename = "waybilldatalist*.xls" '要改，不知道你表名是什么Cells(2, 1) = CStr(Cells(2, 1) + xlApp.Cells(8, 4)） '操作部分要改，另外不知道你数据类型，多少列？。