VBA- 设置指定列的文字对齐方式(遍历指定列，获取最后一行非空单元格行号)

Sub isColInfo(sheet As Worksheet)
    Dim LastRow As Integer
    Dim arrCol As Variant
    arrCol = Array("C", "D", "E")	'等下需要遍历、修改C、D、E列，并修改这几列除加粗文字(表头)外的文字对齐方式
    For k = 0 To UBound(arrCol)
        '获取最后一行非空单元格的行号
        LastRow = ActiveSheet.Cells(Rows.Count, arrCol(k)).End(xlUp).Row
        '判断最后一行的行号是否大于0
        If LastRow > 0 Then
            For i = 1 To LastRow
            	'判断这个单元格是否为空
                If Cells(i, arrCol(k)) <> "" Then
                	'判断这个单元格的字体是否加粗，如果没加粗，则进行后续操作
                    If Cells(i, arrCol(k)).Font.Bold = False Then
                        Application.DisplayAlerts = False	'禁止弹窗提示，因为修改合并单元格字体内容时会有弹窗提示
                        '设置这个单元格字体：水平左对齐，垂直居中对齐，行高设为33
                        With Cells(i, arrCol(k))
                            .HorizontalAlignment = xlLeft
                            .VerticalAlignment = xlCenter
                            '垂直顶部对齐
                            '.VerticalAlignment = xlTop
                            .RowHeight = 33
                        End With
                    End If
                End If
            Next i
        End If
    Next k
End Sub