¿Cómo pego datos (que no tienen celdas ocultas) en una hoja de trabajo que tiene columnas ocultas?

Question

¿Es posible evitar que los datos se peguen en las columnas ocultas con un solo movimiento de copiar/pegar en lugar de tener que copiar/pegar varias veces?

Answer 1

Me gustaría sugerir comparativamente el mejor y más rápido método para pegar datos omitiendo columnas ocultas.

Antes de copiar y pegar:

Después de pegar:

NÓTESE BIEN Como puede encontrar, la macro se ha saltado el hidden Column H, mientras pegaba datos del rango A1:C9.

Cómo funciona:

• Ocultar columna/columnas, con esta publicación Col Hestá oculta.

• CualquieraBotón derecho del ratónelPestaña Hoja& desde el menú emergente Haga clicVer código, o presioneAlt+F11, para obtener el editor VB.

• Copiar&Pegareste código VBA (Macro) comoMódulo estándarentoncesCORRERla macroProbarCopiarPegar.

  Sub TestCopyPaste()
  
  CopySkippingHidden ActiveSheet.Range("A1:C9"), _
    ActiveSheet.Range("G1")
  
    End Sub
  

---

Sub CopySkippingHidden(rngToCopy As Range, pasteStart As Range)

    Dim c As Range


    For Each c In rngToCopy.Columns

        Do While pasteStart.EntireColumn.Hidden
            Set pasteStart = pasteStart.Offset(0, 1)
        Loop
        c.Copy pasteStart

        Set pasteStart = pasteStart.Offset(0, 1)

    Next c

End Sub

• ActiveSheet.Range("A1:C9")& ActiveSheet.Range("G1")son editables.
• ¿Dónde A1:C9está el origen que se va a copiar y G1el destino para pegar los datos copiados?
• También puede ajustar las referencias de celda/rango de datos.