复制并粘贴值而不是公式

时间:2016-01-10 05:52:47

标签: vba excel-vba excel

第一次编写宏时,我必须将单元格值复制到另一个并且使其工作,但是,我不确定如何复制整个列而不指定范围,因为范围可能每次都不同。在这里,我正在尝试使用一个正在工作的范围,但我希望它检查该列的单元格值,直到它找到一个值复制/粘贴到另一列。

这是我到目前为止的代码:

Sub CopyingCellValues()

Range("E2:E7").Copy
Range("C2:C7").PasteSpecial xlPasteValues

End Sub

感谢。

1 个答案:

答案 0 :(得分:2)

简单列副本将是......

Sheets("Sheet Name").Columns(1).Copy Destination:=Sheets("Sheet Name").Columns(2)

MSDN上有用的信息Getting Started with VBA in Excel 2010

修改

没有公式,请尝试

Sub CopyingCellValues()
    Range("E:E").Value = _
    Range("C:C").Value
End Sub
Sub ValueToValue()
    [E:E].Value = [C:C].Value
End Sub