У меня есть набор дат в 6 столбцах на листе excel. Как найти общие даты во всех этих шести столбцах?

У меня шесть столбцов с датами (в том же формате). В каждой из этих столбцов есть несколько общих дат. Я попытался использовать параметр «duplicate» в условном форматировании, но это дает все значения, которые являются общими в любом из шести столбцов. Мне нужно найти даты, которые являются общими во всех шести столбцах.

С такими данными, как:

введите описание изображения здесь

Этот короткий макрос:

Sub Kommon() Dim i As Long, N As Long, j As Long, d As Date, IsGood As Boolean N = Cells(Rows.Count, "A").End(xlUp).Row With Application.WorksheetFunction For i = 1 To N d = Cells(i, 1).Value IsGood = True For j = 2 To 6 If .CountIf(Range(Cells(1, j), Cells(Rows.Count, j)), d) = 0 Then IsGood = False End If Next j If IsGood Then Cells(i, 1).Interior.ColorIndex = 27 End If Next i End With End Sub 

циклически удаляет один столбец и проверяет остальные пять столбцов:

введите описание изображения здесь

Итак, 8/1/2005 присутствует во всех шести столбцах.

  • Гиперссылка на ячейку Excel
  • Элементы управления ActiveX перемещаются при нажатии XML-данных в таблицу Excel
  • Создать кнопку в Excel для копирования файла?
  • Пусть одна ячейка представляет диапазон ячеек
  • Excel 2013: данные метаданных в заголовке
  • Раскрывающийся список в ячейке Excel
  • Преобразование из Excel xlsx в xls в Java
  • Office 2010 Добавить в пользовательскую вкладку / группу содержит нежелательные команды
  • Excel VBA Macro работает в Windows, но не на Mac
  • Получить строки из другого файла и отфильтровать их
  • Предварительно заполнять цвета палитры в Microsoft Office?
  • Давайте будем гением компьютера.