Як одночасно видалити декілька стовпців, які не є суміжними в Excel?

Коли я вибираю декілька (не суміжних) стовпчиків і намагаюся їх видалити одним ходом, Excel виводить параметри видалення стовпців. Параметри видалення стовпців доступні лише тоді, коли я вибираю суміжні стовпці. Чому це так, і чи є спосіб одночасно видалити декілька сторонніх стовпчиків?

На жаль, Micro $ soft вирішив, що непересічні стовпці, принаймні одна з яких перетинає таблицю, не можуть бути видалені одночасно. Що стосується чому, то вам доведеться запитати їх . (Можливо, тому, що "занадто важко", оскільки таблиці були функцією пізнього додавання.)

ти може в іншому випадку одночасно видаляють кілька несуміжних стовпців.

Якщо це те, що ви хочете регулярно робити з таблицями, то це є Можна написати деяку VBA, і зіставити її з клавіатурним скороченням (навіть до Del або додати його до стрічки, щоб зробити це. Код буде перемикатися по стовпцях і видаляти їх по одному.

Як ви створили Таблиця Excel Я вважаю, що це неможливо. Потрібно вилучити стовпці, що не суміжні, по одному.

(Посилання)

Я хотів би запропонувати вам простий макрос, щоб видалити декілька несуміжних стовпців одним обведенням.

Public Sub DeleteColumns()
    Dim i As Long, arr As Variant

    arr = Split("2-4-6", "-") 

    Application.ScreenUpdating = False

    With Sheet1
        For i = UBound(arr) + 1 To LBound(arr) + 1 Step -1
            .Cells(Val(arr(i - 1))).EntireColumn.Delete
        Next
    End With
    Application.ScreenUpdating = True
End Sub

N.B.

• Ви можете замінити значення в Спліт ("2-4-6" ,,) необхідним стовпцем числа, такі як Спліт ("1-3-5").
• Порядок стовпця повинен бути за зростанням .
• З листом1 , також можна редагувати.