如何用VBA选择单元格字符串的中文字符？

作者：绿色风分类：时间：2022-08-17 浏览：126

楼主
wise

Q:如何用VBA选择单元格字符串的中文字符？
A:ALT+F11→插入模块→在模块中输入以下代码：

Sub Test()
'定义变量
Dim str As String
Dim iLen As Integer, I As Integer
Dim rng As Range
'循环当前有内容的单元格
For Each rng In Range("A1").CurrentRegion.SpecialCells(xlCellTypeConstants)
'把单元格的值赋予str
str = rng.Text
'取单元格中的长度
iLen = Len(str)
'循环单元格内容的长度
For I = 1 To iLen
'判断其为文字
If Asc(Mid(str, I, 1)) < 0 Then
'设置文字的格式
With rng.Characters(Start:=I, Length:=1).Font
.Name = "华文细黑"
.FontStyle = "常规"
.Size = 13
.ColorIndex = 42
End With
End If
'循环
Next
'循环
Next
End Sub

如何用VBA在含有有中文字和英文字的单元格仅仅选中文字？.rar

2楼
い卋玑┾宝珼

这个有选择？看代码感觉像是设置中文字的格式哇？

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表