VBA
品尚公益团队
致力于公益软件开发,着力于对人们生活品质的改善、工作效率的提高,愿意将我们参与开发的产品免费提供给需要它的人们,为社会提供更尖端、更人性化的产品和服务,成为行业、乃至世界的领先者;
展开
-
excel中vba常规应用
获取文件夹下所有文件的名称。获取工作簿中工作表名称。原创 2022-08-01 22:23:39 · 849 阅读 · 0 评论 -
Excel中VBA实现文件夹表格合并和数据提取
多个文件夹下excel文件的提取复制。获取多个文件夹下文件和文件夹信息。excel数据批量汇总‘原创 2022-08-01 22:21:30 · 2687 阅读 · 0 评论 -
Excel中VBA合并工作表
合并送货单数据Dim k%Dim sh As WorksheetOn Error Resume NextApplication.ScreenUpdating = FalseName = "安智-送货单12.18"MP = "E:\杭实\运营数据\开单电子台账\" & Name & ".xlsx" '工作簿路径 Set Wb = Workbooks.Open(MP) '清空数据last_row_clear = ThisWorkbook.Sheets("送货单").Cel原创 2021-12-29 10:35:19 · 4643 阅读 · 0 评论 -
excel中VBA获取指定单元格内容
1、筛选指定列获取数据For Each Rng In Sheets("目录").Range("b1:B23") Debug.Print Rng.Value If Rng.Value = "个人" Then n = n + 1 Sheets("备注").Cells(n, "g").Resize(1, 5) = Rng.Offset(0, -1).Range("a1:e1").Value Sheets("备注").Cells(n, "g").原创 2021-11-24 22:12:57 · 11684 阅读 · 0 评论 -
Excel中VBA相关类的操作
.综合应用方法Public 条件Private rngsPrivate nDim ccProperty Set 单元格(rng As Range)If rng > 条件 Then n = n + 1 If n = 1 Then Set rngs = rng Set rngs = Union(rngs, rng)End If cc = rngs.AddressEnd PropertyFunction 求和()求和 = WorksheetFunct原创 2021-09-08 08:33:30 · 166 阅读 · 0 评论 -
Excel中VBA相关函数的使用
自定义函数实例-单元颜色求和(字典+自定义函数)Function COLORSUM(单元格区域 As range, 汇总的颜色 As range)Set d = CreateObject("Scripting.Dictionary")For Each Rng In 汇总的颜色 d(Rng.Interior.ColorIndex) = ""NextFor Each ci In d.keys For Each Rng In 单元格区域 If Rng.Interior原创 2021-09-08 08:29:29 · 556 阅读 · 0 评论 -
Excel总VBA相关类模块
VBA操作Excel类模块的综合运用:Public 条件Private rngsPrivate nDim ccProperty Set 单元格(rng As Range)If rng > 条件 Then n = n + 1 If n = 1 Then Set rngs = rng Set rngs = Union(rngs, rng)End If cc = rngs.AddressEnd PropertyFunction 求和()求和 = Wo原创 2021-09-08 08:23:15 · 445 阅读 · 0 评论 -
Excel中VBA操作相关数组和字典
VBA操作Excel中数组分类汇总:Sub VBA数组分类汇总()Dim arr1()arr = [a2:c13]For i = 1 To UBound(arr) ReDim Preserve arr1(1 To 2, 1 To n + 1) For j = 1 To UBound(arr1, 2) If arr1(1, j) = arr(i, 1) Then arr1(2, j) = arr1(2, j) + arr(i, 3)原创 2021-09-08 08:12:54 · 2310 阅读 · 0 评论 -
Excel中VBA操作工作表相关
VBA操作Excel中盘点:Sub 未盘点编码()Dim rng As Range, rngs As Range, k%For Each rng In [a1:a796] For Each rngs In [g1:g175] If rngs = rng Then GoTo 100 End If Next rngs k = k + 1 Cells(k, "h") = rng100:Next rngEnd S原创 2021-09-08 08:07:49 · 742 阅读 · 0 评论 -
Excel中VBA相关工作簿操作
VBA拆分工作簿Sub 拆分到工作簿()Dim wk As Workbook, ss$, k%Application.DisplayAlerts = FalseFor Each sht In Workbooks("2-11.工作簿综合运用(拆分工作簿)").Sheets Set wk = Workbooks.Add k = k + 1 Workbooks(1).Sheets(k).Copy Workbooks(2).Sheets(1) ss = ThisWorkb原创 2021-09-08 07:58:32 · 587 阅读 · 0 评论