копировать данные в соответствии с длиной вспомогательного столбца

Question

Columns("Q:Q").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Dim lastRow As Long
lastRow = Range("O3" & Rows.Count).End(xlUp).Row
Range("P4:P" & lastRow).Select
Selection.Copy
Range("Q4").Select
ActiveSheet.Paste

Я пытаюсь вставить столбец рядом со столбцом Q, скопировать данные из столбца P на основе длины соседнего столбца («O») и вставить данные во вставленный столбец.

Выше приведен код, который я использую для достижения этой цели. Но проблема в том, что столбцы P и O не имеют одинаковую длину данных каждый раз.

Я не уверен, что мне здесь не хватает. Кто-то поправит меня, где я делаю это неправильно.

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

Answer 1

Попробуйте это («O3» & Rows.Count вызвало проблемы). Также нет необходимости выделять ячейки .

Columns("Q:Q").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Dim lastRow As Long
lastRow = Range("O" & Rows.Count).End(xlUp).Row
Range("P4:P" & lastRow).Copy Range("Q4")