Excel VBA（未定义子项或函数，错误）

Question

我正在VBA excel中处理以下代码，但出现编译错误“未定义子或函数”该代码用于复制单元格并将它们的转置粘贴到特定偏移处。任何帮助将不胜感激，预先感谢 code along with error in the image

代码子copy_paste（）

ActiveCells.Copy
Offset(-1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=True
Offset(3, -1).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Offset(-2, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=True
Offset(1, 0).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.ClearContents

结束子

Answer 1

在vba中使用偏移量，例如：Range("A1").Offset(1, 1).Select