为顶行和最后一列着色的宏

Question

我是宏 vba 的新手我希望宏将黄色添加到顶行，即标题行和最后一列是空白的。 宏应该为最后一列着色，该列仅在相应行有数据时才为空白，而不是整列。

下面是我的代码...我收到错误“错误代码 1004 应用程序定义或对象定义”

Private Sub CommandButton8_Click()
    
    'Hide column A to E and color.
    
    ActiveWorkbook.Worksheets("POL").Range("A1", Cells(1, Columns.Count).End(xlToRight)).SpecialCells(xlCellTypeConstants).Interior.ColorIndex = 6
    
    ActiveWorkbook.Worksheets("POL").Columns("A:E").Hidden = True
    
    Application.Wait (Now + TimeValue("0:00:04"))
    
    ActiveWorkbook.Worksheets("POD").Columns("A:E").Hidden = True
    
    
End Sub

Excel 屏幕以供参考。

宏应该为顶行标题和最后一列着色......最后一列是空白的，所以它应该只在相应的行/列有数据的地方着色。

Answer 1

只要工作表中没有未包含在此“表格”中的额外数据，您就可以使用您使用的范围同时获取最后一行和最后一列。

Dim lastcell As Range, rng As Range

With ActiveWorkbook.Worksheets("POL")
    Set lastcell = .Cells(UsedRange.Rows.Count, UsedRange.Columns.Count)
    Set rng = .Range(.Cells(1, lastcell.Column), .Cells(lastcell.Row, lastcell.Column))
End With

rng.Interior.ColorIndex = 6

更新：试试这个然后它使用特定列找到最后一行。 我将它设置为使用最后一行之前的列，但您可以将其设置为包含最后一行的任何列。

Private Sub CommandButton8_Click()
    
    'Hide column A to E and color.
    
    Dim lastcolumn As Long, lastrow As Long
    
    With ActiveWorkbook.Worksheets("POL")
        lastcolumn = .Cells(1, Columns.Count).End(xlToLeft).Column
        lastrow = .Cells(Rows.Count, lastcolumn - 1).End(xlUp).Row
        'lastrow = .range("A" & rows.Count).end(xlup).row  'Use this one if you want to set a specific column to find the last row.
        
        .Range("A1", .Cells(1, lastcolumn)).Interior.ColorIndex = 6
        .Range(.Cells(1, lastcolumn), .Cells(lastrow, lastcolumn)).Interior.ColorIndex = 6
    End With
    
    ActiveWorkbook.Worksheets("POL").Columns("A:E").Hidden = True
    
    Application.Wait (Now + TimeValue("0:00:04"))
    
    ActiveWorkbook.Worksheets("POD").Columns("A:E").Hidden = True
    
    
End Sub