Как автоматически заполнять данные (не формат)

Question

В ячейке B6 есть номер 1, а его цвет красный. но другие ячейки не красные, и в них нет никаких данных. после выполнения следующего кода, от B6 до B18, будут заполнены цифрами 1 ~ 13, но здесь есть проблема! я не хочу, чтобы скопировать красный цвет В6 В7 ... B8 ... B9 ... и ... я просто нужно скопировать без формата базовой ячейки ...

Range("B6").FormulaR1C1 = "1" 
    Range("B6").AutoFill Destination:=Range("B6:B18"),Type:=xlFillSeries 

Может Я нашел что-то вроде этого свойства: xlFillSeriesWithoutFormat или способ сделать это?

Answer 1

Согласно MS Docs *, кажется, что xlFillValues будет вашим лучшим выбором:

Копирование только значения из диапазона источника в целевом диапазоне, повторяя при необходимости.

Все остальные опции явно указывают, что они скопируют форматирование. Похоже, ваши только варианты являются:

• удалить форматирование ячейки назначения после копирования
• не имеют форматирование для копирования с помощью:
  1. сохранить от форматирования
  2. удалить форматирование из источника клетка
  3. сделать .AutoFill
  4. затем восстановить форматирование в исходной ячейке

^{* найдено с помощью поиска Google для "Excel VBA .autofill"}