Home

纯属杜撰[

​日语没有这词

五十音图

假如真向西边扔核弹，那西边肯定要"回礼”的吧，届时、核辐射会影响全球，包括那些为放核弹兴奋鼓舞的人，以及这些人的子孙的都会受影响——那他们兴奋鼓舞个啥！

地球上人类主流科技源于欧美，欧美主流人文，阿门——有机会当然选主流人文环境，当然不管哪种人文都有走向迷信的——非主流 Aming

经常有人找我做事或帮忙时，当我提出看法、需求却收到不耐烦和嘲笑，类似情况也会发生在和家庭成员之间，我一直在思考是不是和我的髋关节有关系，可是那些事也不用用髋关节呀

好.Python，试学试试——活到老学到老，人生要坚持不断学习，才能拥有赖于吵架的底气

所谓的信息技术都是需要时网上瞟来的，因此要求不能过多，过高，过份，要不一起来瞟

Sub 合并当前目录下所有工作簿()
Dim Wb As Workbook
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xlsx")
AWbName = ActiveWorkbook.Name
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
c = ThisWorkbook.Sheets("sheet1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
If c = 1 Then   '防止合并的工作簿第一行空着
c = 0
End If
ActiveSheet.UsedRange.Copy ThisWorkbook.Sheets("sheet1").Cells(c + 1, 1)  '合并工作簿的第一个sheet名字为：sheet1
Wb.Close False
End If
MyName = Dir
 Loop
 Application.ScreenUpdating = True
 MsgBox "已完成"
End Sub