如何取得行里全是合并单元格的单元格内数值？

作者：绿色风分类：时间：2022-08-17 浏览：92

楼主
kevinchengcw

Q: 对于工作表中的行都是合并后的单元格，怎样才能正确地循环取得单元格的对应值？
A: 合并单元格，如果用循环的方式取值会无法正确选取单元格，假设一个单元格由一行里的三个单元格合并所得，那么用简单的单元格循环方式可能会取值三次，一个比较有效解决这个问题的方法是用select的方式加offset的配合，这样更具有通用性。
示例代码如下：

Sub test()
Dim M, N As Integer
Dim Str As String
For M = 1 To ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
Cells(M, 1).Select
For N = 1 To ActiveSheet.Cells(M, 256).End(xlToLeft).Column
Str = Str & ActiveCell.Value & ","
Selection.Offset(0, 1).Select
If Selection.Column > ActiveSheet.Cells(M, 256).End(xlToLeft).Column Then Exit For
Next N
Str = Left(Str, Len(Str) - 1) & vbCrLf
Next M
Str = Left(Str, Len(Str) - 2)
MsgBox Str
End Sub

附件为示例文件，可以看出实际应用中的区别。

合并单元格取值.rar

2楼
chenjie520

谢谢分享

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表