我想将单元格值复制到另一个单元格,但我想保留变量中的值,以便我可以根据要求使用它。
以下是我尝试过的代码-
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
无需使用Range.Copy
方法。尝试这个:
Dim a As Variant
a = Cells(x, 1).Value
Cells(x, 2).Value = a
如果要保留所有值,则需要使用数组:
Dim x As Long
Dim NumRows As Long
NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
ReDim a(1 to NumRows)
For x = 1 To NumRows
a(x) = Cells(x,1).Value
Cells(X,2).Value = a(x)
Next x
我还建议显式变量声明。它可以在您的选项中找到或通过键入Option Explicit
在最顶部,任何子或功能之上。这将迫使您声明变量。我知道作为一个新手,这感觉像是一种负担,但只需将一个拼写错误声明为新变量即可改变您的想法。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)