作者：绿色风
分类：
时间：2022-08-18
浏览：134
楼主
罗刚君 |
1.用VBA完成
2.A1：A100中文本、公数、数组公式都有 |
2楼
罗刚君 |
[EM22] 没人参与下
换一种说法，只一句代码完成以下对话框，怎么做？
当然“第1名、第2名......”是算出来的，而不是直接在代码中罗列出来
 |
3楼
chrisfang |
凑个热闹：
- Sub Myjoin()
- Set MyData = New DataObject
- Range("A1:A100").Copy
- MyData.GetFromClipboard
- Range("b1") = MyData.GetText(1)
- Cells(1, 2).Replace What:=Chr(10), Replacement:="", LookAt:=xlPart
- End Sub
|
4楼
罗刚君 |
已达成需求，不过通过剪贴板转换的效率偏低，而还需要额外引用，还有大大优化的空间。
不过第一人参与，且达成需求，也加分。 |
5楼
chrisfang |
前面昏头了，其实直接用join就ok了：
- Sub myjoin()
- arr = Application.Transpose(Range("a1:a100"))
- stringA = Join(arr, Chr(10))
- MsgBox stringA
- End Sub
|
6楼
kevinchengcw |
- msgbox join(application.transpose([a1:a100]),vbnewline)
|
7楼
wqfzqgk |
上面这个是最简单的 |
8楼
bbwsj |
抢答题耶，刚看见，就已经答完了 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一