使用VBA脚本移动单元元组

时间:2018-06-29 15:01:27

标签: vba

我在Excel中有一些奇怪的情况。看起来像这样

Col1    Col2    Col3
A        2       2
A        2       3
A        2       4
B        2       3

我想要做的是拥有一个VBA脚本,它将执行以下操作。第1列中的“ A”或索引应匹配。

Col1    Col2    Col3      Col4   Col5   Col6      Col7    Col8    Col9
A        2       2         A      2       3        A        2       4


B        2       3

我尝试移动VBA,但没有结果。我无法用这些单元格创建一个元组(大约有5万行)。我希望此方法能够在每一行上都有效,并最终产生所展示的效果。

1 个答案:

答案 0 :(得分:1)

VBA中没有元组,但是有类模块,即可以代替使用的类。例如,您可以添加具有3个公共字段的类模块MyTuple

Option Explicit

Public Col1 As Variant
Public Col2 As Variant
Public Col3 As Variant

然后,您可以实例化变量并像这样使用它:

Dim t As MyTuple
Set t = New MyTuple
t.Col1 = "..."
t.Col2 = "..."
t.Col3 = "..."