excel - 根据工作表名称更改单元格的值

Question

我正在尝试学习 vba，我有这个列表。对于每个 NAME，都会创建一个单独的工作表。如果工作表的名称与列表中的名称匹配，我需要将长度放入单元格 J1 中。我尝试使用 if ... elseif ... 但知道我有 430 个不同的名称，代码会太长我该怎么办？我可以使用什么替代代码？

Sub length()

Dim ws As Worksheet



For Each ws In ThisWorkbook.Worksheets
    
If ws.Name = "A" Then
ws.Activate
Range("J1").Select
ActiveCell.FormulaR1C1 = 4153

ElseIf ws.Name = "B" Then
    ws.Activate
    Range("J1").Select
    ActiveCell.FormulaR1C1 = 2273
    
Next
MsgBox "DONE"
End Sub

Answer 1

Sub length()
Dim Cell as Range
    For Each Cell In Range("Name")   
        On Error Resume Next
        ThisWorkbook.Sheets(Cell.Value).Range("J1") = Cell.Offset(0, 1)
        If Err.Number <> 0 Then Debug.Print "Sheet " & Cell & " wasn't found"
        On Error GoTo 0
    Next Cell
    MsgBox "DONE"
End Sub

• Range("Name") 需要更改为使用工作表名称引用实际范围。
• On Error ... 如果您确定所有提到的工作表都存在，则可以将其删除。