[已解决]excel同一单元格内首行加粗问题

autumn0321

各位大神 请教下如何使用宏实现excel同一单元格内首行批量加粗？实现如图所示在同一个单元格内第一行内容加粗其他内容不变

最佳答案

月排行榜 / 总排行榜

林木水

2021-12-28 17:03

1. Sub 加粗()
   
2. Dim rg As Range, i As Integer
   
3. For Each rg In Range("c1:c28")
   
4.     For i = 1 To rg.Characters.Count
   
5.         If rg.Characters(i, 1).text = Chr(10) Then
   
6.             Exit For
   
7.         Else
   
8.             rg.Characters(i, 1).Font.Bold = True
   
9.         End If
   
10.     Next i
    
11. Next rg
    
12. End Sub

复制代码

office 以上功能完全可以达到要的效果，wps明天要去试试。

跳转到最佳答案楼层

林木水

1. Sub 加粗()
   
2. Dim rg As Range, i As Integer
   
3. For Each rg In Range("c1:c28")
   
4.     For i = 1 To rg.Characters.Count
   
5.         If rg.Characters(i, 1).text = Chr(10) Then
   
6.             Exit For
   
7.         Else
   
8.             rg.Characters(i, 1).Font.Bold = True
   
9.         End If
   
10.     Next i
    
11. Next rg
    
12. End Sub

复制代码

office 以上功能完全可以达到要的效果，wps明天要去试试。

zjdh

Sub test()
    For I = 2 To Range("C65536").End(3).Row
        N = InStr(Cells(I, 3), Chr(10)) - 1
        Cells(I, 3).Characters(Start:=1, Length:=N).Font.FontStyle = "加粗"
    Next
End Sub

林木水

zjdh 发表于 2021-12-28 20:07
Sub test()
    For I = 2 To Range("C65536").End(3).Row
        N = InStr(Cells(I, 3), Chr(10)) - 1 ...

大佬，你的变量为什么可以不用定义的