求助解决合并单元格后下划线丢失问题

璞格格她爹

向各位大神求助解决合并单元格后下划线丢失问题，万分感谢

ykcbf1100

公式带过来的只有值，并不带格式。

ykcbf1100

用VBA可以设置一下。

fzxba

1. Sub test0()
   
2.   Dim i As Long, j As Long, k As Long
   
3.   Dim s As String, t(1, 1 To 3)
   
4.   For j = 1 To UBound(t, 2)
   
5.     s = s & Cells(1, j).Value
   
6.     If Cells(1, j).Font.Underline = 2 Then t(0, j) = True Else t(0, j) = False
   
7.     t(1, j) = Len(Cells(1, j).Value)
   
8.   Next
   
9.   With Range("A2")
   
10.     .Font.Underline = -4142
    
11.     .Value = s
    
12.     k = 0
    
13.     For j = 1 To UBound(t, 2)
    
14.       i = i + t(1, j)
    
15.       If t(0, j) Then
    
16.         .Characters(k + 1, t(1, j)).Font.Underline = 2
    
17.       End If
    
18.       k = i
    
19.     Next
    
20.   End With
    
21. End Sub

复制代码

半百

1. Sub test()
   
2. Set Rng = [a1:d1]
   
3. ReDim a(1 To Rng.Count)
   
4. For Each r In Rng
   
5.     s = s & r
   
6.     n = n + 1
   
7.     If r.Font.Underline = 2 Then
   
8.         a(n) = "|" & m + 1 & "," & Len(r)
   
9.     ElseIf IsNull(r.Font.Underline) Then
   
10.         For i = 1 To Len(r)
    
11.             If r.Characters(i, 1).Font.Underline = 2 Then
    
12.                 a(n) = a(n) & "|" & i + m & ",1"
    
13.             End If
    
14.         Next
    
15.     End If
    
16.     m = m + Len(r)
    
17. Next
    
18. [a2] = s
    
19. For i = 1 To UBound(a)
    
20.     b = Split(a(i), "|")
    
21.     For j = 1 To UBound(b)
    
22.         c = Split(b(j), ",")
    
23.         [a2].Characters(c(0), c(1)).Font.Underline = 2
    
24.     Next
    
25. Next
    
26. End Sub
    

复制代码

璞格格她爹

感谢楼上所有大神帮助