如何在Excel VBA中将单元格中的数字替换为循环中列表中的名称

Sub ReplaceNumbersWithNames()
    Dim rng As Range
    Dim cell As Range
    Dim namesList As Variant
    Dim i As Integer
    
    ' 定义要替换的数字和对应的名称列表
    namesList = Array("名称1", "名称2", "名称3", "名称4")
    
    ' 设置要替换的单元格范围
    Set rng = Range("A1:A10") ' 假设要替换的单元格范围是A1:A10
    
    ' 循环遍历每个单元格
    For Each cell In rng
        ' 判断单元格的值是否为数字
        If IsNumeric(cell.Value) Then
            ' 将数字转换为整数，并作为索引获取对应的名称
            i = CInt(cell.Value) - 1
            ' 判断索引是否在列表范围内
            If i >= LBound(namesList) And i <= UBound(namesList) Then
                ' 替换单元格的值为对应的名称
                cell.Value = namesList(i)
            End If
        End If
    Next cell
End Sub