初学EXCEL，请教多个工作薄合并的问题！

水平一般

山版一出手就是不一样！问题立马迎刃而解，收藏了！！！！

[此贴子已经被作者于2008-1-27 19:23:09编辑过]

chenwerr

QUOTE:

以下是引用山菊花在2008-1-27 19:04:53的发言：

哇，山斑竹一出手就搞定了，谢谢！ 同时还要感谢帮了我一下午的排骨，平安等，谢谢！

linyuj

先把几个要合并的工作薄全部打开并最小化
然后把每个要合并的工作表按1,2,3顺序编号,把编号最后的工作薄最大化在要插入的工作表名称上右键---移动或复制工作表-----移至最后。其他几个工作表按同样方法操作只是"移至最后"要改为插入下列工作表这前了!

      

排骨先生

QUOTE:

以下是引用山菊花在2008-1-27 19:04:53的发言：

山菊花  版主用的是 VBA 吧？能不能透露点具体的操作，让我们新手也学点本领。

山菊花

QUOTE:

在2008-3-1 21:34:09，dn789给您发送的消息！

有个问题能帮解决一下吗？你这个表中按一下宏（导入键）就可以把其它表导入到本表内，但是本表只能有一个原始表，如果有多个的话就会删除掉，我想能不能不删除原来的表而增加新的表进入，但如果本表中有与要导入的外表名称一致的则自动取代，可以做得到吗？

按Alt+F11，打开代码窗口。

下面是第9行开始的代码：

QUOTE:

On Error Resume Next
For Each Sh In Worksheets
If Sh.Name <> ActiveSheet.Name Then
Sh.Delete
End If
Next

把它改为如下试试：

QUOTE:

On Error Resume Next
For Each Sh In Worksheets
    If Sh.Name <> ActiveSheet.Name Then
        If Dir(ThisWorkbook.Path & "\" & Sh.Name & ".xls") <> "" Then
            Sh.Delete
        End If
    End If
Next

zheng8

我原来做过一个同表式汇总程序,一种是在同一文件内相同格式报表的简单汇总,用公式就能解决,第二种是同一文件相同格式报表的明细汇总,即对同一位置列出每一张报表里的数据,需要用查找引用函数,第三种是不同文件相同格式报表的汇总,用VBA解决，但需要文件名称有规律，而且增加了历史数据比较和时间序列分析功能（曾尝试不用vba未果，主要是查找引用函数不接受文件名变量），第四种是变长表的汇总，但实际工作中用处不大。原来我们单位有一万多家机构，一直用我编的这套东西，后来我参与购买了清华同方的ireport软件，汇总和管理手工报表方便多了，不过这套软件可够贵的。

虽然是我主持编写的程序，但投入了几个人工，所以几年前离开单位时算成公家财产，有公司的LOGO在里面。哎，自认为是我用EXCEL做的最好的东东，可现在自己都不能用也不能外传，又没时间和精力再做一个明显不一样的，够郁闷的。提供上述思路（应该大多数人都知道），有心的朋友很快就可以做出来。

cysan

太好了，我要的也是这个，并且也是为这些股票用的，谢谢！！

yongbin

用"移動或复制"可以嗎?

中茵建设

我不大明白楼主的意思

看你写的好像只要复制粘贴就行了啊

把其他的表都复制到一个表里就OK了

yunli

Sub ºÏ²¢CSV()
Dim i%, r As Long

f0 = ActiveWorkbook.Name
With Application.FileSearch
 .LookIn = "d:\hb"
 .Filename = "*.xls"
 If .Execute() > 0 Then
  For i = 1 To .FoundFiles.Count
   Workbooks.Open Filename:=.FoundFiles(i)
   f1 = ActiveWorkbook.Name
   Cells(65536, 1).Select
   Selection.End(xlUp).Select
   r = ActiveCell.Row
   Rows("1:" & r).Select
   Selection.Copy
   Workbooks(f0).Activate
   Cells(65536, 1).Select
   Selection.End(xlUp).Select
   Cells(ActiveCell.Row + 1, 1).Select
   ActiveSheet.Paste
   Application.CutCopyMode = False
   Workbooks(f1).Close
  Next i
End If
End With
End Sub