☰

Wie füge ich Daten (die keine ausgeblendeten Zellen enthalten) in ein Arbeitsblatt ein, das ausgeblendete Spalten hat?

tag-icon • tag-icon microsoft-excel
Wie füge ich Daten (die keine ausgeblendeten Zellen enthalten) in ein Arbeitsblatt ein, das ausgeblendete Spalten hat?

Ist es möglich, das Einfügen von Daten in die ausgeblendeten Spalten mit einer einzigen Kopier-/Einfügebewegung zu verhindern, anstatt den Vorgang mehrmals durchführen zu müssen?

Antwort1

Ich möchte die vergleichsweise beste und schnellste Methode zum Einfügen von Daten durch Überspringen ausgeblendeter Spalten vorschlagen.

Vor dem Kopieren und Einfügen:

Bildbeschreibung hier eingeben

Nach dem Einfügen:

Bildbeschreibung hier eingeben

Achtung Wie Sie sehen, hat das Makro dies übersprungen hidden Column H, während Daten aus dem Bereich eingefügt wurden A1:C9.

Wie es funktioniert:

  • Spalte/Spalten ausblenden, mit denen dieser Beitrag Col Hausgeblendet wird.

  • EntwederRechtsklickDieRegisterkarte „Tabelle“& Klicken Sie im eingeblendeten Menü aufCode anzeigenoder drücken SieAlt+F11, um den VB-Editor zu erhalten.

  • KopierenundPastedieser VBA-Code (Makro) alsStandardmodulDannLAUFENdas MakroTestKopierenEinfügen.

    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")sind editierbar.
  • Wo A1:C9ist die zu kopierende Quelle und G1das Ziel zum Einfügen der kopierten Daten?
  • Sie können auch Zellbezüge/Datenbereiche anpassen.

verwandte Informationen