用于设置整列上一行格式的VBA代码

Sub SetColumnFormat()
    Dim lastRow As Long
    Dim columnRange As Range
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 获取整列上一行的范围
    Set columnRange = Range("A1").Resize(lastRow - 1)
    
    ' 设置格式，这里以设置背景色为例
    columnRange.Interior.Color = RGB(255, 255, 0) ' 设置为黄色
    
    ' 其他格式设置代码...
    
End Sub