摘要：
出差 原版 Sub 出差_合并数据() ' 关闭闪屏和删除时的弹窗 Excel.Application.DisplayAlerts = False Application.ScreenUpdating = False Dim Wb As Workbook '变量wb代表一个工作表，将这个变量声明； 阅读全文
摘要：
钉钉_打卡 代码 Sub 第一步_删除无用的行和列() Excel.Application.DisplayAlerts = False ' 自动删除第四行 Rows(4).Select Selection.EntireRow.Delete '变量wb代表一个工作表，将这个变量声明； Dim wb A 阅读全文
摘要：
Sub 开始执行() MsgBox "此脚本时间执行过长，大约需要12分种左右，请耐心等待…………，在此脚本执行期间，电脑会出现卡顿" Excel.Application.DisplayAlerts = False '变量wb代表一个工作表，将这个变量声明； Dim wb As Workbook ' 阅读全文
摘要：
Sub 第一步_整理数据删除() Excel.Application.DisplayAlerts = False ' 自动删除第四行 Rows(4).Select Selection.EntireRow.Delete '变量wb代表一个工作表，将这个变量声明； Dim wb As Workbook 阅读全文
摘要：
请假 效果 将图一变成图二样式 分析 关于第一个需求:“摆脱手动复制粘贴”，这一步比较好完成，只要找到两个表格的规律，比如A工作薄要取到B工作薄的哪个值，就可以通过for循环加上A表格的某个值等于B表格的某个值来实现，这一步的难点在于两个工作薄是独立的，我们要先打开其中的一个工作薄，然后在此基础上通 阅读全文