Note: The other languages of the website are Google-translated. Back to English

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

док разделяет каждую вторую строку 1

Например, у меня есть длинный список данных, и теперь я хочу разделить столбец на два списка поровну по каждой второй строке, как показано на следующем снимке экрана. Есть ли какие-нибудь хорошие способы справиться с этой задачей в Excel?

Разделите столбец через каждую вторую строку с помощью формул

Разделите столбец через каждую вторую строку с кодом VBA

Разделите столбец через каждую строку с помощью Kutools for Excel


стрелка синий правый пузырь Разделите столбец через каждую вторую строку с помощью формул

Следующие формулы могут помочь вам быстро разделить столбец на два столбца по каждой второй строке, пожалуйста, сделайте следующее:

1. Введите эту формулу в пустую ячейку C2, например, =INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1), см. снимок экрана :

док разделяет каждую вторую строку 2

2. Затем перетащите дескриптор заполнения вниз, пока в ячейках не отобразятся ошибки, см. Снимок экрана:

док разделяет каждую вторую строку 3

3. Затем введите другую формулу в ячейку D2, =INDEX($A$2:$A$13,ROWS(D$1:D1)*2), и перетащите дескриптор заполнения вниз к ячейкам, пока не появятся значения ошибок, а значения столбцов не будут разделены на два столбца в каждой второй строке, см. снимок экрана:

док разделяет каждую вторую строку 4


стрелка синий правый пузырь Разделите столбец через каждую вторую строку с кодом VBA

Если вас интересует код VBA, здесь я могу рассказать о коде, который поможет вам решить эту проблему.

1. Удерживайте ALT + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: разделить столбец на два столбца через каждую вторую строку

Sub SplitEveryOther()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim index As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
num1 = 1
num2 = 1
For index = 1 To InputRng.Rows.Count
    If index Mod 2 = 1 Then
        OutRng.Cells(num1, 1).Value = InputRng.Cells(index, 1)
        num1 = num1 + 1
    Else
        OutRng.Cells(num2, 2).Value = InputRng.Cells(index, 1)
        num2 = num2 + 1
    End If
Next
End Sub	

3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится диалоговое окно с напоминанием о выборе диапазона данных, который вы хотите разделить, см. снимок экрана:

док разделяет каждую вторую строку 5

4, И нажмите OKпоявится другое окно подсказки, чтобы вы могли выбрать ячейку для отображения результата, см. снимок экрана:

док разделяет каждую вторую строку 6

5. Затем нажмите OK, и каждый второй столбец разделен на два столбца. Смотрите скриншот:

док разделяет каждую вторую строку 7


стрелка синий правый пузырь Разделите столбец через каждую строку с помощью Kutools for Excel

Если вы хотите узнать больше нового, я могу порекомендовать мощный инструмент -Kutools for Excel, С его Диапазон преобразования утилиту, вы можете быстро преобразовать одну строку или столбец в диапазон ячеек и наоборот.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней

После установки Kutools for Excel, пожалуйста, сделайте следующее :( Бесплатная загрузка Kutools для Excel сейчас )

1. Выберите данные столбца, которые вы хотите разделить на два столбца по каждой второй строке.

2. Затем нажмите Кутулс > Диапазон > Диапазон преобразования, см. снимок экрана:

3. В Диапазон преобразования диалоговое окно, выберите Один столбец для диапазона под Тип трансформации, а затем выберите Фиксированная стоимость и введите 2 в коробку в Строк на запись раздел, см. снимок экрана:

док разделяет каждую вторую строку 9

4. Затем нажмите Ok Кнопка, и появится окно подсказки, напоминающее вам о выборе ячейки, в которую вы хотите вывести результат, см. снимок экрана:

док разделяет каждую вторую строку 10

5. Нажмите OK, данные списка разделены на два столбца в каждой второй строке.

Нажмите, чтобы узнать больше об этой утилите Transform Range.

Бесплатная загрузка Kutools для Excel сейчас


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (3)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
В качестве обходного пути вы можете сделать следующее: Используя приведенный выше пример, 1. Введите «=a2» в c2 и «=a3» в d3. 2. Теперь выберите от c2 до d3. 3. Перетащите маркер заполнения параллельно всем данным. 4. Теперь удалите ячейку a2 и сдвиньте ячейки вверх. 5. Теперь нам нужно преобразовать результаты формулы в вычисленные значения. Это легко сделать, скопировав все данные, включая пустые строки, и вставив значения прямо поверх себя. 6. Теперь вы можете просто отсортировать любой столбец по алфавиту, чтобы вывести все данные.
Этот комментарий был сведен к минимуму модератором на сайте
Как сделать наоборот? Получить информацию о двух столбцах в одной строке?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Джас,
Чтобы сделать наоборот, чтобы преобразовать данные двух столбцов в один столбец, вы должны применить следующий код VBA:

Sub ConvertRangeToColumn()
Dim Range1 как диапазон, Range2 как диапазон, Rng как диапазон
Dim rowIndex как целое число
xTitleId = "KutoolsforExcel"
Установите Range1 = Application.Selection
Установить Range1 = Application.InputBox("Исходные диапазоны:", xTitleId, Range1.Address, Type:=8)
Установите Range2 = Application.InputBox("Преобразовать в (одну ячейку):", xTitleId, Type:=8)
индекс строки = 0
Приложение.ScreenUpdating = False
Для каждого ряда в Range1.Rows
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
rowIndex = rowIndex + Rng.Columns.Count
Далее
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Пожалуйста, попробуйте, надеюсь, это поможет вам!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL