excel - VBA 如果值与特定 Dim 的名称相同，则获取值的 Dim

Question

如何链接CSVTypeColumn = CSVType01 = "AL" ?
如果 CSVTypeColumn.value = CSVType01然后CSVTypeColumn.value = "AL" ?

'''''Module1
Public CSVType01 As String
       CSVType01 = "AL"

'''''Module2
For CSVTypeColumnCount = 1 To 6
Dim CSVTypeColumn As String                               
    CSVTypeColumn = "CSVType0" & CSVTypeColumnCount
Dim FindCSVType As Range
    Set FindCSVType = .Range(CSVTypeColumn & 1).Column '<-- Wrong here!

Answer 1

使用数组:

Public CSVType(1 To 6) As String
       CSVType(1) = "AL"
' etc
For CSVTypeColumnCount = 1 To 6
Dim CSVTypeColumn As String                               
    CSVTypeColumn = CSVType(CSVTypeColumnCount)