偏移问题从一个WS移动到另一个WS

Question

我只是试图将一些信息从列将其移至另一张列的另一列，然后使用偏移将其从我需要开始的行开始。试图不使用.popy或.cut或任何类型。

with ws
    ecol = .cells(7,.columns,count).end(xltoleft).column
    .columns(ecol) = ws2.column("AB").Value2
end with

这有效。只是将其放置在错误的区域。因此，尝试使用偏移量无论如何我都会收到1004错误

   with ws
        ecol = .cells(7, .columns.count).end(xltoleft).column
        .columns(ecol).offset(7,0) = ws2.column("AB").Value2
    end with

错误1004

   with ws
        ecol = .cells(7, .columns.count).end(xltoleft).column
        .columns(ecol).offset(7) = ws2.column("AB").Value2
    end with

错误1004

   with ws
        ecol = .cells(7, .columns.count).end(xltoleft).column
        .columns(7, ecol) = ws2.column("AB").Value2
    end with

我怀疑这是因为它将整个AB列从第1行将整个AB列拉到1MM++，而我无法更改范围。

无论哪种方式，我都希望对此进行一些帮助。我正在WS2上使用动态范围。我认为也许我可以使用.end（XLUP）。行程找到底部行并调整语法，但仍然会遇到相同的错误，或者我只是不知道如何编写它。

任何帮助都将受到赞赏。

Answer 1

 with ws
        ecol = .cells(7, .columns.count).end(xltoleft).column + 1
        endC = ws.cells(ws.rows.count,"AB).end(xlup).row
        .Range(.Cells(7, ecol), .Cells(7 + endC - 1, ecol)) = ws2.Range("AB1:AB" & endC).Value
    end with

Answer 2

我认为您对整个列转移是正确的。此代码将尽可能多地传输列的大部分。

With ws
        ecol = .Cells(7, .Columns.Count).End(xlToLeft).Column + 1
        endRow = .Rows.Count
        .Range(.Cells(7, ecol), .Cells(endRow, ecol)) = ws2.Range("AB1:AB" & endRow - 6).Value
End With

您可能需要将其限制为仅在有数据的地方传输，但这取决于您！

希望它有帮助