返回目录：excel表格制作
只能使用VBA宏代码扩展Excel功能实现：
一、创建一个宏，如图一。
二、给宏添加代码，见图二以及后附代码。
三、设置636f70797a64335快捷键，方便调用，见图三。
四、选中要修改的单元格，按快捷键（如图所设为Ctrl+m）调用该宏对所选单元格里的字符进行设置，见效果图。
附：图一
附：图二
附：图三
附：效果图
附：宏代码
Sub chk()
Dim strKey$, arrKey, strCurKey$
Dim intKey%, dx%, intLengKey%
Dim intBgnPs%, intEndPs%, intSetLeng%, intTmp%, intTmpLen%
Dim strUnitVal$
Dim sc As Range
strKey = "小区,楼,单元,号" '分割关键字，根据需要修改
arrKey = Split(strKey, ",")
intKey = UBound(arrKey)
For Each sc In Selection
'纯数字时，将单元格数据转换为文本格式
' sc.NumberFormatLocal = "@"
'当前单元格数据及格式定义
strUnitVal = sc.Value
ln = Len(Trim(strUnitVal))
sc.FormulaR1C1 = strUnitVal
For dx = 0 To intKey
'设置字体的字符串在当前单元格字符串中的开始位置
If dx = 0 Then
intBgnPs = 1
Else
intBgnPs = intEndPs + intLengKey
End If
'识别关键字及长度
intTmpLen = intLengKey
strCurKey = arrKey(dx)
intLengKey = Len(strCurKey)
'字符串截取结束后一位
intTmp = intEndPs
intEndPs = InStr(1, strUnitVal, strCurKey)
If intEndPs <> 0 Then
'设置字体的字符串截取长度
intSetLeng = intEndPs - intBgnPs
'设置单元格内符合条件的字符串字体
'SheetCalculate.Shadow = strUnitVal
With sc.Characters(Start:=intBgnPs, Length:=intSetLeng).Font
.Name = "黑体" '设置字体
.Color = vbRed '设置颜色
End With
Else
intEndPs = IIf(intTmp = 0, 1, intTmp) '找不到当前关键字时，从上个关键字位置计算
intLengKey = intTmpLen
End If
Next dx
Next sc
Exit Sub
End Sub
因为直接粘贴就是粘贴带格式的数字。
实际咱看到的是数值+格式的存在方式。
可以用两种方法改回来
1，粘贴时，注意双击单元格，更改数值，再回车，这样是保留格式
2，随意粘贴，随后用格式刷，刷成你想要的字体格式
使用条件格式试一下,我记不清ASCII()汉字的是多少了,只要大于该值该单元格就是宋体.小于该值就是楷体,应该差不多的.
条件格式里要用下拉菜单里的"公式",不要用"数值"选项
1、首先在excel表格的单元格中录入数据，并且在新的单元来格位自置设置好单元格格式。
2、然后选中需要复制百的单元格，按下“Ctrl+C”执行复制操作。
3、然后在新的设置好的单元格位置度点击鼠标右键，在弹出的选项中点击粘贴数值选项。
4、粘问贴数值之后即可将复制的单元格数据直接粘贴到新单元格中，并且是按照新单元格的格答式进行录入的。