Question

我正在使用循环宏来复制数据，直到单元格为空。

一旦该单元格为空，我想要宏来选择A列中的单元格，在满足循环条件的同一行中。

这就是我所拥有的，循环宏工作正常，但当我尝试编写宏来选择单元格时，我得到一个错误。

Range("C8:V8").Select
Selection.Copy
Do
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste

Loop Until ActiveCell.Offset(-1, 15) = ""

ActiveCell.Offset(1, -6).Range("A1").Select
 End Sub

Answer 1

我无法理解您要复制/粘贴的内容，但此行将在电子表格的最后一行中选择A列中的单元格：

Range(Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1), Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1)).Select

如果这不能达到你想要的效果，显示你正在复制/循环的数据会有所帮助。

似乎你的循环永远不会在你的代码中结束，但是，因为你的结束条件ActiveCell.Offset（-1,15）总是看起来你刚从Cell“C8：V8”复制内容的地方。

最后，选择ActiveCell.Offset（1，-6）.Range（“A1”）会出错，因为它试图选择原始选择左侧的6列，从第3列开始（又名C）。

似乎您的问题可能源于对ActiveCell.Offset（）。Range（“”）语法如何工作的误解。如果是这种情况，我建议在这篇文章中给出答案 - ＆gt; i need interpretation of activecell.offset in vba

代码选择循环结束后连续的第一个单元格

1 个答案: