[Resolvido] Excel: criar uma sequência de número em range.

osvaldomp disse:

Você quer elaborar uma tabela na coluna A a partir dos dados que estão nas colunas B:C ou você quer elaborar uma tabela nas colunas B : D a partir dos dados que estão na coluna A ?

Douglas Luciano disse:

Eu tenho uma sequencia de numeros de serie e quero colocara em duas colunas ( N1 --- N100)

Sub MontaTabela()

Dim LR As Long, Cx As Variant, i As Long

  Application.ScreenUpdating = False

  Application.Calculation = xlCalculationManual

  LR = Cells(Rows.Count, 1).End(3).Row

  If [B2] <> "" Then Range("B2" & LR) = ""

  [F:F] = ""

  Range("F3:F" & LR) = "=IF(RIGHT(A3,3)-RIGHT(A2,3)<>1,ROW(),"""&quot"

  Range("F3:F" & LR).Value = Range("F3:F" & LR).Value

  Range("F1:F" & LR).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

  [B2] = [A2]

    Cx = Range("F1:F" & Cells(Rows.Count, 6).End(3).Row).Value

    For i = LBound(Cx) To UBound(Cx)

     Cells(Rows.Count, 2).End(3)(2) = Cells(Cx(i, 1), 1)

     Cells(Rows.Count, 3).End(3)(2) = Cells(Cx(i, 1) - 1, 1)

    Next i

   Cells(Rows.Count, 3).End(3)(2) = Cells(LR, 1)

   Range("D2" & Cells(Rows.Count, 3).End(3).Row).Formula = "=RIGHT(C2,3)-RIGHT(B2,3)+1"

   Range("D2" & Cells(Rows.Count, 3).End(3).Row).Value = Range("D2" & Cells(Rows.Count, 3).End(3).Row).Value

  [F:F] = ""

  Application.ScreenUpdating = True

  Application.Calculation = xlCalculationAutomatic

End Sub