Vba 变量别名

重新框定问题：我使用了一个包含标题的范围来定义一个数组，我初始化了该数组并从表中提取了数据。对于冗余和重复的代码，事情进展顺利，但我可以直接将数组写入Excel行

但是代码需要验证和初始化，因此我迁移到一个封装这两个需求的类。动态实现需要使用InsertLines重新编写类

问题是，现在我有一个类中的数据，但我不知道如何将其写入一行

以前的算法：

当前方式：

现在的问题是，我不知道类中变量的顺序，这与前面使用数组的方法没有关系，但这种方法肯定涉及太多的代码冗余

---

救命啊！想知道一个变量是否可以用不同的别名来表示，这就解决了我的问题。或者有没有一种方法可以解决类中的所有公共变量，比如说使用循环？

我很乐意提供一个例子，如果有什么不清楚的地方，最好查看更好理解的代码或结果屏幕截图之前/之后的代码。但请将您的代码限制在最重要的方面，这将有助于更好地理解您的需求……基于数据内容编写动态代码通常是一种设计方法，可以使用字典对象之类的东西更好地处理：即，您只需要在数据中输入一个基于字符串的键。用理论代码。dictionary对象可以在类中使用吗？您的理论代码没有提供足够的细节来说明什么是好的方法，但是您可以在类中使用dictionary对象。例如，您可以使用字典存储每个列名的索引，以便通过将列标题传递给类来调用特定值。

Dim MyRange as Range
Dim sTR() as string

'set myrange to a specific range of cells'
'Redim the sTR array to match the number of unique variables in the range
'Extract values from multiples rows in a table to the sTR array'
'Write the array to the Excel file with:' 
MyRange.Offset(x, y).value = sTR()

Dim MyRange as Range

'set myrange to a specific range of cells (Nine columns and variable rows)'
'InsertCode into a class module with all unique values in the range as public variables
Dim sTR as ClassX
Set sTR as New ClassX

'Extract values from multiples rows in a table to the sTR Class'