vba将范围插入到特定列中
尝试将CopyRng插入B列时,当运行代码CopyRng最后出现在A列时,您的代码不完整,因此我猜您可能需要执行以下操作:vba将范围插入到特定列中,vba,excel,Vba,Excel,尝试将CopyRng插入B列时,当运行代码CopyRng最后出现在A列时,您的代码不完整,因此我猜您可能需要执行以下操作: Dim CopyRng As Range LastR = LastRow(Sheets("Sheet3")) startrow = 1 startrow = startrow + 1 Set CopyRng = Sheets("Sheet3").Range(Sheets("Sheet3").Rows(1), Sheets("Sheet3").Rows(LastR))
Dim CopyRng As Range
LastR = LastRow(Sheets("Sheet3"))
startrow = 1
startrow = startrow + 1
Set CopyRng = Sheets("Sheet3").Range(Sheets("Sheet3").Rows(1), Sheets("Sheet3").Rows(LastR))
'insert copied data in Sheet3 onto inserted rows
CopyRng.Copy ActiveSheet.Cells(startrow, 2)
有床单(“床单3”)@咖啡,你看完了吗?
With Sheets("Sheet3") '<--| reference "Sheet3"
... your other code
Set CopyRng = Intersect(.UsedRange, .Range(.Rows(1), .Rows(LastR))) '<--| set 'CopyRng' to a "finite" range (not an entire row)
'insert copied data in Sheet3 onto inserted rows
CopyRng.Copy ActiveSheet.cells(startrow, 2) '<--| paste the "finite" range in Activesheet
... your other code
End With