小编Nit*_*hav的帖子

我想将一个单元格值复制到另一个单元格,但我希望将该值保留在变量中,以便我可以根据需要使用它.

以下是我试过的代码 -

Private Sub CommandButton1_Click()
NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
For x = 1 To NumRows
    a= Cells(x, 1).Value.Copy
    Cells(x, 2).Value= a.PasteSpecial
Next
End Sub