VBA怎么把每一列数据合并成一个单元格内容,如图所示。麻烦在代码后面注明一下,方便我修改。谢谢了
2条回答 默认 最新
- 爱吃苦瓜的猿 2022-08-17 10:23关注
这个问题涉及以下知识点
1.vba的for循环
2.vba怎么获取sheet数据区域的最大行号
3.vba中字符串拼接
4.vba数组Sub Demo() Dim i As Integer, j As Integer, msg As String Dim msgArray(5) As String ' 列数 colNum = 5 ' 最后一行的行号 lastLineNum = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row For i = 1 To lastLineNum For j = 1 To colNum msgArray(j) = msgArray(j) & Cells(i, j) Next Next For j = 1 To colNum Cells(j, colNum + 1) = msgArray(j) Next End Sub
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报 编辑记录
悬赏问题
- ¥15 r语言神经网络自变量重要性分析
- ¥15 基于双目测规则物体尺寸
- ¥15 wegame打不开英雄联盟
- ¥15 公司的电脑,win10系统自带远程协助,访问家里个人电脑,提示出现内部错误,各种常规的设置都已经尝试,感觉公司对此功能进行了限制(我们是集团公司)
- ¥15 救!ENVI5.6深度学习初始化模型报错怎么办?
- ¥30 eclipse开启服务后,网页无法打开
- ¥30 雷达辐射源信号参考模型
- ¥15 html+css+js如何实现这样子的效果?
- ¥15 STM32单片机自主设计
- ¥15 如何在node.js中或者java中给wav格式的音频编码成sil格式呢