Entfernen Sie bestimmte Spalten von Blatt

Question

Ich habe ein Master-Blatt, aber aus diesem Blatt muss ich nur bestimmte Spalten angezeigt werden. Es dauert sehr lange, es manuell zu tun, und dieses Arbeitsblatt muss ich einmal alle zwei Wochen erledigen.

Kann jemand bitte VBA-Code vorschlagen, dies zu tun?

Answer 1

Angenommen, Sie Zahlen Spalten löschen müssen, um 13, 58 und 101, dann gehen Sie wie folgt:

Sub DeleteColumns() 
    Columns(101).EntireColumn.Delete 
    Columns(58).EntireColumn.Delete 
    Columns(13).EntireColumn.Delete 
End Sub 

Für die ursprünglichen Spaltennummern zu halten, stellen Sie sicher, dass Sie sie von der höchsten bis zur niedrigsten löschen. Beachten Sie, dass Spalten von 1 (was "A" ist) nummeriert sind.

Wenn Sie die Spalten nicht löschen wollen, sondern sie nur verbergen, verwenden Sie dann die Hidden Eigenschaft:

Sub HideColumns() 
    Columns(13).EntireColumn.Hidden = True 
    ' ... etc. 
End Sub 

Answer 2

Sie gehen könnte wie folgt:

Sub ColumnsDelete() 
    Range("A1, E1, AH1").EntireColumn.Delete 
End Sub 

Sub ColumnsHide() 
    Range("A1, E1, AH1").EntireColumn.Hidden=True 
End Sub 

Wo man einfach haben um Spaltenköpfe einzugeben, gefolgt von jeder Zeilennummer (ich wählte "1" zur Vereinfachung)