标签:excel怎么把多列内容合并到一列
先看一下原始数据,A到E列为单元格数据,需要将每行的非空单元格内容合并到F列存储在一个单元格中,并且用逗号分开。
选择【开发工具】-【插入】- 选择【ActiveX控件】中的按钮。
用鼠标在excel表格中画出一个按钮。
双击该按钮,进入编辑代码模式。
粘贴下列代码:
Private Sub CommandButton1_Click()
Dim n, i, j, m
Dim arr, brr()
n = [a65535].End(xlUp).Row
ReDim brr(1 To n)
arr = Range("A1:E" & n) '其中A1:EN表示的是原始数据区域
For i = 1 To n
For j = 1 To 5 '5表示A到E列是5列
If arr(i, j) <> "" Then
brr(i) = brr(i) & "," & arr(i, j)
End If
Next j
brr(i) = Mid(brr(i), 2, 99)
Next i
[F1].Resize(n, 1) = Application.Transpose(brr) 'F1表示从F1开始输出结果
End Sub
返回excel工作表界面,点击【开发工具】-【编辑模式】按钮退出编辑模式。
点击刚才插入的命令按钮,F列就输出了我们想要的内容。
注意:
只需要更改代码中加标注的原始区域列标和行号及输出结果位置的第一个单元格就可以应用到读者自己实际的工作表中去了。
0
投稿
猜你喜欢
- 在日常的工作中,大家经常会扫描一些资料,但是通过扫描仪扫描出来的文件我们无法对其进行编辑,我们只能通过手工的方式将其录入到电脑中,然后再进行
- 您可以放大Word文档来更仔细地查看文档,也可以缩小文档来查看页面上的更多内容。也可以随某一文档或模板保存特定的显示比例设置。快速显示比例文
- 6月11号,微软公司再次发布win10系统补丁KB450327。这一补丁更新大致上包括:通过故意阻止Windows和不安全的蓝牙设备与使用已
- 我们时常会在Word文档中遇到一些生僻字,也就是不常见,我们不认识的字,不认识那当然也不会读了。其实可以借助Word2010中拼音指南,来帮
- 你手中有一篇图文混排的 Word 文档,想把其中的图片快速提取出来,只要按下面的方法操作就行了。你手中有一篇图文混排的 Word 文档,想把
- 在我们平时使用Word文档办公时,经常会插入各种各样的文本框,有时会碰上文本框太大而文字太少的情况,有时文本框中的文字又显示不全,那么如何实
- caj转换为word方法: 1、在caj阅读器中点击“文件”按钮,在
- word2010开发工具如何显示和关闭呢?我们在默认安装office之后,word2010开发工具并没有在选项卡中勾选出来。如果需要将开发工
- Office 2010出现在微软MSDN网站提供与付费订户下载,现已有网友下载并上传至网盘,在此分享MSDN Office Professi
- 创建书法字帖1.单击“Office 按钮”,执行“新建”命令。2.在“新建文档”对话框中选择“书法字帖”。 图13
- 在日常办公中,会经常用到Word编辑修改文档内容,当你掌握了一些实用的小技巧时,能让你工作效率加倍。今天,给大家整理一些超级实用的小技巧,绝
- Windows Defender是微软为用户推出的断绝防护功效服务,它可以断绝系统不能辨认的凶险应用,不过偶尔咱们自己需求安装正式应用也会被
- 想必大家在制作Word文档的时候都有遇到这种情况,在添加页眉页脚或者插入页码时会出现一条横线。这条横线本身没有什么错,问题是在打印的时候很影
- 相信很多之前使用Win7用户的都知道系统评分怎么操作,随着Win7的停止 维护很多用户升级了Win10。但是升级到Win10系统以后找不到系
- Word2007双击打不开提示向程序发送命令时出现问题,关于这个问题,下面是小编给大家整理的一些有关Word2007双击打不开的解决方法,希
- 解决步骤如下:1、直接打开word的exe文件,不要新建文件后再打开,因为这样新建word文件后打开进入无论做什么都会出现程序未响应。2、进
- 在Win10系统中,是有默认启动时运行语音识别功能的,但是有些用户,不需要这个功能,想要关闭,但是不知道怎么关闭。下面小编就和大家分享一下W
- 不知道各位亲们有没有经历过在电脑开机的时候,系统弹出来windows错误报告占CPU的提示,反正小编是经历过的,那么遇到windows错误报
- ①首先启动Word2003,单击菜单栏--视图--页眉和页脚。 ②将光标定位到页眉页脚里面,然后插入--自动图文集
- word是一款文字处理软件,主要用来编辑文字的(处理文字的字体、段落等格式)、而pdf全称翻译为中文为便捷式文档,主是要为了方便查看。这是二