如何通过脚本自动为Excel中某列中的所有单元格创建通用别名

Sub CreateAliases()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    
    ' 获取要操作的列范围
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 将"A"替换为实际的列标识
    Set rng = ws.Range("A2:A" & lastRow) ' 将"A2:A"替换为实际的列范围
    
    ' 循环遍历每个单元格，为其创建通用别名
    For Each cell In rng
        cell.AddComment cell.Value ' 将单元格的值作为别名添加为注释
    Next cell
End Sub