返回目录：excel表格制作
只能使用VBA宏代码扩展Excel功能实现：
一、创建一个宏，如图一。
二、给宏添加代码，见图二以及后附代码。
三、设置快捷键，方便调用，见图三。
四、选中要修改的单元格，按快捷键（如图所设为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)
'字符串截e5a48de588b67a686964616f335取结束后一位
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、首先，打开copy“EXCEL”，添加从“A1-E1”的一行内容，创建如图所示的表格。
2、其次，选择百“A1-E1”所有单元格，点击鼠标右度键，选择“复制”。问
3、接着，点击“A2”单元格，单击鼠标右键，选择“选择性粘贴”。
4、此时出现如答图所示页面，选择“转置”。最后，点击“确定”后即出现如图所示，完成一行内容向一列内容的转换。
这个先要建立一个对应数据表格，假设在SHEET1工作表的A列写入代码,B列写入对应的内容。
则在SHEET2工作表中的A2单元格只要写入代码,B2单元格写copy入公式=VLOOKUP(A2,SHEET1!A:B,2,)
回车,就能得出要的内容了。
如果A列还有其百他的条件码要转换,只要下拉复制公式就行了。
如果只想保留这个B列的内容----选中B列----右键-----复制-----再右键-----选择性粘贴----数值---确定后再删去度A列----这样新的A列就是要的内容了。
再上图看一下。
如SHEET1建立数据对应关系。
在SHEET2的B2单元格写入公式。