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
 

晨思：人生的意义在于感受过程，结果不重要，因为结果都一样——欢迎关注抖音号，有不断更新的吉他弹唱原创歌曲

假如能留下一首能传唱百千年的歌，就像唐诗宋词经久不衰，人生是不是有了不同的意义——很多事情是要天份、认份、缘份的——听自己的歌……

晨思：道理都很简单，人的需求不同，选择性不同，或自私度不同——Aming