个人主页

买买买，剁剁剁

我的小尾巴

我的小尾巴呢

十周年了啊

没有咸鱼。不愿意上去被刀来刀去折腾麻烦。如果可以，同城面交最好。深圳地铁沿线。。。

没有咸鱼。不愿意上去被刀来刀去折腾麻烦。如果可以，同城面交最好。深圳地铁沿线。。

没有咸鱼。不愿意上去被刀来刀去折腾麻烦。如果可以，同城面交最好。深圳地铁沿线。

价格出来了7999

vba代码实现。不同表合并，不同合并。
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 ""
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
End Sub

似乎？也许？海鹰？