用VBA改变单元格中部分字体

suidehan

用VBA将第一列中的每一个单元格中的校名字号变大加粗，谢谢啦，在线等

719404338

Sub t()
Dim i%, k%
For i = 2 To 21
k = Len(Split(Range("a" & i), vbLf)(0))
    Range("A" & i).Select
     With ActiveCell.Characters(Start:=1, Length:=k).Font
       .FontStyle = "加粗"
       .Size = 16
      End With
Next i
End Sub

suidehan

谢谢您，但显示运行错误

suidehan

谢谢您，但显示运行错误

suidehan

谢谢您，可以了，我操作有问题

lsdongjh

1. 
   
2. Sub Test()
   
3.     Dim shSource As Worksheet
   
4.     Dim arr As Variant, strTemp As String, strSplit() As String
   
5.     Dim intLen As Integer, lngRow As Long
   
6.    
   
7.     Set shSource = Sheets("Sheet1")
   
8.     lngRow = shSource.Range("A" & Rows.Count).End(xlUp).Row
   
9.    
   
10.     arr = shSource.Range("A1:A" & lngRow)
    
11.     For lngRow = 2 To 21
    
12.         strTemp = arr(lngRow, 1)
    
13.         strSplit = Split(strTemp, Chr(10))
    
14.         intLen = Len(strSplit(0))
    
15.         With shSource.Range("A" & lngRow).Characters(1, intLen).Font
    
16.             .Bold = True
    
17.             .Size = 14
    
18.         End With
    
19.     Next
    
20.    
    
21. End Sub

复制代码