轻轻一点，工作簿自动合并。

zbxixi_cn

老师，如何实现在汇总表中从第3行或第四行开始显示汇总结果，即不从第二行开始显示？

zbxixi_cn

试过了，只要修改汇总表中原先的内容就可以了

A羽飞A

终于找到了，激动。

ljpccie

老师您好，我的为什么点击合并后没有数据过来，已经启用宏，能看到下面有打开文件的动作，提示完成后没有显示任何数据。我是想要自定义合并单元格。我覆盖了原来的代码，是不是我覆盖错了？您帮我看看代码好吗？我的是office2007
Sub 按钮1_单击()
   Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%, i As Integer
   Application.ScreenUpdating = False        '冻结屏幕，以防屏幕抖动
   myPath = ThisWorkbook.Path & "\分表\"          '把文件路径定义给变量
   
   myFile = Dir(myPath & "*.xls")            '依次找寻指定路径中的*.xls文件
   Do While myFile <> ""                     '当指定路径中有文件时进行循环
      If myFile <> ThisWorkbook.Name Then
         Set AK = Workbooks.Open(myPath & myFile)          '打开符合要求的文件
         For Each st In Worksheets
If st.Name <> ActiveSheet.Name Then st.UsedRange.Range("e12").Copy [a65536].End(xlUp).Offset(1, 0)
         Next
         Workbooks(myFile).Close False               '关闭源工作簿,并不作修改
      End If
      myFile = Dir                                   '找寻下一个*.xls文件
   Loop
      
   Application.ScreenUpdating = True                 '冻结屏幕,此类语句一般成对使用
   MsgBox "汇总完成，请查看！", 64, "提示"


End Sub

ruivv

学习。。。谢谢LZ

枫桥夜泊lwb

谢谢分享收藏

dousong

太好了，正需要，抱走

xiuer

正需要，非常感谢

smartpan

进来学习一下

dewentan

好东本，研究一下