如何遍历单元格范围并在 vba 中使用单元格值命名单元格？

【问题标题】：How do I loop through a cell range and name the cells with cell value in vba?如何遍历单元格范围并在 vba 中使用单元格值命名单元格？
【发布时间】：2014-03-09 10:27:07
【问题描述】：

我有以下代码，它运行良好，但是，我想遍历一个单元格区域并用单元格值命名该区域内的单元格：

Sub NameCell()
Range("A2").Name = Range("A2").Value
End Sub

【问题讨论】：

查看此链接：Loop through each cell in a range of cells

标签： vba excel

【解决方案1】：

试试这个：

Sub NameMaker()
    For Each r In Selection
        With r
            .Name = .Value
        End With
    Next r
End Sub

【讨论】：