表格中同一单元格中怎么将汉字与英文、数字分别设置字体?

表格中同一单元格中怎么将汉字与英文、数字分别设置字体?
山东省
浏览 2427
1
3
分享
3 +1
6
1 +1
全部评论 6
 
会飞的鱼

KVP函数专家、创作者俱乐部成员

或者vba宏,Sub kkkk() Set ra = Range("a1:a6") '要处理的单元格区域 For Each s In ra m = Len(s) For x = 1 To m txt = Mid(s, x, 1) If txt Like "[A-z]" Then fname = "宋体" ElseIf txt Like "[0-9]" Then fname = "等线" Else fname = "黑体" End If s.Characters(x, 1).Font.Name = fname Next Next End Sub
· 辽宁省
1
回复
 
墨云轩

创作者俱乐部成员

单独选中设置是可以的,如果想批量设置,可以将数据复制到WPS文字批量选择设置,然后复制粘贴的WPS表格中即可
· 河北省
回复
 
聂道强

@金山办公

用宏,类似这样:function test() { var rangeAll = Selection; var rangeArr = [...rangeAll]; rangeArr.forEach(rng => { var chars = rng.Characters(); for (var i = 1; i <= chars.Count; i++) { var char = rng.Characters(i, 1); if (/^[\u4E00-\u9FA5]+$/.test(char.Text)) { char.Font.Name = "黑体"; } else if (/^[0-9]+$/.test(char.Text)) { char.Font.Name = "Wingdings"; } else if (/^[a-zA-Z]+$/.test(char.Text)) { char.Font.Name = "汉仪力量黑简"; } } }) }
· 广东省
1
回复
 
单独选中即可
· 浙江省
回复
 
单独选中即可
· 江西省
回复
那如果很多的话只能一个一个改吗?
· 山东省
回复