Mostrar más de 1 millón de filas

Buenas noches,

Esto puede suceder cuando has hecho referencia a toda tu hoja de cálculo, a veces por descuido.....

Una solución:

Vas a tu última fila activa (alrededor de la fila 3000)

Seleccionas toda tu fila (es decir, la fila 3001)

Presionas simultáneamente Ctrl + Shift + Flecha Abajo (así habrás seleccionado todas las filas vacías debajo de tu tabla)

Clic derecho, luego "Eliminar"

Guarda, cierra el archivo y vuelve a abrirlo.....

Que tengas una buena noche

Otro método a intentar (si la hoja no contiene macros) :
Seleccionar las filas 1 a 3000; copiar;
tomar una hoja en blanco; pegar.
--
¡Está bien, la jubilación! Sobre todo en las Antillas ... :-)
☻ Raymond ♂

¿Sobre qué?
--
a+

Nunca atribuyas a la maldad lo que se explica muy bien por la incompetencia. El software es como el sexo, es mejor cuando es libre/gratuito.

Hola.

Debe haber una celda no vacía en la fila 1 045 160.

Seleccione y elimine todas las filas de 3 001 a 1 045 160.

Atentamente.

Hola foro

Una pequeña macro VBA, para hacer limpieza, de Laurent Longre

 Sub Nettoie() 'Laurent Longre mpfe, formato GeeDee Dim Sht As Worksheet, DCell As Range, Calc As Long, Rien As String, Avant As Double, plage As Range On Error Resume Next Calc = Application.Calculation ' ---- memorización del estado de recalculo '------------------------------------------------------------ MsgBox "Para el libro activo: " _ & Chr(10) & ActiveWorkbook.FullName _ & Chr(10) & "en cada hoja de cálculo" _ & Chr(10) & "busca la zona que contiene datos," _ & Chr(10) & "restablece la última celda utilizada" _ & Chr(10) & "y optimiza el tamaño del archivo Excel", _ vbInformation, _ "según LL por GeeDee@m6net.fr" '------------------------------------------------------------- MsgBox "Tamaño inicial de este libro en bytes" _ & Chr(10) & FileLen(ActiveWorkbook.FullName), _ vbInformation, ActiveWorkbook.FullName '------------------------------------------------------------ With Application .Calculation = xlCalculationManual .StatusBar = "Limpieza en curso..." .EnableCancelKey = xlErrorHandler .ScreenUpdating = True End With '-------------------- el tratamiento For Each Sht In Worksheets Avant = Sht.UsedRange.Cells.Count Application.StatusBar = Sht.Name & "-" & Sht.UsedRange.Address '-------------------Tratamiento de la zona encontrada If Sht.UsedRange.Address <> "$A$1" Or Not IsEmpty(Sht.[A1]) Then Set DCell = Sht.Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious)(2) '----------------Eliminación de filas no utilizadas If Not DCell Is Nothing Then Sht.Range(DCell, Sht.Cells([A:A].Count, 1)).EntireRow.Delete Set DCell = Nothing Set DCell = Sht.Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious)(2) '----------------Eliminación de columnas no utilizadas If Not DCell Is Nothing Then Sht.Range(DCell, Sht.[IV1]).EntireColumn.Delete End If Rien = Sht.UsedRange.Address End If ActiveWorkbook.Save '---------------------Mensaje para la hoja tratada MsgBox "Nombre de la hoja de cálculo: " _ & Chr(10) & Sht.Name _ & Chr(10) & Format(Sht.UsedRange.Cells.Count / Avant, "0.00%") & _ " del tamaño inicial", vbInformation, ActiveWorkbook.FullName Next Sht '--------------------Mensaje fin de tratamiento MsgBox "Tamaño optimizado de este libro en bytes " & Chr(10) & _ FileLen(ActiveWorkbook.FullName), _ vbInformation, _ ActiveWorkbook.FullNameActive '-------------------- Application.StatusBar = False Application.Calculation = Calc End Sub 

Mytå

Edición: Indentación del código
Qué pretensión tener de decir que la informática es reciente
Adán y Eva ya tenían un Apple ! [MsProject 2003(FR), Excel 2003-2007(FR)]

Buenas noches.

Gracias "Mytå".

Voy a guardar esta macro en mi biblioteca de VBA y la probaré.

Siempre puede ser útil.

Atentamente.