如何将非空列数字串内容叠加为一列并在不同组第一数字串前标识名称？

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

楼主
wjc2090742

Q：如何将非空列数字串内容叠加为一列并在不同组第一数字串前标识名称？E:J为六组数字串，首行为每组数字串的名称。现在，希望将E2:J1000内每组的非空单元格内容，合并叠加到M列。M混合列中，每组的第一个数字串之前的单元格，标记上该组的名称。如下，左图为原始数据示例，右图为效果示例。

A：参考代码：

Sub aaaaaabbbbbbb()
Dim arr(), i%, ar(), j As Byte
arr() = [e1:j1000].Value
For j = 1 To 6
If arr(2, j) = "" Then GoTo 1
m = m + 1
ReDim Preserve ar(1 To 2, 1 To m)
ar(1, m) = arr(1, j)
ar(2, m) = "'" & arr(2, j)
For i = 3 To 1000
If arr(i, j) = "" Then GoTo 2
m = m + 1
ReDim Preserve ar(1 To 2, 1 To m)
ar(2, m) = "'" & arr(i, j)
2: Next i
1: Next j
Range("l:m").Clear
[m1] = "混合"
[l2].Resize(UBound(ar, 2), 2) = WorksheetFunction.Transpose(ar)
End Sub

如何将不同列的非空单元内容合并叠加在同一列.rar

2楼
xyf2210

学学

免责声明

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

评论列表