Estoy tratando de insertar un número específico de filas. Ahora mismo estoy usando el siguiente código para insertar 4 líneas. Estoy tratando de escribir una línea de código que se inserta un cierto número de filas que se basa en un número en una célula determinada. Por ejemplo, si yo quería insertar 4 filas y la celda A2 es la celda donde puedo cambiar el número de filas que desea agregar, qué código debo utilizar para agregar cualquier número de filas basándose en lo que el número de insertar en la celda A2.

ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
InformationsquelleAutor user6888830 | 2017-04-20

2 Comentarios

  1. 5

    Usted puede usar algo como la línea de abajo para insertar 4 filas de una vez:

    ActiveCell.EntireRow.Resize(4).Insert Shift:=xlDown 

    o tal vez la línea de abajo (depende de donde usted desea que el agregado de las filas para ser añadido):

    ActiveCell.EntireRow.Offset(1).Resize(4).Insert Shift:=xlDown

    y sin la necesidad de utilizar ActiveCell , que es siempre recomendado:

    Range("A2").EntireRow.Offset(1).Resize(4).Insert Shift:=xlDown
    • Gracias por la ayuda!
  2. 0

    Esto debería funcionar

     
    Sub InsertRow() 
    
    Dim ws Como la Hoja de cálculo 
    Dim NBOFROWS Como Rango 
    Conjunto ws = ThisWorkbook.ActiveSheet 
    
    Con ws 
    Conjunto de NBOFROWS = .Range("A2") 
    ActiveCell.EntireRow.Offset(1).Cambiar el tamaño(NBOFROWS.Valor).Insertar Cambio:=xlDown 
    Final Con 
    
    End Sub 
    
    
    • Gracias por la ayuda. Yo REALMENTE lo apreciamos!
    • por favor, marca como respondida

Dejar respuesta

Please enter your comment!
Please enter your name here