Question

我有一张带有宏的Excel表格。我想点击相关按钮时更改整列粗体。点击还应该展开所有其他粗体列。

Public row As Integer, VerticalRange As Range
Sub Sort_Macro_C()
Set VerticalRange = Worksheets("Sheet1").Range("b9:b1000")
Worksheets("Sheet1").Range("c9:c1000").Font.Bold = True
row = Application.WorksheetFunction.CountA(VerticalRange) + 10
Range(Cells(10, 2), Cells(row, 16)).sort Key1:=Range("C9"), Order1:=xlDescending, Header:= _
    xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortTextAsNumbers
End Sub

上面的代码粗体显示整个列，但我不知道如何解开剩下的列。任何帮助表示赞赏。

干杯。

Answer 1

试试这样：

Worksheets("Sheet1").Cells.Font.Bold = False
Worksheets("Sheet1").Range("C9:C1000").Font.Bold = True

首先它会展开任何东西，然后它只会加粗Range("C9:C1000")。如果您没有合并的单元格，则可以使用以下两种方法之一：

Worksheets("Sheet1").Range("C:C").Font.Bold = True
Worksheets("Sheet1").Columns(3).Font.Bold = True

关于您正在使用Selection，如果您想加粗给定选择的所有列，您可以使用：

Selection.EntireColumn.Font.Bold = True

在Excel中将选定列加粗并展开其他列

1 个答案: