首尾连接列

作者：绿色风分类：时间：2022-08-18 浏览：102

楼主 kanke1	发个首尾连接列数据的小vba，可以实现不同行数的首尾相连，第一次，请指正首尾连接列.zip
2楼 kanke1	第一次发帖，不懂规矩
3楼 0Mouse	或许可以配上截图和代码。代码运行前：代码运行后：代码： Private Sub 首尾连接列_Click() Dim hebinlie As Range Dim i, m As Integer Dim j, a, b, c As Integer Dim qishilie As Integer Dim k As Integer Set hebinlie = Sheet1.Cells(2, 1) '设置数据合并的起始单元格 qishilie = 0 '起始偏移量 a = 2 '起始列号 b = 5 '终止列号 c = 2 '数据起始行号 For j = a To b '列循环 k = 1 '存放行数据个数的行编号 Cells(k, j) = Range(Cells(65536, j).Address).End(xlUp).Row '计算各列数据的最后行编号 m = Cells(k, j) '各列数据行数 For i = c To m '读取某列数据 hebinlie.Offset(qishilie, 0).Value = Cells(i, j).Value '读取某列数据赋值给合并列单元 qishilie = qishilie + 1 '列偏移增加1列，读取后1列数据 m = m + Cells(1, j) '后面一个列数据的起始赋值行编号（前两列行数据相加） Next Next End Sub
4楼 123joki	Superforum

免责声明

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

评论列表