Вставка строки поочередно в лист Excel - PullRequest
3 голосов
/ 26 марта 2012

У меня есть лист Excel, который выглядит следующим образом:

enter image description here

Я хочу вставить строку (или ячейку) под каждую заполненную ячейку.Например: enter image description here

У меня тысячи записей, поэтому мне нужно сделать это автоматически.Как мне этого добиться?

Заранее спасибо!

Ответы [ 5 ]

4 голосов
/ 27 марта 2012

Подход, не связанный с VBA, заключается в создании нового листа и вводе этой формулы в A1:

=INDEX(Sheet1!A:A, ROUNDUP(ROW(A1)/2, 0))

Затем выберите A1 и A2 (оставив A2 пустым), скопируйте его, дважды выберите числострок, как в Sheet1, и вставьте.

Если вам нужны только значения, вы можете выбрать столбец A и скопировать, а затем вставить только специальные и вставить значения.

1 голос
/ 09 апреля 2015
  1. выберите необработанный текст, содержащий данные, которые вы хотите разделить на 1 ячейку за раз.
  2. нажмите F5.
  3. нажмите спец.
  4. наПерейдите в специальное диалоговое окно, нажмите «Константа».
  5. щелкните правой кнопкой мыши 1 выбранную ячейку и вставьте
1 голос
/ 26 марта 2012

Вы можете сделать это в VBA с помощью следующего кода:

Sub doIt()

    Dim numRows As Long
    Dim i As Long

    numRows = ActiveSheet.UsedRange.Rows.Count

    For i = numRows To 2 Step -1
        ActiveSheet.Rows(i).Insert Shift:=xlDown
    Next i

End Sub
0 голосов
/ 04 апреля 2019

простой способ: в свободном столбце (например, столбец A) заполните первые 3 строки 2,4,6, автоматически заполнив столбец до конца ваших данных.В конце заполните следующие 3 строки с помощью 1,3,5 Автозаполните то же количество строк, в которых ваши данные теперь выделены все, data-> sort-> A, который отсортирует ваши данные по 1, (пусто) 2 (data) 3 () пусто

;)

0 голосов
/ 27 июля 2017

В качестве альтернативы я нашел следующее решение от https://www.pcmag.com/article/149833/insert-alternate-blank-rows-in-excel

Вы можете создавать пустые строки отдельно, а затем чередовать их с существующими строками путем сортировки. Для начала вставьте новый столбец слева от существующего столбца A. Введите 1 в ячейку A1 и выделите столбец A до последней строки, содержащей данные. В меню «Правка» выберите «Заполнить | Серия и нажмите на ОК. Столбец А теперь должен содержать числа от 1 до общего количества строк. Нажмите Ctrl-C, чтобы скопировать эти ячейки в буфер обмена, щелкните ячейку чуть ниже последней из них и нажмите Ctrl-V, чтобы вставить. Теперь выделите всю область данных, включая новые строки, содержащие только номер в столбце A. Выберите «Сортировать» в меню «Данные» и выберите параметр «Нет строки заголовка» в появившемся диалоговом окне. В разделе «Сортировать по» выберите «Столбец A», в разделе «По» выберите «Столбец B» и нажмите «ОК». Наконец, удалите столбец А. Теперь у вас есть пустая строка после каждой из исходных 1000 с лишним строк.

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

Снова вставьте новый столбец слева от столбца A и заполните ряд от 1 до конца данных. Выделите всю область данных и отсортируйте по столбцу B (первый столбец реальных данных). Это сгруппирует все пустые строки вместе. Затем снова выделите область данных и выполните повторную сортировку по столбцу A. Пустые строки пропали, и ваши данные будут восстановлены в исходном порядке. Наконец, удалите столбец A.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...