Excel 2013 - Заполните числа за 2000 - 65000, не используя метод перетаскивания, чтобы заполнить указатель мыши

Question

Мне нужно заполнить числа от 2000 до 65000 в Excel 2013, и использование маркера заполнения и перетаскивания - очень долгий процесс.

Есть ли другой способ сделать это?

Answer 1

Введите "2000" в A1. , Введите формулу A2 = A1+1 и скопируйте эту формулу в A3 до A65000, сначала выбрав A3, затем удерживая Shift, и прокрутив мышью до A65000, и нажав на ячейку, затем отпустив Shift. Вставьте формулу. Это даст вам то, что вы хотите.

Если вы хотите затем преобразовать формулу в значения, снова выберите все копии, вставьте их в качестве значений.

Answer 2

1. Установите в первой ячейке начальное значение.
2. Установите ячейку под ней на CellAbove + 1.
3. Нажмите, чтобы выбрать вторую ячейку.
4. Прокрутите вниз и сдвиньте, нажмите на конечную ячейку
5. Ctrl-D (Fill, Down)
6. Ctrl-C (Копировать)
7. Ctrl-Alt-V (Специальная вставка)
8. Выберите "Значения", нажмите ОК

Это метод, который использовал бы Brute Squad , но он работает.

Answer 3

Это макрос, использующий 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).

Answer 4

Спасибо всем за помощь. Я также нашел другой способ, который я никогда не видел раньше. Используя кнопку «Заливка» на вкладке «Главная» в группе редактирования и выбрав «Серия I», выберите «Столбцы и линейные параметры», введите значение «Стоп» в 65 000 и нажмите «ОК». Это работало отлично!

Еще раз спасибо всем, что нашли время помочь мне. Это высоко ценится.