编写"宏"让Excel自动合并选中单元格内容
时间:2022-04-30 00:54:05
在用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
将上面的宏指定给一个自定义的工具栏按钮。接下来我们就可以测试一下结果了,如在几个不相邻的单元格内依次输入不同的数据(可以是文字、字母或数字),最后选中所有的数据区域,单击刚才自定义的按钮,就可以看到合并的效果了。
标签:编写"宏"让Excel自动合并选中单元格内容
0
投稿
猜你喜欢
Win10memory management蓝屏错误代码怎么解决?
2023-12-13 18:07:34
word2007项目符号和编号之间的互相转换
2023-12-10 13:42:20
有关Office 2010的两件事
2023-10-05 07:43:31
win10蓝屏常见问题汇总
2023-11-09 00:42:21
【强烈推荐】3款免费PDF转Word工具推荐
2022-01-21 03:36:44
Word如何制作等长下划线?
2022-03-03 07:37:53
office各版本的下载安装激活以及卸载,你需要的方法都在这里
2023-11-01 08:42:11
Word中如何删除空白页
2023-12-08 22:25:56
Win10系统怎么删除管理员权限?
2023-11-23 21:17:28
如何巧用word2013将中文字应用西文
2023-12-11 02:40:53
Win10电脑hosts权限无法添加怎么办?
2023-11-23 23:29:45
OneNote文件怎么显示或隐藏基准线?
2023-06-05 13:04:43
Microsoft Office 365安装激活教程 含kms激活工具
2023-06-05 21:08:55
Office2007怎么设置成笔记式文档?
2023-08-03 07:55:33
Word怎么删除页码?Word取消页码教程
2023-07-21 04:16:37
Word清除格式在哪里?Word清除格式使用方法
2023-09-07 14:18:55
word后缀docx与后缀doc有啥区别
2023-05-07 07:12:07
Word文档如何设置网格线
2023-06-20 00:03:00
在Excel中如何只打印表格一部分
2023-07-16 19:14:41
Word文档怎么设置分栏
2022-03-10 22:35:08