VBA将第二列空白的单元格填充上数据

Option Explicit
'将第一列中空白的单元格填上数据，
'学校代码sid只有每个学校开头的地方有，要填充到下一个非空白单元格为止
Sub fill_blank()
    Range("a2").Select
    Dim sid As String
    Dim rc As Integer
    
    If Range("a2") <> "" Then
        sid = Range("a2")
    End If
    
    'Cells(rn + 1, cn).Select
    '遍历第一列
    For rc = 2 To 392
       
      '如果单元格为空则在其中填充sid,不为空则将该值设置为sid
      If Cells(rc, 1) = "" Then
      
          Cells(rc, 1) = sid
          
      Else
          sid = Cells(rc, 1)
          
          
      End If
     Next
    

End Sub