精华内容
下载资源
问答
  • 1用VBA在Excel中分解合并单元格的代码范例:Sub分解合并单元格并填充()Set已选择的区域=Selection首行=已选择的区域.Row行数=已选择的区域.Rows.CountIf首行+行数-1=65536Then行数=ActiveSheet.UsedRange.Row+...

    1

    VBA

    Excel

    中分解合并单元格的代码范例:

    Sub

    分解合并单元格并填充

    ()

    Set

    已选择的区域

    = Selection

    首行

    =

    已选择的区域

    .Row

    行数

    =

    已选择的区域

    .Rows.Count

    If

    +

    -

    1

    =

    65536

    Then

    =

    ActiveSheet.UsedRange.Row

    +

    ActiveSheet.UsedRange.Rows.Count -

    首行

    + 1

    首列

    =

    已选择的区域

    .Column

    列数

    =

    已选择的区域

    .Columns.Count

    For

    =

    首列

    To

    首列

    +

    列数

    - 1

    Set

    单元格

    = Cells(

    首行

    ,

    )

    =

    首行

    While

    单元格

    .Row <

    首行

    +

    行数

    If

    单元格

    .MergeCells Then

    Set

    合并区

    =

    单元格

    .MergeArea

    合并区

    .UnMerge

    If

    合并区

    .Rows.Count > 1 Then

    合并区

    .FillDown

    =

    +

    合并区

    .Rows.Count

    Else

    =

    + 1

    End If

    Set

    单元格

    = Cells(

    ,

    )

    Wend

    Next

    End Sub

    Sub

    合并相同的单元格

    ()

    Dim Rng As Range, Dic As Object, Arr, N&

    Set Dic = CreateObject("scripting.dictionary")

    '

    创建字典项目

    For Each Rng In Range("b2:b" & Cells(Rows.Count, 2).End(3).Row)

    '

    循环

    B

    列要处理的数据区

    If Rng <> "" Then

    '

    如果单元格不为空

    ,

    If

    Dic.exists(Rng.Value)

    Then

    '

    如果已存在该单元格内容对应的字典项目

    ,

    则将当前单元格与已存

    在内容进行组合

    Set Dic(Rng.Value) = Union(Dic(Rng.Value), Rng)

    Else

    '

    否则进行添加

    Set Dic(Rng.Value) = Rng

    End If

    End If

    Next Rng

    If Dic.Count > 0 Then

    '

    如果字典项目数大于

    0,

    Arr = Dic.keys

    '

    将字典的

    key

    赋值给数组

    Application.DisplayAlerts

    =

    False

    '

    关闭警告信息

    (

    合并单元格时会弹出警告信息

    ,

    通过此命令禁止弹出

    该信息

    )

    展开全文
  • 我曾经写过用 VBA 实现的方法,只要点击一下按钮就能合并区域内的所有连续的相同单元格,详情可参见 Excel VBA(20) – 批量合并单元格。如果不想用 VBA,那么用菜单操作也能快速达成目的。下面来看下案例。案例:...

    快速合并大量单元格,而且每个需要合并区域的单元格数量不固定,难道要一个个手动操作吗?

    我曾经写过用 VBA 实现的方法,只要点击一下按钮就能合并区域内的所有连续的相同单元格,详情可参见 Excel VBA(20) – 批量合并单元格。

    如果不想用 VBA,那么用菜单操作也能快速达成目的。

    下面来看下案例。

    案例:

    批量合并下图 1 中的“班级”,效果如下图 2 所示。

    748df6077cadfe3a6fc3f8fe5ec9f663.png
    9c8b4ebbdc4c40841bd981c2ba2f9ad6.png

    解决方案:

    1. 选中需要合并的单元格区域 --> 按 F5 --> 在弹出的“定位”对话框中点击“定位条件”

    4967be278302bcdf822005fad163981f.png

    2. 在弹出的对话框中选择“空值”--> 点击“确定”

    cdb6d585b7ab48ad6285c07d1836559f.png

    3. 此时就已经选中了区域内的所有空单元格 --> 输入公式“=A2”--> 按 Ctrl+Enter 将公式应用到所有选中区域

    2d62205bf01a93635551e2b09316aeca.gif

    现在表格样式如下,A 列中的所有空白单元格中都填充了班级名。

    fdd27584459d37c16e05b2ab98dd24f8.png

    4. 选中数据表的任意区域 --> 选择菜单栏的“数据”-->“分类汇总”

    aadde3ab52709ef00c8404ea45b3f716.png

    5. 在弹出的“分类汇总”对话框中按以下方式进行设置 --> 点击“确定”

    • 分类字段:选择“班级”
    • 选定汇总项:勾选“班级”
    • 其他所有复选框都不要选
    d546675ed1e4a4c6fcbf67ea68ec0a6d.png

    结果如下,数据表左边多出来一列班级分类汇总列。

    f45c72208fe7d5068c17a98229cd4117.png

    6. 选中 A 列中跟 B 列的班级名称相对应的区域 --> 按 F5 --> 在弹出的“定位”对话框中点击“定位条件”

    82a980cded07f4fdbaa91d322eb35169.png

    7. 在弹出的“定位条件”对话框中选择“空值”--> 点击“确定”

    56697e7f087bbf522c074ff710fd271f.png

    8. 选择菜单栏的“开始”-->“合并后居中”

    92d1c1404354906f14b895adacaade62.png

    所有连续的空单元格就合并起来了。

    ed137bf563f70bc640886457821279c3.png

    9. 选中 A 列中跟 B 列的班级名称相对应的区域 --> 选择菜单栏的格式刷 --> 将格式复制到 B 列需要合并的区域

    665f6a7303a9ca8d5149f55b54e44869.gif
    40dc4f16b67cf26a6b2fa5cb4878d549.png

    10. 选中数据表的任意区域 --> 选择菜单栏的“数据”-->“分类汇总”

    5b96512c126128c492b9eadad2732f85.png

    11. 在弹出的对话框中点击“全部删除”按钮

    0ee64e8c5bb540099b8c940da0928f95.png

    分类汇总列的内容和格式就全都删除了,只留下一个空白列。

    9b91c3a70b9a2649d9bd08389a0d10eb.png

    12. 将 A 列删除 --> 选中“班级”列的内容区域 --> 选择菜单栏的“开始”-->“所有框线”,就完成了最终设置。

    7de119c8ac01740be8bc8f0829f88863.gif
    9c8b4ebbdc4c40841bd981c2ba2f9ad6.png

    很多同学会觉得 Excel 单个案例讲解有些碎片化,初学者未必能完全理解和掌握。不少同学都希望有一套完整的图文教学,从最基础的概念开始,一步步由简入繁、从入门到精通,系统化地讲解 Excel 的各个知识点。

    现在终于有了,以下专栏,从最基础的操作和概念讲起,用生动、有趣的案例带大家逐一掌握 Excel 的操作技巧、快捷键大全、函数公式、数据透视表、图表、打印技巧等……学完全本,你也能成为 Excel 高手。

    展开全文
  • Excel 2016版里,每个工作簿的单元格行数:104 8576,列数:1 6384,单元格个数:104 8576 × 1 6384 = 171 7986 9181 一个单元格内字符容量是32767个字符,实际上,我们根本用不到这么大的容量。 VBA中单元格学习...

    单元格是Excel中最小的一个单位,几个概念的范围大小依次是:工作簿>工作表>行/列>单元格,单元格是我们操作得最多的一类对象。

    Excel 2016版里,每个工作簿的单元格行数:104 8576,列数:1 6384,单元格个数:104 8576 × 1 6384 = 171 7986 9181

    一个单元格内字符容量是32767个字符,实际上,我们根本用不到这么大的容量。

    VBA中单元格学习的重要性:

    (1)大部分的批量操作,都是在操作单元格;

    (2)单元格的表示方法与操作、信息获取方式,是使用VBA编程的基础。

    单元格操作实例之多表内容合并:

    原材料:3张单表+1张汇总表

                       

    目标效果:

    代码实现:

    Sub 多表合并()

    Dim i%, rs%, rss%, st As Worksheet, zdw As Worksheet

    Set zdw= Sheets("整单位")                                '将汇总工作表"整单位"定义为变量zst

    For i = 1 To 3

           Set st = Sheets(i & "部门")                          '将1-3每部门的工作表定义为变量st

           rs = st.UsedRange.Rows.Count                  '计算1-3部门每个表的最后一行

           rss = zdw.UsedRange.Rows.Count + 1         '计算“整单位的最后一行的下一行”

           st.Range("a2:b" & rs).Copy Cells(rss, 1)      '复制每个1-3表的数据到总表中

           Cells(rss, 3).Resize(rs - 1) = i & "部门"         '将1-3表的工作表名写入到总表对应的记录行末尾

    Next
    End Sub

     

     

    展开全文
  • 之前我曾经教过 VBA 和分类汇总的方法,详情请参阅Excel VBA(20) – 批量合并单元格Excel 批量合并单元格,量大且需要合并的行数都不一样今天要教大家另外一种方法,就是我们平时常用的数据透视表。万万没想到,数据...

    虽然我一直不建议合并单元格,但如果老板一定要求合并也没办法。如何批量合并单元格?之前我曾经教过 VBA 和分类汇总的方法,详情请参阅

    • Excel VBA(20) – 批量合并单元格
    • Excel 批量合并单元格,量大且需要合并的行数都不一样

    今天要教大家另外一种方法,就是我们平时常用的数据透视表。万万没想到,数据透视表还能这么玩。

    案例:

    将下图 1 中的相同班级合并单元格,效果如下图 2 所示。

    63bcd577cd4931269892095358e60fc5.png
    3a10c297a444b80ed3be897203295d9c.png

    解决方案:

    先在空单元格中填入相应的班级名。

    1. 选中 A2:A10 区域 --> 按 F5 --> 在弹出的对话框中点击“定位条件”

    16a36fb8d2b3ca0150cf14e0183c6f4b.png

    2. 在弹出的对话框中选择“空值”--> 点击“确定”

    cc403b3ac93356cd1799d1608c36dcc0.png
    76aecfdc95948f32e0831ef32057cc8a.png

    3. 输入“=A2”--> 按 Ctrl+Enter 回车

    cfd00358e4465e24fd1d3bbe3598bea4.png
    928e1ab2f3f7a644710395065b1cfabd.png

    4. 选中数据表的任意单元格 --> 选择菜单栏的“插入”-->“数据透视表”

    a359e64a4b07f4ac2a488663d2be2b4a.png

    5. 本例为了教学方便,我将数据透视表放置在现有工作表中 --> 点击“确定”

    90a7a74aeadc3a89eb250ca28931c628.png

    6. 在右侧的“数据透视表字段”区域,将所有字段顺序拖入“行”区域

    7866e0a36666d06102a3b5f12db42aab.png

    7. 选中数据透视表的任意区域 --> 选择菜单栏的“设计”-->“总计”-->“对行和列禁用”

    f6100a737a048ee8e0a957dac09d2c6b.png

    8. 选择“设计”-->“报表布局”-->“以表格形式显示”

    0fe4990694c396b405d2d942159e6278.png
    9e022b54d77ff77f13096d3cf0847bf7.png

    此时班级的排序是默认按拼音字母顺序排的,我们需要调整为按班级顺序排列。

    9. 选中 E2 单元格 --> 输入“一班”--> 回车

    86836fa3b006195e11fc43f26951e30b.gif
    8354cee1a3a285017349d8213286312a.png

    10. 选中数据透视表的任意区域 --> 右键单击 --> 在弹出的菜单中选择“数据透视表选项”

    6b104cab2da5ae8d4e4c6e18022157af.png

    11. 在弹出的对话框中选择“布局和格式”选项卡 --> 勾选“合并且居中排列带标签的单元格”

    451061c39ad31881ea275a21355b6160.png

    12. 选择“显示”选项卡 --> 取消勾选“显示展开/折叠按钮”--> 点击“确定”

    5d83786203e923a335e5bdbe5ca8d930.png
    6df6a5fca227ced44ac1ab8ab4700d10.png

    13. 选中整个数据透视表区域 --> 选择菜单栏的“所有框线”--> 调整字体和表格列宽

    4ed0776261f397f1605c7185387d1555.png

    单元格就全部合并好了。

    3a10c297a444b80ed3be897203295d9c.png

    很多同学会觉得 Excel 单个案例讲解有些碎片化,初学者未必能完全理解和掌握。不少同学都希望有一套完整的图文教学,从最基础的概念开始,一步步由简入繁、从入门到精通,系统化地讲解 Excel 的各个知识点。

    现在终于有了,以下专栏,从最基础的操作和概念讲起,用生动、有趣的案例带大家逐一掌握 Excel 的操作技巧、快捷键大全、函数公式、数据透视表、图表、打印技巧等……学完全本,你也能成为 Excel 高手。

    展开全文
  • VBA实践+把大纲级别分明的word文档转换成横向从属结构excel表格有一个比较规范的word文档,各级标题大纲级别分明,现在要按照各段落的大纲级别转换到excel中,表格是横向从属结构的,如最左侧的是一级大纲的内容,往...
  • 需求: 根据列合并; 同一列中相邻内容一致的合并成一个单元格, 以变美观 分析: ...出现提示框, 让用户自己输入需要合并的列;... 将此列内容相同的相邻2列或几列, 合并单元格 难点: 合并单元...
  • 04106判断某单元格是否为合并单元格区域的一部分 04107获取单元格区域内的值,并使其矩阵化 04108获取单元格内的前缀字符 04109判断单元格内的数字是否为文本字符 04110获取单元格的格式 04111获取单元格的字体...
  • Excel: 根据颜色数格子

    2021-02-24 20:58:50
    根据需要复制下列代码进模组(2选1)3.1 把合并单元格行数来数3.2 把合并单元格当成1个整体继续4. 使用方法4.1 计算当天单个类别时长4.2 计算当天多个类别时长4.3 计算多天多个类别时长4.4 统计多天多类别总时长 ...
  •   VBA 宏小工具,能快速合并多个工作表或者工作簿的数据,合并支持拷贝数据格式,可指定是否复制表头,可指定复制的起始行,也可显示数据来源那个表格或工作簿,基本上没有复制行数的限制。要求待合并的工作表或...
  • 目录: 1.返回 Column 英文字 2.查询某一值第num次出现的值 ...157.查找合并单元格位置 158.阴阳历转换和阴阳历生日 159.利用数组和Substitute来替换某字符 160.一键创建斜线表头 161.自动获取指定月的工作日
  • 函数作用:获取最后一行行数.........................54 '27.函数作用:判断是否连接在线.........................54 '28.函数作用:币种转换.................................54 '29.函数作用:检验工作表是否有可...
  • 'ExcelHome VBA编程学习与实践 Dim Trow&, k&, arr, brr, i&, j&, book&, a& Dim p$, f$, Rng As Range With Application.FileDialog(msoFileDialogFolderPicker) '取得用户选择的文件夹路径 ....
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    【让合并单元格合理分页】:如果合并单元格已跨页,打印时会造成合并区域的值仅显示在一页中,另一页空白;或者两页各显示一部分,本工具用于调整合并单元格,使其字符同时显示在两页中 【增强版跨越合并】:对选区...
  • Excel百宝箱

    2012-10-27 17:09:21
    【让合并单元格合理分页】:如果合并单元格已跨页,打印时会造成合并区域的值仅显示在一页中,另一页空白;或者两页各显示一部分,本工具用于调整合并单元格,使其字符同时显示在两页中 【增强版跨越合并】:对选区...
  • 【让合并单元格合理分页】:如果合并单元格已跨页,打印时会造成合并区域的值仅显示在一页中,另一页空白;或者两页各显示一部分,本工具用于调整合并单元格,使其字符同时显示在两页中 【增强版跨越合并】:对选区...
  • 【让合并单元格合理分页】:如果合并单元格已跨页,打印时会造成合并区域的值仅显示在一页中,另一页空白;或者两页各显示一部分,本工具用于调整合并单元格,使其字符同时显示在两页中 【增强版跨越合并】:对选区...
  • excel 工具箱

    2012-01-22 15:04:34
    【合并区域自动换行】:可以让具有合并单元格的区域在自动换行与不换行之间自由切换 【建立图片目录】:对指定文件夹下所有图片(GIF、PNG、JPG,JPEG)建立目录,并批量导入 【批量导入图片(精确匹配)】:瞬间导入...
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    【合并区域自动换行】:可以让具有合并单元格的区域在自动换行与不换行之间自由切换 【建立图片目录】:对指定文件夹下所有图片(GIF、PNG、JPG,JPEG)建立目录,并批量导入 【批量导入图片(精确匹配)】:瞬间导入...
  • EXCEL百宝箱8.0终极版

    2011-11-05 16:48:02
    【合并区域自动换行】:可以让具有合并单元格的区域在自动换行与不换行之间自由切换 【建立图片目录】:对指定文件夹下所有图片(GIF、PNG、JPG,JPEG)建立目录,并批量导入 【批量导入图片(精确匹配)】:瞬间导入...
  • 【取消合并还原合并数据】对一列中合并后的单元格取消合并,且恢复合并前所有数据 【合并数据并复制】可以将一个区域的数据直接复制到一个单元格中 【建立图片目录】对指定文件夹下所有图片(GIF、PNG、JPG、JPEG四...
  • excel的使用

    2012-11-25 17:06:01
    2、单元格内容的合并根据需要,有时想把B列与C列的内容进行合并,如果行数较少,可以直接用“剪切”和“粘贴”来完成操作,但如果有几万行,就不能这样办了。解决办法是:在C行后插入一个空列(如果D列没有内容,就...
  • Excel集成工具箱7.0是利用VBA(Visual Basic for Applications)语言编写的增强应用型插件。包括160个菜单功能和100个左右自定义函数,集160个工具于一身,但体积小于15MB。当安装集成工具箱后,如果您使用Excel ...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    Excel集成工具箱6.0是利用VBA(Visual Basic for Applications)语言编写的增强应用型插件。包括160个菜单功能和100个左右 自定义函数,集160个工具于一身,但体积小于15MB。当安装集成工具箱后,如果您使用Excel ...
  • 【插入行数】 对工作表隔行插入行并可以复制标题行,其中对相隔行数、插入行数等可以自定义。 【注解样式】 可以插入多达50种样式的注解,支持随时切换当前注解样式为指定的样式。 【工作表拆分】 将当前工作表的...
  • 【插入行数】 对工作表隔行插入行并可以复制标题行,其中对相隔行数、插入行数等可以自定义。 【注解样式】 可以插入多达50种样式的注解,支持随时切换当前注解样式为指定的样式。 【工作表拆分】 将当前工作表的...
  • 【插入行数】 对工作表隔行插入行并可以复制标题行,其中对相隔行数、插入行数等可以自定义。 【注解样式】 可以插入多达50种样式的注解,支持随时切换当前注解样式为指定的样式。 【工作表拆分】 将当前工作表的...
  • ║ 【条件背景选择】 【插入行数】 【监控单元格修改】 【筛选复制可见】 【关闭所有动画】 ║ ║ 【高级背景】 【注解样式】 【可视化批注】 【选中相同值】 【媒体播放器】 ║ ║ 【高级背景选择】 【工作表拆分】...
  • Excel工具箱教学指导

    2014-03-27 23:07:35
    ║ 【条件背景选择】 【插入行数】 【监控单元格修改】 【筛选复制可见】 【关闭所有动画】 ║ ║ 【高级背景】 【注解样式】 【可视化批注】 【选中相同值】 【媒体播放器】 ║ ║ 【高级背景选择】 【工作表拆分】...
  • ║ 【条件背景选择】 【插入行数】 【监控单元格修改】 【筛选复制可见】 【关闭所有动画】 ║ ║ 【高级背景】 【注解样式】 【可视化批注】 【选中相同值】 【媒体播放器】 ║ ║ 【高级背景选择】 【工作表拆分】...
  • excel百宝箱 正版

    2013-04-04 23:39:28
    ║ 【条件背景选择】 【插入行数】 【监控单元格修改】 【筛选复制可见】 【关闭所有动画】 ║ ║ 【高级背景】 【注解样式】 【可视化批注】 【选中相同值】 【媒体播放器】 ║ ║ 【高级背景选择】 【工作表拆分】...

空空如也

空空如也

1 2
收藏数 31
精华内容 12
关键字:

vba合并单元格行数