使用VBA实现Excel合并相同内容的相邻单元格

最新推荐文章于 2024-04-18 08:42:51 发布
VIP文章 最新推荐文章于 2024-04-18 08:42:51 发布
阅读量7.4k 收藏 11
点赞数
分类专栏： windows小技巧 文章标签： excel vba 合并 csv 单元格
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Phoenix_SZX/article/details/44176409
版权

写算法的数据分析时生成了csv文件，为了方便查看需要对部分单元格进行合并。

原始的CSV文件用Excel打开有大量如下形式的子表：


而我希望处理之后变成如下格式：


在网上搜索了很久，大多只能对某一列进行操作，而我需要对整个表格的行列都进行这个操作。

除此之外，因为是数据分析的表格，我还希望只对非数字开头的单元格进行合并，即行列标题。

经过多次尝试，终于在以前从来没用过VBA的情况下把这个问题解决了……
（写程序的过程中发现VBA的if居然没有短路操作，只好一层一层嵌套）


有两个值得注意的地方是，

首先，Excel中合并之后的单元格只有左上角的单元格保存的数值，所以需要从右下角往左上角合并；

其次，如果先合并了列，再合并行的话，会把当前单元格左上

最低0.47元/天 解锁文章
_Meta
关注
  • 0
    点赞
  • 踩
  • 11
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
VBA双击获取合并单元格的内容.xlsm
04-04
VBA双击获取合并单元格的内容.xlsm
Excel按列合并相同相邻单元格和拆分单元格
cy413026的博客
05-15 1637
1.使用vba的方式 1.1合并相同相邻单元格 代码如下： Sub RngMergeCondition() '批量合并单元格 Dim rngUser As Range Dim rngMerge As Range Dim rngSelect As Range Dim i As Long, j As Long Dim lngRowFirst As Long Dim lngClnFirst As Long Dim arr As Variant..
VBA学习笔记6：将多个工作表中满足条件的数据汇总到同一个工作表
weixin_45355881的博客
04-20 3638
VBA学习笔记6：将多个工作表中满足条件的数据汇总到同一个工作表
Excel VBA 中单元格选取
热门推荐
张博在读
05-14 2万+
Option Explicit '1 表示一个单元格(a1) Sub s() Range("a1").Select Cells(1, 1).Select Range("A" & 1).Select Cells(1, "A").Select Cells(1).Select [a1].Select End Sub '2 表示相邻单元格区域 Sub d() '
如何利用VBA代码选择工作表，选择连续区域及选择不连续区域
VBA语言専攻
07-01 752
当前区域是指包含有当前单元格的由空行和空列围绕组成的区域。在该区域中，必须保证区域中的每一行或列中至少有一个存在数据的单元格。这节主要是讲解各种选择在VBA中的实现，如果在EXCEL中，轻点鼠标就可以实现，那么在VBA中是如何实现的呢？我们不可能自己不犯错，就如同你不可能不允许别人犯错，每个人都不是圣人，但即便是圣人，他也有犯错的时候。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“备注：RANGE是单元格，也可以用CELLS(M,N)来代替，其中M是行，N是列。
删除表中重复的记录，相同数据只保留其中一条
qingmengwuhen1的博客
10-13 117
删除developer_report_detail 表中customer_id、cloud_service_type_code、month重复的记录，只保留其中一条。
【VBA】VBA编写的，将一列中相同的内容的行提取出来单独生成文件
ajsyipsc40270的博客
08-10 601
数据如上图所示，点击RUN后的运行结果如下： 得到该文件夹，文件夹内容如上图。 代码如下： Private Sub Command_OLIVER() Dim arr arr = Range("A1:C" & [a65536].End(3).Row) Dim i As Long, wName As String, wP...
javascript动态合并纵向单元格
weixin_34204057的博客
02-12 318
1.需求 合并相邻行内容相同的单元格。 2.概念 rowspan指定单元格纵向跨越的行数。如rowspan被设为3，这表示该单元格必须跨越三行（本身一行，加上另外两行） 3.公共方法 /** * 单元格合并方法,增加rowspan属性 * @param data 要处理的数据 * @param nameList 合并...
超实用Excel VBA工具箱1-合并内容相同的单元格
NanKelgz的博客
06-22 1805
工作中，我们有时会遇到这样一种需求，需要将某一列中内容相同的单元格进行合并。例如下图中，需要将相同的部门进行合并，由表1转换为表2。如果你需要经常处理这种需求，就可以自定义一个功能放到Excel的自定义功能区里。
<ExcelVBA>多行内容合并到同一个单元格
Yogurt_cry的博客
02-01 9577
Sub Test()     With Sheet1         '准备阶段         .Range("C:C").Clear  '清除C列中数据即格式         '定义数据类型         Dim k() As Integer '定义一个整型数组k()，用于存放获取到的数据         Dim ks As Integer '定义一个整型ks，作为整型数组k()的序列号  
VBA实现格式相同的excel文件汇总合并
11-26
VBA实现格式相同的多个excel文件汇总合并，降低人工复制粘贴成本
使用VBA实现EXCEL批量生成图表并发送.pdf
11-19
使用VBA实现EXCEL批量生成图表并发送.pdf
excel批量合并单元格内容.docx
01-14
可以打开Excel文件，用VB编辑器直接导入的文件格式。可以批量合并单元格，批量按行合并单元格和单元格内的文字并居中，类似于方方格子里的一个功能
OpenCV简单画点方法
Phoenix_SZX的专栏
12-31 9202
opencv中的绘图函数里面有画线画矩形画圆的函数，但是居然没有画点的函数。 在网上查了一下很多人都是用line或者circle来画点，但是实际上有更简单高效的方法——直接访问Mat类的像素点信息。 由于平常处理的都是二维图像，很少超过3维，所以cv::Mat中的at方法重载了有2个int参数的版本，用于访问某个像素点的RGB信息。 下面是一个举例： #include #incl
创建使用相对路径的快捷方式
Phoenix_SZX的专栏
05-18 1660
右键单击一个快捷方式 - 单击“属性” - 在“目标”一栏里填写快捷方式的路径，你会发现这个路径不能是以.或..开头的相对路径， 但是在那里填写下面的内容即可轻松实现： %SystemRoot%\explorer.exe "一个绝对路径或相对路径" eg：%SystemRoot%\explorer.exe "..\123"           --双击该快捷方式会在新窗口中打
excel中vlookup查找值必须在table_array的第一列，有其他办法吗有XLOOKUP
u014644574的博客
04-12 264
excel中vlookup查找值必须在table_array的第一列，有其他办法吗有XLOOKUP
Python之Excel合并
最新发布
wenjie20070212的博客
04-18 316
接下来，我们要创建一个函数，它会遍历指定目录下的所有Excel文件，并读取内容。
vba合并某一sheet的A列中相同内容的单元格
07-25
您可以使用以下VBA代码来合并某一工作表的A列中相同内容的单元格： ```vba Sub MergeCells() Dim lastRow As Long Dim rng As Range Dim cell As Range ' 设置要操作的工作表 With ThisWorkbook.Worksheets("Sheet1") '将"Sheet1"替换为您要操作的工作表名称 ' 获取A列的最后一行 lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row ' 遍历A列中的单元格 For Each cell In .Range("A1:A" & lastRow) ' 检查当前单元格与下一个单元格是否相同 If cell.Value = cell.Offset(1, 0).Value Then ' 如果相同，则合并当前单元格和下一个单元格 If rng Is Nothing Then Set rng = cell Else Set rng = Union(rng, cell) End If Else ' 如果不相同，则合并已找到的相同内容的单元格，并清空rng变量 If Not rng Is Nothing Then rng.Merge Set rng = Nothing End If End If Next cell End With ' 合并最后一组相同内容的单元格（如果有） If Not rng Is Nothing Then rng.Merge End If ' 清除格式设置，以便显示合并后的内容 With ThisWorkbook.Worksheets("Sheet1") .Range("A1:A" & lastRow).HorizontalAlignment = xlCenter .Range("A1:A" & lastRow).VerticalAlignment = xlCenter .Range("A1:A" & lastRow).WrapText = True .Range("A1:A" & lastRow).EntireColumn.AutoFit End With End Sub ``` 请将代码中的"Sheet1"替换为您要操作的工作表名称。运行此宏后，代码将遍历A列中的单元格，找到相同内容的单元格并进行合并。最后，代码会清除格式设置，使合并后的内容居中、自动换行并调整列宽以适应内容。 请注意，此代码仅合并相邻的相同内容单元格。如果要合并A列中非相邻的相同内容单元格，您可能需要进行额外的处理。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值