作者：绿色风
分类：
时间：2022-08-18
浏览：143
楼主
rongjun |
Q：如何跟据A、B列数据组合生成A-B型序号？
A：1、数组公式解法：
- =INDEX(A:A,SMALL(IF(COLUMN(A:Z)<=B$1:B$5,ROW($1:$5)),ROW()))&LOOKUP(ROW()-1,MMULT(N(ROW($1:$5)>COLUMN(A:E)),B$1:B$5))-ROW()
2、gouweicao78版主的普通公式解法：
- =LOOKUP(ROW()-1,MMULT(N(ROW($1:$5)>COLUMN(A:E)),B$1:B$5),A$1:A$5)&LOOKUP(ROW()-1,MMULT(N(ROW($1:$5)>COLUMN(A:E)),B$1:B$5))-ROW()
3、gvntw版主的VBA解法：
- Sub gvntw()
- Dim i As Integer, j As Integer
- Dim arr()
- Dim c As Range, r As Range
-
- Set c = Range("A1"): Set r = Range("B1")
-
- Do While Not IsEmpty(c) '单元格非空时运行
- For i = 1 To r.Value '循环 1 到 B 列单元格数字
- j = j + 1 '数组添加 1 个元素
- ReDim Preserve arr(1 To j) '重新定义数组大小
- arr(j) = c.Value & "-" & i '数组赋值
- Next
- Set c = c(2): Set r = r(2) '单元格下移一行
- Loop
- Range("f1").Resize(j) = Application.Transpose(arr()) '数组转置后赋值给 E2 开始的单元格区域
- Erase arr '在内存中清除数组
- End Sub
 根据A、B列数据生成A-B序号.rar
|
2楼
mm870515 |
学海无涯 |
3楼
水之歌 |
谢谢分享 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一