Tag: 全球

代码中粘贴内容时出错

我试图做出以下代码，以复制几行的内容将其内容复制到第二行。 Sub PasteBetter() Dim r As Range, cell As Range Dim rng As Range Set r = Range(Range("A3"), Range("A3").End(xlDown)) For Each cell In r Range(Selection, Selection.End(xlToRight)).Select Application.CutCopyMode = False Selection.Cut Set rng = Range(Range("A2"), Selection.End(xlToRight)) Range(rng).Offset(RowOffSet:=1).Select ActiveSheet.Paste Next cell End Sub 然而，这挂在范围（rng）.Offset（RowOffSet：= 1）。select线，说它错过了一个全球性的变种。 被调用的唯一一个是在它之前的行中定义的rng。 我在这里编码错误是什么？ 至于澄清，我正在试图做一个像这样的文件 看起来像这样