Понятия не имею о годе публикации вопроса; это может быть старым сейчас. Итак, я ожидаю, что мой ответ будет более справочным для будущих подобных вопросов после моего сообщения.
Я не знаю, давал ли кто-нибудь там ответ, подобный тому, который я собираюсь дать, что может привести к тому, что я думаю, что это будет самый простой, самый прямой и самый эффективный: если кто-то уже дал его Прошу прощения, но я этого не видел. Здесь мой ответ с использованием CStr вместо TEXT:
Предполагаемая ячейка A1 содержит дату и использует код VBA:
Dim strDate As String
'Convert to string the value contained in A1 (a date)
strDate = CStr([A1].Value)
После этого вы можете манипулировать ею как любой обычной строкой, используя строковые функции (MID, LEFT, RIGHT, LEN, CONCATENATE (&) и т. Д.)