如何优化VBA代码：根据工作表名称批量设置单元格J1的值

你需要给与名称列表匹配的工作表的J1单元格填充对应长度值，原If...ElseIf...的写法因430个名称会导致代码过于冗长，这里提供两种高效替代方案：

方案一：使用字典（Dictionary）实现键值对映射 #

字典可以快速通过名称（键）查找对应长度（值），避免大量分支判断：

Sub FillLengthWithDictionary()
    Dim ws As Worksheet
    Dim nameLengthDict As Object
    Set nameLengthDict = CreateObject("Scripting.Dictionary")
    
    ' 批量添加名称与长度的对应关系（按格式补充剩余428组数据即可）
    nameLengthDict.Add "A", 4153
    nameLengthDict.Add "B", 2273
    ' ... 此处补充其余名称和长度
    
    ' 遍历所有工作表匹配赋值
    For Each ws In ThisWorkbook.Worksheets
        If nameLengthDict.Exists(ws.Name) Then
            ' 直接赋值，无需激活/选择单元格
            ws.Range("J1").Value = nameLengthDict(ws.Name)
        End If
    Next ws
    
    MsgBox "DONE"
End Sub

说明：

• 字典查找效率远高于逐个ElseIf判断，430个数据也能快速处理
• 去掉了原代码中Activate、Select的冗余操作，减少屏幕闪烁，提升代码稳定性

方案二：利用现有名称-长度对照表工作表作为数据源 #

如果你的名称与长度对应列表已经存在于某个工作表中（比如你提供截图里的列表），可以直接从工作表读取数据，无需手动编写所有键值对：
假设对照表在名为「名称长度对照表」的工作表中，A列为名称、B列为对应长度：

Sub FillLengthFromSheet()
    Dim ws As Worksheet
    Dim dataWs As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim nameLengthDict As Object
    
    Set dataWs = ThisWorkbook.Worksheets("名称长度对照表")
    Set nameLengthDict = CreateObject("Scripting.Dictionary")
    
    ' 读取对照表数据到字典
    lastRow = dataWs.Cells(dataWs.Rows.Count, "A").End(xlUp).Row
    For i = 2 To lastRow ' 假设第一行是表头
        Dim wsName As String
        wsName = dataWs.Cells(i, "A").Value
        If Not nameLengthDict.Exists(wsName) Then
            nameLengthDict.Add wsName, dataWs.Cells(i, "B").Value
        End If
    Next i
    
    ' 遍历工作表填充数据
    For Each ws In ThisWorkbook.Worksheets
        If nameLengthDict.Exists(ws.Name) Then
            ws.Range("J1").Value = nameLengthDict(ws.Name)
        End If
    Next ws
    
    MsgBox "DONE"
End Sub

说明：

• 后续修改名称或长度只需更新对照表，无需修改代码，维护更方便
• 自动读取数据，避免手动输入430组数据的错误

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