28、VBA零碎技巧，字体设置与合并单元格(零基础入门)

zhezhongyun 2025-06-19 02:09 2 浏览

1、这期比较零碎，讲两个不搭边的技巧；一个字体格式，一个合并和取消合并单元格。前面讲完单元格就应该要讲，但本人觉得系统性不够严谨，有些涉及到的语法还没学习就一直没讲。Excel VBA零基础入门教程到现在已经接近尾声，觉得就在这里插入吧！

2、'Font 对象（font:字体）包含对象的字体属性（字体名称、字号、颜色等等）

Sub font对象属性()
With [a2:a6].Font
.Name = "微软雅黑" '字体
.Size = 8 '字号
.Bold = True '加粗
.Color = RGB(255, 0, 255) '颜色
End With
End Sub

是不是很简单，字体格式设置通常在制作报表时起到美化版面效果。如果配合条件就能够起到提醒、区分等功能。虽然简单，但在文本处理时作用甚大。

以上例子中使用了：With 语句，是引用对象的语句。节省了代码量、看起来简洁很多！

3、合并单元格与取消合并单元格 Merge / un Merge

3-1、合并单元格 Merge 例子

Sub MergeLinkedCell()
Dim r As Integer
Dim i As Integer
Application.DisplayAlerts = False
‘取消刷屏
With Sheet1
‘引用工作表1
r = .Cells(Rows.Count, 1).End(xlUp).Row
‘查找A列非空单元
For i = r To 2 Step -1
‘从下往上遍历
If .Cells(i, 2).Value = .Cells(i - 1, 2).Value Then
‘单元格中文本相同的时
.Range(.Cells(i - 1, 2), .Cells(i, 2)).Merge
‘合并单元格
End If
Next
End With
Application.DisplayAlerts = True
End Sub

3-2、取消合并单元格 UnMerge例子

Sub UnMergeValue()
Dim s As String
For i = 2 To Range("B65536").End(xlUp).Row
dim i从第2行到，第2列的最后一行非空单元格中循环
s = Cells(i, 1).Value
s的值等于 1列i行的值
cnt = Cells(i, 1).MergeArea.Count
cnt=找到第1列i行这个合并单元格由几列组成。
Cells(i, 1).UnMerge
将这个合并单元格进行取消合并
Range(Cells(i, 1), Cells(i + cnt - 1, 1)).Value = s
选择了这个取消合并的区域，结果等于S
i = i + cnt - 1
i要跳到下一个合并单元格的第1行
Next
End Sub

（本章完）你学会了吗？有任何批评或疑问，可以在评论区讨论，谢谢！！

不论你是求知若渴的在校学生，还是在职场摸爬滚打多年的上班族，只要怀揣着提升自我的决心，别犹豫，快点赞、关注、收藏！我会始终站在零基础小白的视角，循序渐进，带你一步步踏入VBA的奇妙世界。

font 属性

上一篇：JavaScript中常用数据类型，你知道几个?
下一篇：山海鲸属性面板二次开发(下):类定义在进阶属性中的深度应用

28、VBA零碎技巧，字体设置与合并单元格(零基础入门)

相关推荐

b端详情页:各种信息聚集地，设计师要如何规划这一亩三分地呢

接口测试遇到500报错?别慌，你的头部可能有点问题

漏洞系列一一看我一招征服漏洞 SSRF

Web前端需要学什么?Web前端开发需要学习哪些?

前端Flex布局可视化布局工具介绍，vue和html5快速设计利器

「资讯」为强迫用户使用Edge浏览器，微软又出新招数

HTML 简介（html简介及优缺点）

HBuilderX，uni-app创建HTML5项目，同时支持浏览器和移动端

关于HTML5被简称做H5，你怎么看?（html5缩写）

现在页面实时聊天都使用Websocket技术实现吗?