Как удалить несколько несмежных столбцов в Excel одновременно?

Question

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

Answer 1

К сожалению, Micro $ soft решил, что несмежные столбцы, хотя бы один из которых пересекает таблицу, не могут быть удалены одновременно. Что касается того, почему, вы должны будете спросить их. (Возможно, потому что это "слишком сложно", так как таблицы были поздней добавленной функцией.)

В противном случае вы можете одновременно удалить несколько несмежных столбцов.

Если это то , что вы хотите регулярно делать с таблицами, можно написать несколько VBA, и сопоставить его с помощью сочетания клавиш (даже клавиша Del) или добавить его в ленту, чтобы сделать это. Код будет циклически проходить по столбцам и удалять их один за другим.

Answer 2

Поскольку вы создали таблицу Excel, я считаю, что это невозможно. Вы должны удалить несмежные столбцы один за другим.

(Ссылка)

Answer 3

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

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

NB

• Вы можете заменить значения в Split("2-4-6" ,,) на требуемые номера столбцов, такие как Split("1-3-5").
• Столбец должен быть в порядке возрастания.
• С Sheet1, также редактируемый.