我有 2 列数据。一列有单元格名称(B63、J63、P63...),另一列有值。我想要一种将每个值放在相邻命名单元格中的方法。
示例:单元格 A1 包含 B63。单元格 B1 包含 1.08274。我想编写一个将 1.08274 分配给 B63 的宏。
该列有数百个条目,我不想手动执行此操作。任何想法如何做到这一点?
试试这个:
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