Поиск столбцов с датами и правка формата

Поиск столбцов с датами и правка формата, Исправление формата столбцов с датами

Пользователь

Сообщений: 142 Регистрация: 09.03.2015

06.01.2020 10:12:33

Добрый день!
Есть фрагмент выгрузки данных, где ячейки столбцов с датами отображаются в ОБЩЕМ формате. Покажите, пожалуйста, как макросом найти все такие стобцы (могут находиться совершенно в различных столбцах) и исправить формат таких ячеек в КРАТКИЙ формат даты.
Пример прилагаю.

Прикрепленные файлы

Пример.xlsb (10.24 КБ)

RAN

Пользователь

Сообщений: 7207 Регистрация: 21.12.2012

06.01.2020 10:31:01

Код
Sub qq() For Each col In ActiveSheet.UsedRange.Columns If InStr(1, col.Cells(1).Value, "дата", vbTextCompare) > 0 Then col.NumberFormat = "DD.MM.YYYY" End If Next End Sub

aesp Пользователь Сообщений: 142 Регистрация: 09.03.2015	#3 06.01.2020 10:42:26 RAN, Благодарю! То, что нужно)