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

最新推荐文章于 2024-12-30 19:45:00 发布

原创最新推荐文章于 2024-12-30 19:45:00 发布 · 1.4k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#单元格文字对齐方式 #遍历指定列 #获取最后一行非空单元格行号 #文字垂直居中对齐 #水平左对齐

VBA 专栏收录该内容

8 篇文章

订阅专栏

本文深入解析VBA代码片段，展示如何自动化调整Excel中特定列（C、D、E）的单元格格式，包括字体对齐方式、行高设定等，特别针对非加粗文字进行操作，适用于批量数据处理与格式规范。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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