Proponer filas de datos especiales en excel Tengo una tabla de la siguiente manera: XXXXXXXXXXXXX 123 A 34234234 232 B 34355 233 C 343434.

Subbotón 1_Click()

Atenuar personas, Pp, Temp

Atenuar hoja de trabajo como hoja de trabajo

Atenuar I como entero

Atenuar NewRow

Atenuar CPT1 como cadena, CPT2 como cadena, CPT3 como cadena

Para cada persona en hojas("人").Range("A1:A1000" )

I = 0

Si Personas = "" Entonces

Salir para

Finalizar si

CPT1 = Hojas("HOJA1").Rango("D1")

CPT2 = Hojas("HOJA2").Rango("B1")

CP3 = Hojas( "HOJA3" ).Range("B1")

ActiveWorkbook.Sheets.Add

ActiveSheet.Name = Personas

Sheets(People.Text).Range ("C1 ") = CPT1

Hoja1.Activar

Para cada Pp en Hojas("hoja1").Range("C2:C83")

Si Pp = Personas Entonces

Pp.Activate

NewRow = ActiveCell.EntireRow

Sheets(People.Text).Rows("2:2"). ) = NuevaFila

I = I + 1

Finalizar si

Siguiente

I = I + 1

Hojas(Personas.Text).Range("c1").Desplazamiento(I) = CPT2

Hojas(Personas.Text).Activar

Hojas("SHEET2 "). Activar

Para cada Pp en Sheets("sheet2").Range("C3:C86")

Si Pp = Personas Entonces

Pp .Activate

NewRow = ActiveCell.EntireRow

Sheets(People.Text).Rows("2:2").Offset(I) = NewRow

I = I + 1

Finalizar si

Siguiente

I = I + 1

Hojas(Personas.Texto).Activar

Sheets("SHEET3").Activar

Sheets(People.Text).Range("c1").Offset(I) = CPT3

Para cada Pp en Sheets("sheet3 ").Range("a3:a1101")

Si Pp = Personas Entonces

Pp.Activate

NewRow = ActiveCell.EntireRow

Sheets(People.Text).Rows("2:2").Offset(I) = NewRow

I = I + 1

Fin si

Siguiente

MsgBox People.Text & "FINISH"

Siguiente

Fin Sub