Если вы просто хотите сделать это через VBA, вы можете использовать что-то вроде этого:
Range("C1:C100").NumberFormat = Range("B2").NumberFormat
Приведенный выше пример просто меняет формат для ячеек C1-C100 на тот, который имеет формат в B2.
Обновление : я заметил, что вы сказали, что формат работает нормально, но отображается как #######.Обычно это происходит, когда столбец недостаточно широк, чтобы показать все значение, поэтому изменение размера вручную или с помощью чего-то вроде belwo должно решить вашу проблему:
Columns("C:C").EntireColumn.AutoFit