Динамически выделять дублирующиеся ячейки значений

Question

Я сохранил числа в девяти строках и девяти столбцах.

Когда я выбираю конкретную ячейку, я хочу выделить все ячейки с одинаковым значением, например, если я выберу ячейку со значением 8, все ячейки со значением 8 должны быть выделены.

Затем, если я выберу ячейку со значением 5, все ячейки со значением 5 должны быть выделены вместо ячеек со значением 8.

Answer 1

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

Private Sub Worksheet_SelectionChange(ByVal rngSel As Range)
  Set rngTable = [B2:E13]
  If rngSel.Count > 1 Or Intersect(rngSel, rngTable) Is Nothing Then End
  For Each rngCell In rngTable
    rngCell.Interior.ColorIndex = IIf(rngCell.Value = rngSel.Value, 27, -4142)
  Next
End Sub

подсказки

• Set rngTable = [B2:E13] »Изменить диапазон ячеек, где цвета могут быть изменены
• IIf(rngCell.Value = rngSel.Value, 27, -4142) »Измените код цвета, если хотите использовать другой цвет