VBA Excel Разделить лист на каждый столбец

У меня есть транспонированная таблица с двумя «столбцами заголовка». Таблица растягивается слишком долго вправо, и я хочу иметь возможность разделить эту таблицу на несколько листов на каждый столбец «n», а также копировать два столбца заголовка на каждый новый лист. Все примеры, которые я могу найти, разделяют только все «n» строки, тогда как я хочу разделить все «n» столбцы.

Мне сложно объяснить это простым текстом, поэтому я прикрепляю скриншоты: в этом примере первый лист содержит исходные данные, а последующие листы содержат задуманный результат макроса, где лист разбивается каждые два столбца:

введите описание изображения здесь введите описание изображения здесь введите описание изображения здесь введите описание изображения здесь

Sub colsplit() Dim wssrc As Worksheet Dim wsdest As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False Set wssrc = ActiveWorkbook.Sheets("Source") 'getting No of columns lcol = wssrc.Cells(1, Columns.Count).End(xlToLeft).Column On Error GoTo resetsettings 'getting User input to split count col = InputBox("Enter Number of columns to split") If IsNumeric(col) And col <> "" And col > 0 Then desti = 1 For i = 3 To lcol Set wsdest = Sheets.Add(After:=Sheets(Sheets.Count)) wsdest.Name = "split" & desti 'copying header columns to new sheets wssrc.Columns(1).EntireColumn.Copy Destination:=wsdest.Cells(1, 1) wssrc.Columns(2).EntireColumn.Copy Destination:=wsdest.Cells(1, 2) desti = desti + 1 x = 3 For j = i To (i + col - 1) 'Copying other columns to new sheet wssrc.Columns(j).EntireColumn.Copy Destination:=wsdest.Cells(1, x) x = x + 1 Next j i = i + col - 1 Next i Else End If resetsettings: Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub 

Этот код разделит столбцы и вставляет их в новые листы.

Мне непонятно, что вам нужно, макрос? SE не является сервисом кодирования. Для этого попробуйте freelancer.com или похожие источники.

Если вы хотите быстрое и проворное решение: запишите свою ручную задачу, чтобы разделить эту таблицу как макрос. Тогда вы можете запустить его сервал раз, если вам это нужно. Если вы не знаете, как это сделать вручную, оставьте комментарий, я объясню тогда.

  • Как разделить текст на другой столбец или удалить текст из исходного столбца?
  • Разделение csv-файла с несколькими объектами с течением времени по времени
  • Как разбить и обновить список с несколькими значениями поиска
  • Разделите после первого пространства в одной ячейке, а остальные в другой
  • Столбец Excel разделен по критериям
  • Разделить ячейку на разделителе, используя формулы
  • Отдельные символы дефисом в vba
  • Ошибки при копировании - вставка столбца из Excel
  • Excel: SUMIF в зависимости от числа в поле
  • Как разделить / разбор строки вокруг первого числа в Excel
  • Разделение строки адресов электронной почты на разные столбцы с использованием следующей доступной строки
  • Давайте будем гением компьютера.