Home

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 

医保稽核是一份会得罪人的活，还有被打的风险——首先被打的肯定是本科科长，因为他腿不好——有诗云曰：举头三尺有监控，不知监控何时休

一群风风火火想冲业绩的人，风风火火地折腾另一群想岁月静好的人！

架子装太多会变得沉重

​放下能走得更轻松

今天下午和那个经常来电反复问相同问题的参保人聊了一会儿——他讲了一堆社会问题，听完后觉得他说的都对，可以把药让出来了……

我觉得医保应该有一个事前稽核接口，让医疗机构结算前先把数据传到稽核系统先过滤一下——明明白白消费，轻轻松松赚钱。