excel怎么把多列内容合并到一列
发布时间：2023-04-02 17:19:23
标签：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
投稿猜你喜欢
如今越来越多的人开始注重保护隐私，就从最日常的浏览网页来说，Win10系统内置的Microsoft Edge浏览器就有InPrivate无痕- win11屏幕刷新率调整不了怎么办？我们经常会因为自己的屏幕参数出现问题，想要修改win11屏幕刷新率，结果发现win11屏幕刷新率调整不了
- 最近使用win10系统的用户反应在浏览器中打开网页的时候出现的【已取消到该网页的导航】的错误提示，无法正常打开网页，该怎么办呢？遇到这样的问
- wps软件一直以来吸引了不少用户前来下载使用，在wps软件中用户可以用来编辑不同类型的文件，给用户带来了很不错的使用体验，因此wps软件拥有
- Windows10的安全模式或是很有效的，偶然我们需要对电脑做少许操纵的时候就需求进入这个模式，如对一些顽固软件或者病毒举行全盘的查杀等等。
- 掌阅怎么wifi传书？掌阅是一款移动阅读分发平台，为用户提供护眼模式、自动阅读、语音朗诵喝WIFI传书等服务。掌阅要怎么wifi传书呢，下面
- Apple发布会公布的M1 Pro 和 M1 Max 不仅将实力超凡的 M1 架构推向新高度，还开创性地将一套 SoC 芯片架构放进专业笔记
- PPT怎么绘制大树图案？在我们日常使用的PPT中，如果想要使用各种图形组合成大树，那么应该如何操作呢？下面小编就为大家带来PPT绘制大树图形
- win10系统每次下载的东西都装在c盘，这让C盘吃不消，那么Win10如何将默认安装C盘改到其他盘中呢呢?今天小编教你们一个简单的解决方法，
- 用户可以使用电脑的内建摄像头或连接到 Mac 的外置摄像机来拍摄单张照片或一组四格照片，或者录制视频。拍照如果用户使用的是外置摄像机，确定它
- 许多用户在使用CAD的时候，经常会接到别人发的图纸，但是有些图纸是存在问题的。这不前不久就有小伙伴问我，自己在接了客户的一个图纸，用自己的C
- 相信很多小伙伴在使用过一段时间的电脑计算机上都会明显的感觉到系统的运行流畅度不如从前了，这是由于系统内的垃圾文件堆积得太多所导致的，下面小编
- 不知道大家有没有遇到这样类似的情况，当你把u盘插入电脑后却出现无法访问I/O设备错误无法进行此项请求，遇到这样的情况该怎么办呢?接下来小编就
- 在使用笔记本电脑连接网络的时候，我们常常会遇到感叹号，这个感叹号代表的是无Internet访问，那么当你遇到电脑无Internet访问怎么办
- Win7旗舰版系统用户在使用电脑过程中，避免不了会出现一些故障，比如说使用过程中出现错误代码0xc000000f，首先我们要知道错误代码0x
- 作为一款热门的办公软件，wps软件可以让用户在编辑文件的类型上多了一些选择性，这是因为wps软件中有着word、excel等热门办公软件强大
- win10系统怎么升级到win10 1049版本？一直传闻的斯巴达浏览器，在1041版本上仍未缺省安装，还是IE11的天下，下面分享详细的升
- Excel中的日期数据经常需要相减，数据日期具体该如何进行相减呢?接下来是小编为大家带来的excel表格日期相减方法，供大家参考。excel
- Word里如何设置编号和文字不分开？很多时候我们都会遇到这样一种情况，就是当我们编号的时候，数字和文字总是会中间隔一大块距离，今天就教大家一
- Windows 10 中自带了非常多的「可选」功能，其中有许多功能仅是为企业网络和服务器准备的，我们可以手动从「Windows 功能」对话框
