Excel VBA：合并单元格并保留所合并单元格的全部数据

在Excel中，使用合并单元格功能时，最后的结果将只是所合并区域左上角单元格中的数据，如图1所示。

然而，很多时候我们都需要在合并的同时也能保留单元格的的数据。下面的程序在合并单元格后将保留合并单元格区域中所有单元格中的数据。

Sub MergeCellsAndValues()Dim rng As Range    Dim strResult As String       On Error Resume Next       For Each rng In Selection       '可以将" "更换为你自已的分隔符号       strResult = strResult & rng.Value & " "   Next rng       strResult= Left(strResult, Len(strResult) - 2)       With Selection        .Clear       .Cells(1).Value = strResult        .Merge       .HorizontalAlignment = xlLeft       .VerticalAlignment = xlCenter       .WrapText = True    End With
End Sub

代码首先遍历所要合并的单元格并将这些单元格中的值连接成一个字符串存储在指定的变量中，示例中使用空格（” ”）来分隔各单元格的数据，你可以修改为其他分隔符，例如逗号。代码运行后的效果如图所示。

Excel VBA：合并单元格并保留所合并单元格的全部数据相关推荐

学习笔记（3):EXCEL VBA编程进阶-2.10 通过方法获取单元格区域
立即学习:https://edu.csdn.net/course/play/2005/31138?utm_source=blogtoedu find速度会比较快
【Excel VBA】轻松搞定数字、文本单元格格式错乱问题
纲举目张说明代码code 使用说明说明在使用Excel的时候最遇到的烦恼就是本来应该是数字的却被认为的文本,导致不能进行计算,本来应该是文本的内容结果被认为是数字,结果显示成了科学计数法,甚至 ...
Excel VBA实例教程 #051：不打开工作簿取得其他工作簿数据
在Excel的使用过程中,经常需要引用其他工作簿的数据,而用户往往希望能在不打开工作簿或看似不打开工作簿的情况下取得其他工作簿中的数据,有以下几种方法可以实现. 1.使用公式如果需要引用的数据不是太 ...
Python代替Excel VBA，原来真的可以
点击上方"Python爬虫与数据挖掘",进行关注回复"书籍"即可获赠Python从入门到进阶共10本电子书今日鸡汤春潮带雨晚来急,野渡无人舟自横. ...
Excel·VBA多条件筛选组合结果
Function strTOF(str$) As Boolean'用于计算字符串判断True/False,默认返回False'适用vba比较运算符:速度比较慢,但通用Dim i&, j& ...
mytrader-开源股票期货金融软件+支持C/C++/Python/Excel/VBA/麦语言的量化分析交易平台
mytrader致力于为量化交易.算法交易.程序化交易以及技术分析爱好者打造最极致的行情分析交易平台. mytrader是一款基于ZQDB构建的量化分析交易平台. mytrader是绿色免安装版本,您 ...
cxgrid 行合并单元格_【Excel VBA】如何批量撤销合并单元格？
周末好,之前我们分享了批量合并单元格的VBA小代码,链接参考: [Excel VBA]如何批量合并相同值单元格? 天下大势合久必分.分久必合.分分合合合合分分又合合合再分分分又又合合合合合合合---- ...
Excel vba开发合并单元格拆分自动填充功能、在每一条数据后面插入空白行、将地理坐标的经纬度转换成度等功能
写在前面: 最近老大丢给我一个数据量比较大,比较复杂的表,让我用VB去处理,刚被分到这个任务的时候一脸茫然,对Excel VB开发一点都不了解,所以就自己研究并查资料,最后终于解决了. 一.Excel ...
[办公应用]如何将excel合并单元格分拆后每个单元格上仍保留数据？
合并单元格虽然美观,但是无法进行排序.筛选等操作. 只有合并单元格拆分后才可以按常规进行统计.但是普通拆分后,excel仅保留合并单元格数据到区域左上角的单元格. 解决方案: 选定多个合并单元格,应用 ...

Excel VBA：合并单元格并保留所合并单元格的全部数据

Excel VBA：合并单元格并保留所合并单元格的全部数据相关推荐

最新文章

热门文章