excel-vba Range.Offset错误

我有一个与以下VBA代码的问题：

Set timeRange = ActiveSheet.Cells.Find("DATE", MatchCase:=True) 'Cerca TIME column If timeRange Is Nothing Or Empty Then GoTo errorOpenColumn timcol = timeRange.Column Columns(timcol).Select Selection.NumberFormat = "yyyymmdd" Selection.Copy 'Workbooks(Mainbook).Activate 'Worksheets("Office_Data_Table").Select Workbooks(Mainbook).Activate Worksheets("Office_Data_Table").Activate Range("A:A").Offset(6, 0).PasteSpecial 'Error aqui Windows(Sourcebook).Activate 

在执行的时候，它会给Range("A:A").Offset(6, 0).PasteSpecial一个错误， Range("A:A").Offset(6, 0).PasteSpecial ，但不会给出错误（ 无效的input，应用程序将被closures ）。 但如果我应用Offset(0,6) ，它将起作用。

显然我的问题是我想要应用Offset (6,0) ，而不是另一个:-)。

任何帮助高度赞赏。

Answer 1

Range("A:A")select整个列 – OFFSET(6,0)试图将整列向下偏移 – 这是不可能的，因为它已经完全被选中了！ 相反，你可能想使用Range("A1"). Offset(6,0) Range("A1"). Offset(6,0)或Range("A7") 。