列属性粘贴行

Question

你好，我已经为复制特定行，并将其粘贴在特定列代码 代码

Range(rng, rng.End(xlToRight)).copy 
Columns(c).Offset(, 6).PasteSpecial Transpose:=True 

它工作正常 但是，当我想开始从粘贴2细胞特定列的i，E

Range(rng, rng.End(xlToRight)).copy 
Columns(c).Offset(2, 6).PasteSpecial Transpose:=True 

它给 “对象中定义的误差”

请帮我

Answer 1

这应该工作：

Cells(2, Cells(1,Columns(c).Column).offset(,6).Column).PasteSpecial Transpose:=True 

凌您选择第2行通过Cells(2,和6列的任何C是正确的上面通过Columns(c).Column).Offset(,6).Column)

之所以Columns(c).Offset(2,6)不起作用的原因是你告诉excel将一个Entire Column偏移2行，你不能这样做，因为它会有效地将数据从工作表中删除。

可以抵消EntireColumns对于一个给定的列数和EntireRows对行的给定数量，而不是通过EntireColumns行和EntireRows BY列。

Answer 2

您不能逐列偏移列，列总是全部。你应该抵消一个单元格。

Columns(c).cells(1).Offset(1, 6).PasteSpecial Transpose:=True 

或

Columns(c).cells(2).Offset(, 6).PasteSpecial Transpose:=True 

或

Columns(c).cells(2, 7).PasteSpecial Transpose:=True 

或

cells(2, c+6).PasteSpecial Transpose:=True