Excel VBA本地化：预定义变量赋值还是动态创建变量？

首先明确：VBA是静态类型语言，没法在遍历区域时动态创建公共String变量，所有变量必须提前声明。但你现在用预定义变量导致代码混乱的问题，完全可以通过更高效的方式解决，不用死磕预定义变量这条路。

推荐方案1：用字典存储多语言键值对 #

这是最省心的方式，直接把语言对照表加载到字典里，用的时候通过键名取对应语言的文本，不用预定义一堆零散变量：

' 模块级字典（替代公共变量）
Private langDict As Dictionary

' 初始化字典，加载目标语言的所有键值对
Sub InitLanguage(targetLang As String)
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim valueCol As Integer
    
    ' 替换成你的语言对照表工作表名
    Set ws = ThisWorkbook.Sheets("语言对照表")
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 确定目标语言对应的列
    Select Case UCase(targetLang)
        Case "FR"
            valueCol = 2
        Case "EN"
            valueCol = 3
        ' 新增语言时，只需要在这里加对应Case
        Case Else
            valueCol = 3 ' 默认用英语
    End Select
    
    Set langDict = New Dictionary
    ' 遍历对照表，把键和对应语言值存入字典
    For i = 2 To lastRow ' 假设第一行是表头
        Dim keyName As String
        keyName = ws.Cells(i, 1).Value
        If Not langDict.Exists(keyName) Then
            langDict.Add keyName, ws.Cells(i, valueCol).Value
        End If
    Next i
End Sub

' 使用示例：调用字典获取本地化文本
Sub TestLocalization()
    InitLanguage "FR" ' 设置目标语言为法语
    MsgBox langDict("Ln_Date") ' 弹出"Date"
    MsgBox langDict("Ln_Created by") ' 弹出"Créé par"
End Sub

• 优势：新增语言或文本项时，只需要在对照表工作表加行，InitLanguage里加对应语言的Case，不用修改变量声明，代码维护成本极低。
• 注意：需要先在VBA编辑器的「工具→引用」里勾选Microsoft Scripting Runtime；如果不想用引用，把Set langDict = New Dictionary改成Set langDict = CreateObject("Scripting.Dictionary")即可（后期绑定）。

方案2：用自定义类封装语言字段 #

如果追求更结构化的代码，也可以用自定义类来管理所有语言字段：

1. 插入一个类模块，命名为LanguagePack
2. 在类模块里定义需要的属性（变量名不能有空格，对照表的键名可以对应处理）：

Public Ln_Date As String
Public Ln_CreatedBy As String
' 新增文本项时，在这里加对应的属性即可

3. 编写加载类实例的函数：

Function GetLanguagePack(targetLang As String) As LanguagePack
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim valueCol As Integer
    Dim pack As New LanguagePack
    
    Set ws = ThisWorkbook.Sheets("语言对照表")
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    Select Case UCase(targetLang)
        Case "FR"
            valueCol = 2
        Case "EN"
            valueCol = 3
        Case Else
            valueCol = 3
    End Select
    
    ' 遍历对照表，给类的属性赋值
    For i = 2 To lastRow
        Select Case ws.Cells(i, 1).Value
            Case "Ln_Date"
                pack.Ln_Date = ws.Cells(i, valueCol).Value
            Case "Ln_Created by"
                pack.Ln_CreatedBy = ws.Cells(i, valueCol).Value
            ' 新增文本项时，在这里加对应Case
        End Select
    Next i
    
    Set GetLanguagePack = pack
End Function

' 使用示例
Sub TestClassLocalization()
    Dim langPack As LanguagePack
    Set langPack = GetLanguagePack("EN") ' 设置目标语言为英语
    MsgBox langPack.Ln_Date ' 弹出"Date"
    MsgBox langPack.Ln_CreatedBy ' 弹出"Created by"
End Sub

• 优势：字段有强类型提示，代码更规范；所有语言字段集中在类里管理，比零散的公共变量更清晰。

总结 #

VBA不支持动态创建公共变量，必须提前声明，但你完全不用采用预定义一堆公共变量的方式。用字典或自定义类的方案，能大幅简化后续维护工作，新增语言或文本项时改动极少，彻底解决代码混乱的问题。

内容的提问来源于stack exchange，提问作者Steeve_Osteen