¿Cómo genera VBA nombres de hojas de trabajo mientras resume otros datos de la hoja de trabajo?
'Aprendizaje y práctica de programación VBA, recopilación de datos de varias hojas de trabajo con un solo clic~ Ynzsvt
Dim Sht As Worksheet, Rng As Range, kamp;, Trowamp;, Krowamp;
'
Application.ScreenUpdating = False
Range(Cells(3, 1), Cells(10000, 100)).ClearContents 'Borrar el datos de la tabla actual, conservar el encabezado
Cells.NumberFormat = "@" 'SetTextFormat 'Cancelar actualizaciones de pantalla para acelerar el código
Trow = 2: Krow = 1
' Trow = Val(InputBox("Ingrese el número de filas en el encabezado", "Advertencia"))
Si Trow lt 0 Then MsgBox "El número de filas en el encabezado no puede ser negativo; ." , 64, "Advertencia: "El número de filas en el encabezado no puede ser negativo", 64, "Advertencia": Salir Sub
'Obtiene el número de filas del encabezado ingresadas por el usuario, si es negativo, luego salga del programa
Para cada Sht en las hojas de trabajo 'Recorra la hoja de trabajo
Si Sht.Name lt;gt ActiveSheet.Name y Sht.Name como "* Mes". " Luego 'Si Sht.Name lt;gt; ActiveSheet.Name y Sht.Name como "* Mes" Then 'If Sht.Name lt;gt; ActiveSheet.NameUsedRange.Rows.Count 1 Krow 'Vaciar Krow filas entre tablas p>
Cells(k, 2).PasteSpecial Pegar: = xlPasteValues
Cells(k, 1).Resize(Rng.Rows.Count - Trow, 1) = Sht.Name
EndName
Finalizar si
Siguiente
[a1].Activar 'Activar celda A1 '
Application.ScreenUpdating = True ' Reanudar actualización de pantalla
End Sub