|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 wajour 于 2012-11-10 19:16 编辑
用后期批量设置吧
Public Sub 设置颜色()
Dim cell As Range
Dim rng As Range
Set rng = Application.InputBox("请选择需要保留颜色的单元格区域", "请选择", Default:=Selection.Address, Type:=8)
rng.columns.autofit
For Each cell In rng
cell.Value = cell.Text
cell.Characters(1, Len(cell.Offset(0, -2))).Font.Color = cell.Offset(0, -2).Font.Color
cell.Characters(Len(cell.Offset(0, -2)) + 1, Len(cell)).Font.Color = cell.Offset(0, -1).Font.Color
Next
End Sub
|
|