vba字典合并单元格为空_VBA合并单元格求和处理套路

在Excel中，合并单元格的使用会带来相当令人不爽的麻烦。但其使用率还是蛮高的。

如图，需要对部门的销售额做总计。

Sub 樱桃小丸子()

Dim arr, d As Object, i&, r& '//声明变量

arr = [a1].CurrentRegion '//将数据放进数组

Set d = CreateObject('scripting.dictionary') '//创建字典

For i = 2 To UBound(arr) '//遍历数组元素

'//如果数组元素非空,即合并单元格范围中有数据的单元格,通常是第一个

If arr(i, 1) <> '' Then

'//标记其行号,如部门A的行为2,即r=2

r = i

'//将部门对应的销售额放进字典

d(arr(i, 1)) = arr(i, 3)

Else '//如果合并单元格中的单元格为空

'//根据标记的行号,也就是提取部门名称,并进行字典求和

d(arr(r, 1)) = d(arr(r, 1)) arr(i, 3)

End If

'//输出数据

[e1].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))

End Sub

结果：

vba字典合并单元格为空_VBA合并单元格求和处理套路相关推荐

vba字典合并单元格为空_vba合并单元格并保留值
开发工具选项卡-Visual Basic,在工程窗口右键插入一个模块,将以下代码复制到代码窗口: Sub 合并单元格() Dim n As Integer, i As Integer Applicat ...
EXCEL VBA小白第三课：删除行，合并空白单元格
本文首发于我的知乎和公众号info_star,转载请注明出处. 今天要说的这段代码呢,同样是因为同事妹子有需求而写的. 做数据透视表的时候,经常有一个组里面出现几个分支都有数值的情况,老板要求把数据透 ...
python 2x xlrd使用merged_cells 读取的合并单元格为空
一个简单的excel 如下代码如下 #!/usr/bin/python# # -*- coding: utf-8 -*- import xlrd import sys reload(sys) sys ...
Excel VBA：合并单元格并保留所合并单元格的全部数据
在Excel中,使用合并单元格功能时,最后的结果将只是所合并区域左上角单元格中的数据,如图1所示. 然而,很多时候我们都需要在合并的同时也能保留单元格的的数据.下面的程序在合并单元格后将保留合并单元格 ...
计算机表格单元格合并,excel表格数据拆分和合并单元格-excel中如何将已经合并的单元格拆分，并将该单元格......
Excel怎么把一个合并单元格的内容拆分为几个单元格... 要直接位置得到,则有俩种可能性第一种,合元格是格得来的假合并单元格,单元格都有内容,直接解除合并即可第二种,若确实是真实合并单元格,则需 ...
使用jquery合并表格中相同文本的相邻单元格
一.效果二.代码 <!DOCTYPE HTML> <html> <head><title>Example</title><meta ...
asp单元格合并后宽度没有合并_ElementUI Table组件如何使用合并行或列功能深入解析...
需求,对指定的列表展示进行合并单元格,循环展示指定行和指定列. 1.官方文档通过给table传入span-method方法可以实现合并行或列,方法的参数是一个对象,里面包含当前行row.当前列col ...
jQuery: 合并表格中相同文本的相邻单元格
一.效果二.代码 <!DOCTYPE HTML> <html> <head><title>Example</title><meta ...
php相同数据合并单元格,jQuery_基于jQuery的合并表格中相同文本的相邻单元格的代码，ONE 已经生成的数据表格大致 - phpStudy...
基于jQuery的合并表格中相同文本的相邻单元格的代码 ONE 已经生成的数据表格大致内容如下: 地区地区商品代码商品名称数量有效期至距效期(月) 产品批号规格单位条形码广东深圳 ...

vba字典合并单元格为空_VBA合并单元格求和处理套路

vba字典合并单元格为空_VBA合并单元格求和处理套路相关推荐

最新文章

热门文章