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列旁边插入一列，根据相邻列的长度（“ O”）从P列复制数据，然后将数据粘贴到插入的列中。

以上是我用来实现此目的的代码。但是问题是列P和O每次都没有相同的数据长度。

我不确定这里缺少什么。有人纠正我在哪里做错了。

预先感谢！

Answer 1

尝试一下（“ O3”和Rows.Count引起问题）。同样也不需要select cells。

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")

根据辅助列的长度复制数据

1 个答案: