Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo genera VBA nombres de hojas de trabajo mientras resume otros datos de la hoja de trabajo?

¿Cómo genera VBA nombres de hojas de trabajo mientras resume otros datos de la hoja de trabajo?

Sub Collect()

'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

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