Como escrevo uma macro para alterar uma lista de números para que aumente em cada planilha?

Question

Tenho uma planilha que contém uma lista de números na coluna 2. Preciso imprimir 50 folhas por vez, com os números aumentando a cada folha. Ou seja, a folha 1 começa com 2834 e termina em 2848; a próxima página começa em 2849 e termina em 2863 e assim por diante. Como escrevo a macro e onde coloco a macro? Estou perdido.

Nunca escrevi ou usei uma macro, mas tenho certeza que essa seria a solução, além de imprimir cada página individualmente e alterar os números a cada vez.

Answer 1

Este pode ser um bom ponto de partida

Public Sub LotOfNumbers()
    lastSheet = 50
    numbersPerPage = 10
    selectedColumn = 2
    firstValue = 3000
    Dim wkb As New Workbook
    Dim wks As New Worksheet
    Set wkb = ThisWorkbook
    totalwks = Application.Sheets.Count
    i = 1
    actualValue = firstValue
    While i <= lastSheet
        If i <= totalwks Then
            Set wks = wkb.Sheets(i)
        Else
            wkb.Sheets.Add After:=Worksheets(Worksheets.Count)
        End If
        For j = 1 To numbersPerPage
            Cells(j, selectedColumn) = actualValue
            actualValue = actualValue + 1
        Next j

        i = i + 1
    Wend

End Sub

Abra VBA/Macros com ALT+ F11.

No lado esquerdo clique duas vezes em A planilha, no lado direito cole o código.

Ajuste as variáveis lastsheet​​, e numbersPerPageao seu gosto.selectedColumnfirstValue