Выделите максимальную запись в таблице данных гистограммы Excel

Question

У меня есть гистограмма Excel, показывающая таблицу данных с ней, как показано на рисунке ниже.

Мне нравится выделять максимальную запись жирным шрифтомдля каждого столбца.например, как мы можем сделать в отдельной таблице данных, как показано на рисунке ниже.

Answer 1

Код импорта в модуль:

1. Открыть Excel
2. Нажать ALT + F11
3. Вставить
4. Модуль
5. Вставитькод ниже.

Примечания:

• Если «Option Explicit» уже существует, избегайте вставки.

• таблица должна импортироваться в Sheet1, начиная с A1.

  Option Explicit
  
  Sub Test()
  
  Dim Lastrow As Long, LastColumn As Long, i As Long, MaxValue As Long
  
  With ThisWorkbook.Worksheets("Sheet1")
  
      Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
      LastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column
  
      For i = 2 To LastColumn
          MaxValue = Application.Max(.Range(.Cells(2, i), .Cells(Lastrow, i)))
              For j = 2 To Lastrow
                  If .Cells(j, i).Value = MaxValue Then
                      .Cells(j, i).Font.Bold = True
                      Exit For
                  End If
              Next j
  
      Next i
  
  End With
  
  End Sub
  

Вывод: