-1

Lo se aplicar a un rango, a una celda, pero a un libro completo no.

¿Sabéis que metodo emplear?

He probado con lo siguiente pero me va relativamente lento:

Sub ctrlccrtlvEspecial()
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub
1
  • Puedes tratar cada hoja como una matriz de celdas y mediante un bucle externo vas leyendo el libro
    – JoseDEV
    el 12 jun. 2019 a las 14:02

1 respuesta 1

1

Así debería irte rápido:

Option Explicit
Sub ctrlccrtlvEspecial()

    Dim arr
    Dim wsh As Worksheet

    Application.ScreenUpdating = False
    For Each wsh In ThisWorkbook.Worksheets
        With wsh
            arr = .UsedRange.Value
            .UsedRange.Value = arr
        End With
    Next
    Application.ScreenUpdating = True

End Sub

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.