Добрый день уважаемые знатоки, прошу помочь с таким вопросом. Есть список столбцов со значениями (их много) , нужно удалить столбец через один, либо сцепить столбцы через один. Уже долго мучаюсь с этой проблемой, никак не могу найти решение Файлик прилагаю, заранее благодарен
Sub DelColumns()
Dim iLastCol As Integer
Dim j As Integer
iLastCol = Cells(1, Columns.Count).End(xlToLeft).Column
For j = iLastCol To 3 Step -2
Columns(j - 1).Delete
Next
End Sub
Option Explicit
Sub jjj_del_columns_one_by_one()
Dim rngSrcColumns As Range
Set rngSrcColumns = Range("B:Q").EntireColumn
Dim i As Long, rngColumsDel As Range
For i = rngSrcColumns.Columns.CountLarge To 1 Step -2
If Not rngColumsDel Is Nothing Then
Set rngColumsDel = Union(rngColumsDel, rngSrcColumns.Columns(i - 1))
Else
Set rngColumsDel = rngSrcColumns.Columns(i - 1)
End If
Next i
rngColumsDel.EntireColumn.Delete
End Sub 'jjj_del_columns_one_by_one
Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori
Сергей Воробей, что бы было понятно нужно показатб файл в реальном виде (данные заменить на что-то другое и оставить только 5-10 столбцы и строк) и на другом листе желаемый результа
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
let
a = Table.SelectColumns(Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], List.Alternate(Table.ColumnNames(Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content]), 1, 1))
in
a