VBA For loop until column is empty 问题

Question

我是 VBA 的新手，我正在尝试这个 for 循环，但我认为我的“To”计数器是错误的。我希望它执行指定的操作，直到没有更多的列可以剪切。

发生的事情是，我有一组水平数据(列“T”到“EV”)，我正在按顺序在 S 列上垂直剪切和粘贴。它有效，但我仍然收到此错误:

我得到:

运行时错误“1004”:

此选择无效。有几个可能的原因:

• 复制和粘贴区域不能重叠，除非它们的大小和形状相同。
• 如果您使用“从选择创建”命令，则包含建议名称的行或列将不会包含在(此处截断)中

代码:

Dim x As Integer

For x = 0 To ActiveCell.CurrentRegion.Columns.Count
    ActiveCell.Select
    ActiveCell.Offset(0, x).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    Range("S3000").Select
    ActiveCell.End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    Range("T11").Select

Next x

Answer 1

未经测试，直接写在这里，但应该可以...

dim c as range
for each c in range("t1").currentregion
    range("s3000").end(xlup).offset(1,0)= c.value
    c.clear
next c

更改事件单元格没有意义。它只会减慢您的代码速度。