Löschen aller Spalten, außer Spalten mit bestimmten überschriften

Ich versuche, das format der exportierten Daten und löschen mehrere Spalten. Ich will, dass Spalten mit bestimmten überschriften. Für die Bequemlichkeit, wenn ich 15 Spalten und wollen auch weiterhin Spalten mit den folgenden überschriften;

Zustand
Stadt
Name
Client
Produkt

Meine Sorge ist, dass die Daten, die ich bin, kann der Exportvorgang ändern und Spalten könnten in Zukunft Hinzugefügt werden. Ich möchte in der Lage sein, das herausfiltern unerwünschter Spalten und halten nur die genannten Spalten.

Edit: ich bin mit Excel und ich habe nie geschrieben, eine Linie des Codes vor in meinem Leben. Je.

Excel? Der Zugang? Welches Programm verwenden Sie?
Ich bin mit Excel.

InformationsquelleAutor Malkav | 2013-05-16

12

Versuchen, diese ein.

Iteration über die Spalten in umgekehrter Reihenfolge und überprüfen Sie den Header in einem "Select Case", und löschen, wie gebraucht.
```
Sub deleteIrrelevantColumns()
    Dim currentColumn As Integer
    Dim columnHeading As String

    ActiveSheet.Columns("L").Delete

    For currentColumn = ActiveSheet.UsedRange.Columns.Count To 1 Step -1

        columnHeading = ActiveSheet.UsedRange.Cells(1, currentColumn).Value

        'CHECK WHETHER TO KEEP THE COLUMN
        Select Case columnHeading
            Case "State", "City", "Name", "Client", "Product"
                'Do nothing
            Case Else
                'Delete if the cell doesn't contain "Homer"
                If Instr(1, _
                   ActiveSheet.UsedRange.Cells(1, currentColumn).Value, _
                   "Homer",vbBinaryCompare) = 0 Then

                    ActiveSheet.Columns(currentColumn).Delete

                End If
        End Select
    Next

End Sub
```
Danke! Bisher ist dies funktioniert wirklich gut. Gibt es eine Möglichkeit zu integrieren, die etwas in der "überprüfen Sie, ob Sie der Spalte" Abschnitt, der erkennen kann, ob ein bestimmtes Wort in der Spaltenüberschrift? Ich erkannte, dass ich eine Spalten-überschrift, die liest "Produkttyp/Produkt-Kategorie", aber es ist getrennt in zwei Zeilen. Zuerst habe ich versucht, hinzufügen; die Zellen.Wählen Sie Mit Auswahl .WrapText = False End Mit Und verwenden Sie dann Ihren code ein. Aber es ist nicht die Erkennung der Rubrik "Produkt-Typ/Produkt-Kategorie" und es hält, es zu löschen.
Sie können die Instr Funktion, um zu überprüfen, ob ein Wort/Zeichenkette in einem string.
Danke! Ich Schätze die Hilfe.
Kein problem. Hier ist ein Beispiel, dass die Funktion im Einsatz: Instr(1, "Marge and Homer Simpson","Homer",vbBinaryCompare) einen Wert von 0 bedeutet, dass die Suche nicht gefunden wurde, einen anderen Wert als 0 bedeutet, dass die Suche gefunden wurde.
Wie würde ich übernehmen, die in Ihre Select Case-code? So, sagen, Homer/Simpson war die überschrift der Spalte, und ich wollte, dass die Spalte?

InformationsquelleAutor David Zemens

Ich vermute, wir reden hier von Excel hier.
Wenn ja, Durchlaufen Sie Ihre Spalten mit einer while-Schleife und die Entscheidung zu halten oder nicht zu halten, sollte den trick tun.

Sub deleteIrrelevantColumns()
    Dim keepColumn As Boolean
    Dim currentColumn As Integer
    Dim columnHeading As String

    currentColumn = 1
    While currentColumn <= ActiveSheet.UsedRange.Columns.Count
        columnHeading = ActiveSheet.UsedRange.Cells(1, currentColumn).Value

        'CHECK WHETHER TO KEEP THE COLUMN
        keepColumn = False
        If columnHeading = "State" Then keepColumn = True
        If columnHeading = "City" Then keepColumn = True
        If columnHeading = "Name" Then keepColumn = True
        If columnHeading = "Client" Then keepColumn = True
        If columnHeading = "Product" Then keepColumn = True


        If keepColumn Then
        'IF YES THEN SKIP TO THE NEXT COLUMN,
            currentColumn = currentColumn + 1
        Else
        'IF NO DELETE THE COLUMN
            ActiveSheet.Columns(currentColumn).Delete
        End If

        'LASTLY AN ESCAPE IN CASE THE SHEET HAS NO COLUMNS LEFT
        If (ActiveSheet.UsedRange.Address = "$A$1") And (ActiveSheet.Range("$A$1").Text = "") Then Exit Sub
    Wend

End Sub

Danke. Ich werde es testen morgen. Ich tagged es "VBA". War das nicht klar genug?
Funktioniert das nicht. Es löscht die erste Spalte, auf die es trifft, nicht erfüllen 'columnheading' Kriterien und Stoppt dann. Läuft es wieder löschen wird die nächste Spalte überschrift, die nicht die Kriterien erfüllen. Wenn es auf eine Spaltenüberschrift, die angegeben wurde, Stoppt es und tut nichts. Sonst noch jemand irgendwelche Vorschläge?
Seltsam, es funktioniert für mich. Ich muss zugeben, dass David ' s Lösung ist sehr viel eleganter ist aber.

InformationsquelleAutor Tom Ridd

Ich hatte ein ähnliches problem und das ist der code für mich gearbeitet. Ich denke, es ist viel einfacher.

Range("A1").Select

Do Until ActiveCell.Value = ""

    If ActiveCell.Value = "Forecast Status" _
        Or ActiveCell.Value = "Amount " _
        Or ActiveCell.Value = "Service Booking Value " _
        Or ActiveCell.Value = "Transaction Number" _
        Or ActiveCell.Value = "Last Modified by" _
        Or ActiveCell.Value = "Last Modified Date" _
        Or ActiveCell.Value = "T# Comparison" _
        Or ActiveCell.Value = "Amount Comparison" _
        Or ActiveCell.Value = "Forecast Status Comparison" _
        Or ActiveCell.Value = "First Ship Date Comparison" Then

        ActiveCell.Offset(0, 1).Select

    Else

        ActiveCell.EntireColumn.Select
        Selection.Delete Shift:=xlToLeft
        Selection.End(xlUp).Select

    End If
Loop

Ja, das ist gonna be ein "Fehler" auf die 'viel einfacher' - Anweisung.

InformationsquelleAutor enick_87

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.