vba - 复制并粘贴值而不是公式

Question

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

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

Sub CopyingCellValues()

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

End Sub

谢谢。

Answer 1

简单的列副本将...

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