excel中怎样将多个单元格的内容合并在一个单元格里，并保留原字体（加粗+不加粗）

我是人间惆怅客

A1单元格内容为：巍南线-白云（下划线），B1单元格内容为：公路（加粗）。当C1=A1&B1时，如何得到：巍南线-白云公路

一把小刀闯天下

'就这方法，可以设置其他属性

Option Explicit

Sub test()
  Dim i, j
  For i = 1 To Cells(Rows.Count, "a").End(xlUp).Row
    With Cells(i, 3)
      .Clear
      .Value = Cells(i, 1) & Cells(i, 2)
      For j = 1 To Len(Cells(i, 1))
        .Characters(j, 1).Font.Underline = Cells(i, 1).Characters(j, 1).Font.Underline
      Next
      For j = 1 To Len(Cells(i, 2))
        .Characters(j + Len(Cells(i, 1)), 1).Font.Bold = Cells(i, 2).Characters(j, 1).Font.Bold
      Next
    End With
  Next
End Sub

我是人间惆怅客

一把小刀闯天下 发表于 2018-7-26 14:58
'就这方法，可以设置其他属性

Option Explicit

困扰我好长时间的这个问题成功解决了！谢谢老师。

我是人间惆怅客

我是人间惆怅客 发表于 2018-7-26 15:57
困扰我好长时间的这个问题成功解决了！谢谢老师。

高手老师，再请教一个问题：我的C1单元格是几个单元格合并的，该怎么改代码？A1单元格内容改变时可不可以C1单元格的内容同时改变，

一把小刀闯天下

我是人间惆怅客 发表于 2018-7-26 16:23
高手老师，再请教一个问题：我的C1单元格是几个单元格合并的，该怎么改代码？A1单元格内容改变时可不可以 ...

单元格多没有问题，再给你加个循环就可以了

需要上附件，可以模拟一组数据，位置必须正确。另外需要几个属性也要写清楚，就像上面需要2个属性：下划线、粗体