多工作簿汇总

kaili1223

多个工作簿汇总
1、2行是表头
提取每个工作簿sheet1的第3-5行
下面这个代码都是提取了每个表的表头，然后第6行之后没内容的也都提取了
麻烦大神帮忙改改，谢谢


Sub Macro1()
Dim MyPath$, MyName$, sh As Worksheet, sht As Worksheet, m&
Set sh = Activesheet
MyPath =Thisworkbook.Path &"\"
MyName = Dir(MyPath &"*.xls")
Application.screenUpdating=False
Cells.clearContents
Do While MyName <>Nd
If MyName <> Thisworkbook.Name Then
With Getobject(MyPath & MyName)
For Each sht In .sheets
If IsSheetEmpty =IsEmpty(sht.UsedRange) Then
m=m+1
If m = 1 Then
sht.[a1].currentRegion.copy sh.[a1]
Else
sht.[a1].CurrentRegion.copy sh.[a65536].End(xlUp).offset(1)
End If
End If
Next
.Close False
End with
End If
MyName = Dir
Loop
Application.screenUpdating = True

shiruiqiang

sht.[a1] 修改一下

ykcbf1100

几个问题：
1、既然指定只复制工作簿的“Sheet1"表，那就不用表循环；
2、就是2楼说的问题；
3、Do While MyName <>Nd，这里的Nd是啥呢？代码中其它地方也没这个东东啊，没明白

kaili1223

shiruiqiang 发表于 2024-6-26 07:05
sht.[a1] 修改一下

不行哦，运行了还是这个把下面的空行也汇总了

kaili1223

ykcbf1100 发表于 2024-6-26 09:23
几个问题：
1、既然指定只复制工作簿的“Sheet1"表，那就不用表循环；
2、就是2楼说的问题；

我也不太懂，另外一条公式这个位置是<>“”
不知道这个位置代表的是什么

kaili1223

shiruiqiang 发表于 2024-6-26 07:05
sht.[a1] 修改一下

是改成[a3: aa5]吗

ykcbf1100

kaili1223 发表于 2024-6-26 12:02
我也不太懂，另外一条公式这个位置是“”
不知道这个位置代表的是什么

你上个附件，问题应该早就解决了。

kaili1223

ykcbf1100 发表于 2024-6-26 12:18
你上个附件，问题应该早就解决了。

不好意思，添加附件了，麻烦大神帮忙看看怎么汇总在一张表上，感谢感谢

longwin

拷贝3到有数据的最后一行，这样改一下试试：
把这句
sht.[a1].CurrentRegion.copy sh.[a65536].End(xlUp).offset(1)
改成:
sht.Rows("3:" & sht.[b65536].End(xlUp).Row).Copy sh.[a65536].End(xlUp).Offset(1)

ykcbf1100

kaili1223 发表于 2024-6-26 12:40
不好意思，添加附件了，麻烦大神帮忙看看怎么汇总在一张表上，感谢感谢

附件供参考。。。