编写"宏"让Excel自动合并选中单元格内容
发布时间：2022-04-30 00:54:05
标签：编写"宏"让Excel自动合并选中单元格内容
在用Excel整理表格数据时，希望能够自动合并选中区域内所有单元格的内容，但是Excel软件自带的合并功能无法满足这个要求，应该怎么办呢?
我们可以编写一个“宏”来实现，它可以巧妙地保存选区中所有单元格内的数据，通过循环赋值到一个变量中，最后再将结果输出到合并后的单元格内。
代码如下：
Sub 合并单元格()
'关闭屏幕更新和警告提示
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim i％
'循环统计选中区域的单元格数据并将其合并到StrTotal中
For i = 1 To Selection.Count
StrTotal = StrTotal & Selection.Cells(i)
Next
'设置选区格式
With Selection
.MergeCells = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Value = "'" & StrTotal '在合并数据前加 '号
End With
'恢复屏幕更新和警告提示
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
将上面的宏指定给一个自定义的工具栏按钮。接下来我们就可以测试一下结果了，如在几个不相邻的单元格内依次输入不同的数据(可以是文字、字母或数字)，最后选中所有的数据区域，单击刚才自定义的按钮，就可以看到合并的效果了。
0
投稿猜你喜欢
使用win10系统该如何设置分屏显示呢?如果想要同时进行两个以上的东西比如想打游戏又想看电视操作该如何进行，现在我们有了一种方法叫做分屏显示- Win10不能访问局域网共享提示错误代码“0x80070035”怎么办？共享文件夹访问功能是大家经常需要使用到的，不过有Win10用户遇到局
- Windows 11 开发频道推送了 build 25217 预览版，本文为大家带来了相关介绍以及ISO镜像开放下载，感兴趣的朋友可以下载微
- 据系统部落最新消息，今天微软官方面向 Windows10 用户发布了最新的 KB5017380 更新补丁，内部版本为 19044.2075
- win10c盘用户appdata找不到怎么回事？appdata这个文件夹里存放着系统各种程序的自定义设置数据，因此非常重要，有的win10用
- Windows 10中如何启用关闭事件跟踪程序？其实方法很简单，下文小编就为大家带来详细步骤，一起看看吧当你在常规的Windows
- Excel中经常需要使用到自定义筛选的功能为数据进行筛选，自定义筛选功能具体该如何进行操作呢?下面是由小编分享的excel表格进行自定义筛选
- 大家在用WPS做报告的时候是不是会遇到这种情况，要把表格插入到PPT里面，非常的麻烦，特别是遇到内容多的表格的时候，很费时间，又不方便，那么
- 具体操作如下： 直接在下图C4单元格，输入如下公式：=COUNT(FIND(ROW($A$1:$A$11)-1,B4))注意公式中A1：A1
- 现在市面上有多款重装工具，用户不需要专业的重装知识，就能自己装好系统。有用户使用石大师重装系统工具装完系统之后一直显示请稍等，这是怎么回事？
- ①首先我们打开Excel，我是跟大家演示，所以我随便输入了一些数据来举例。 ②下面，我们要计算出报名人数超过20的
- 编纂 功用 快速键Alt + Delete：删除 以后页Alt + Enter：弹出 工具属性 配置对话框（若 以后没选中 工具，则弹出页面
- 微软公司通过其在操作系统软件研究方面的优势，将计算机的能源利用效益提高到了一种前所未有的高度，官方宣称Windows 7比Vista更省电，
- 电脑长时间不操作的话，就会自动进入休眠模式，不仅节约能源，还能保护设备。但是有时候也会出现一些问题，win10电脑休眠后唤不醒，无论是移动鼠
- 手机热点怎么限制连接设备的数量？很多小伙伴都会用自己的手机分享热点给朋友使用，但又怕连接的人太多，让自己的网络变差，该怎么办呢？下面，小编就
- 浪费了很长时间可谓是呕心沥血之作，却因停电、死机等等意外导致文档损坏或丢失，眼看着自己辛辛苦苦制作的东西就这样付之东流了。只因没有来得及保存
- 如何清理计算机在网络上的所有共享文件？如果用户不取消这些共享文件，就会在网络上一直存在下去，这给计算机带来很多的安全风险，如果你想找到所有的
- 一些刚刚接触Win10系统电脑的朋友想知道有什么使用小技巧，那么系统部落小编下面就来讲讲Win10系统有哪些实用的小技巧，希望朋友们可以认真
- Win8.1继承了Win8的一大特色：开始屏幕，那么你知道网站也可以固定到开始屏幕上吗？固定的网站会在“开始”屏幕上创建一个磁贴，你可以通过
- iOS10.3正式版如何更新？iOS10.3正式版更新了什么内容？iOS10.3正式版都有哪些新功能？哪些设备可以升级iOS10.3正式版？
