Мне нужно заполнить числа от 2000 до 65000 в Excel 2013, и использование маркера заполнения и перетаскивания - очень долгий процесс.
Есть ли другой способ сделать это?
4 ответа
1
Введите "2000" в A1. , Введите формулу A2 = A1+1 и скопируйте эту формулу в A3 до A65000, сначала выбрав A3, затем удерживая Shift, и прокрутив мышью до A65000, и нажав на ячейку, затем отпустив Shift. Вставьте формулу. Это даст вам то, что вы хотите.
Если вы хотите затем преобразовать формулу в значения, снова выберите все копии, вставьте их в качестве значений.
1
- Установите в первой ячейке начальное значение.
- Установите ячейку под ней на CellAbove + 1.
- Нажмите, чтобы выбрать вторую ячейку.
- Прокрутите вниз и сдвиньте, нажмите на конечную ячейку
- Ctrl-D (Fill, Down)
- Ctrl-C (Копировать)
- Ctrl-Alt-V (Специальная вставка)
- Выберите "Значения", нажмите ОК
Это метод, который использовал бы Brute Squad , но он работает.
1
Это макрос, использующий VBA:
Sub megafiller()
firstvalue = 2000
lastvalue = 65000
firstcellrow = 1
firstcellcolumn = 1
Dim wks As Worksheet
Set wks = ActiveSheet
thisrow = firstcellrow
For j = firstvalue To lastvalue
wks.Cells(thisrow, firstcellcolumn) = j
thisrow = thisrow + 1
Next j
theend = MsgBox("Finished", vbInformation)
End Sub
Откройте Macro/VBA, в ThisWorkbook вставьте модуль и вставьте код с правой стороны. Запустите его и все. С помощью переменных вы можете изменить начальное (200) и конечное (65000) значения. Также вы можете изменить начальную ячейку. Для этого кода используется A1 (firstcellrow=1 и firstcellcolumn=1).
1
Спасибо всем за помощь. Я также нашел другой способ, который я никогда не видел раньше. Используя кнопку «Заливка» на вкладке «Главная» в группе редактирования и выбрав «Серия I», выберите «Столбцы и линейные параметры», введите значение «Стоп» в 65 000 и нажмите «ОК». Это работало отлично!
Еще раз спасибо всем, что нашли время помочь мне. Это высоко ценится.