Excel VBA在没有循环的情况下交换vba范围的列

Question

我有一个由用户定义的两列组成的范围 Application.Inputbox方法。我会将其存储为 rng在要复制的 VBA 中，然后粘贴到 Excel 工作表中的某些单元格中。在粘贴之前，我想在 rng 中交换这两列。有没有一种方法可以做到这一点而无需循环并且不必交换 excel 表中的实际原始列？

所以我的意思是这样的:

rng_swapped.Columns(1).Value = rng.Columns(2).Value
rng_swapped.Columns(2).Value = rng.Columns(1).Value

rng = rng_swapped

Answer 1

使用变体数组作为中间临时存储，以便您可以覆盖原始数组。

dim arr as variant

arr = rng_swapped.Columns(1).value
rng_swapped.Columns(1) = rng_swapped.Columns(2).Value
rng_swapped.Columns(2) = arr