随笔分类 - Develop_VBA
摘要：常用操作 删除掉演示数据 ' 自动删除第四行 Rows(4).Select Selection.EntireRow.Delete 已撤销、拒绝 For L = Sheets(1).Range("a65536").End(xlUp).Row To 1 Step -1 If Range("C" & L)
阅读全文
摘要：出差 原版 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表格的某个值来实现，这一步的难点在于两个工作薄是独立的，我们要先打开其中的一个工作薄，然后在此基础上通
阅读全文
摘要：钉钉转金蝶 请假单 需求 自动取值 筛选出未通过，被拒绝的 自动识别跨天并展开 代码 Sub 请假_第一步自动处理并自动取值 () Excel.Application.DisplayAlerts = False '变量wb代表一个工作表，将这个变量声明； Dim wb As Workbook '将打
阅读全文
摘要：offset range 选区域 Sub shishi() Range("a1:a10").Select End Sub Sub shishi() Range("a1:f1").Select End Sub range 选单元格 Sub shishi() Range("a" & 4).Select
阅读全文
摘要：operating workbook FOR循环 普通FOR循环 例题：利用VBA，填充表格内的a1到a10，a1=1，a2=2，a3=3……，以此类推。 Sub shishi() Dim i As Integer For i = 1 To 10 Range("a" & i) = i Next En
阅读全文
摘要：操作工作表 基础 我们可以对表做哪里操作？无非是增删改查，也就是方法 select add delete copy 有哪些信息可以获取？也就是属性； 表的名字，也就name 表的数量，也就是count 关于表的名字？ 我们知道我们可以对表进行重命名，那我们命名的那个名字算是表的名字吗？可以算是，这个
阅读全文
