-1

我有 2 列数据。一列有单元格名称(B63、J63、P63...),另一列有值。我想要一种将每个值放在相邻命名单元格中的方法。

示例:单元格 A1 包含 B63。单元格 B1 包含 1.08274。我想编写一个将 1.08274 分配给 B63 的宏。

该列有数百个条目,我不想手动执行此操作。任何想法如何做到这一点?

4

1 回答 1

1

试试这个:

Sub dural()
    Dim N As Long, L As Long, addy As String
    N = Cells(Rows.Count, "A").End(xlUp).Row
    For L = 1 To N
        addy = Cells(L, 1).Value
        Range(addy).Value = Cells(L, 2).Value
    Next
End Sub

编辑:

为了获得价值和格式,我们将做一个正版:

Sub sequel()
    Dim N As Long, L As Long, addy As String
    N = Cells(Rows.Count, "A").End(xlUp).Row
    For L = 1 To N
        addy = Cells(L, 1).Value
        Cells(L, 2).Copy Range(addy)
    Next
End Sub
于 2013-09-20T21:11:27.427 回答