【求助】 合并列时保留字体颜色

pastear

主要情况简述如下：
A 列，n行，所有内容字体颜色为红色。
B 列，n行，所有内容字体颜色为蓝色
现需合并两列，且合并后A列来源的部分依然红色，B列来源的部分依然蓝色。
      A     B     -->  C
1   123  ABC        123ABC
2   456  def         456def
C1=CONCATENATE(A1,B1) 或者直接 C1=A1&B1 的话，C列出来都是黑色，也就是说只合并了数据，没有保留字体信息。求高手指导……{:soso__6733378506853419419_1:}

hhjjpp

不可能自动传承字体颜色
不在同一个单元格又有什么关系呢！把单元格框线隐藏不就行了吗！

wajour

用后期批量设置吧
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

AVEL

有什么实用性么？
可以先复制内容到word中
然后在word中将内容转化为文本
然后再复制回EXCEL表格内。。

AVEL

贴个图
清楚一点。

pastear

hhjjpp 发表于 2012-11-10 19:07
不可能自动传承字体颜色
不在同一个单元格又有什么关系呢！把单元格框线隐藏不就行了吗！

C:\Users\nova\Desktop\111.jpg

这是具体情况，上面那个只是一个简化

pastear

wajour 发表于 2012-11-10 19:11
用后期批量设置吧
Public Sub 设置颜色()
Dim cell As Range

非常感谢，但是运行时弹出错误，'1004' 应用程序定义或对象错误，指向cell.Characters(1, Len(cell.Offset(0, -2))).Font.Color = cell.Offset(0, -2).Font.Color。

我不怎么懂编程，另外我用的2007，不知道是否有关系。

liuyedao1

这种转化事半功倍，太好了。

pastear

AVEL 发表于 2012-11-10 19:17
贴个图
清楚一点。

非常感谢，前面一切顺利，可是到最后粘回excel时不给力了啊………我粘回去就都是一个颜色了，难道是RP问题么

我爱锦嘟嘟

选择性粘贴也可以··