☰

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

tag-icon • tag-icon worksheet-function microsoft-excel-2013
Excel 2013 - Заполнение чисел от 2000 до 65000 без использования метода перетаскивания маркера заполнения мышью

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

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

решение1

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

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

решение2

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

Это методОтряд Брутаиспользовал бы, но это работает.

решение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 в разделеЭта рабочая книгаВставьте модуль и вставьте код справа. Запустите его и все. С помощью переменных вы можете изменить начальные (200) и конечные (65000) значения. Также вы можете изменить начальную ячейку. Для этого кода это A1 ( firstcellrow=1и firstcellcolumn=1).

решение4

Спасибо всем за помощь. Я также нашел другой способ, который никогда раньше не видел. Используя кнопку Fill на вкладке Home в Editing Group и выбрав Series, я выбрал Columns и Linear и ввел Stop Value 65 000 и нажал OK. Это сработало отлично!

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

Связанный контент