Если у вас есть множество задач для этого, или вы делаете это часто, то вам лучше всего использовать макрос. Макрос может использовать такой код:
Range("A1").End(xlDown).Select
который выберет A1, вплоть до нижней части текста. А затем сделайте что-нибудь с циклом по всем столбцам, вставляя каждый раз в ячейку под нижней частью столбца A, что вы можете получить с этим.
Range("A1").End(xlDown).Offset(1,0).Select
Но вам нужно, чтобы кто-то потратил время, чтобы правильно написать макрос.
В качестве альтернативы, если у вас есть только небольшое количество таких действий, то это может быть просто быстрее сделать это вручную.
Самый быстрый способ, которым я могу придумать, это просто
- щелкните в верхней части столбца B
- Crtl-Shift-DownArrow, чтобы выбрать все данные в столбце
- Ctrl-C для копирования
- Нажмите в ячейке A1
- Ctrl-DownArrow, затем DownArrow самостоятельно, чтобы перейти к первой пустой ячейке в столбце A
- Ctrl-V, чтобы вставить
- Повторите эти действия для каждого столбца C. Не займет так много времени только для дюжины столбцов.
Макрос в основном делал бы то же самое, он делал бы это намного быстрее, чем человек ;-)