取一行复制、只复制数值

yy12388

如下vbA代码，在复制、粘贴过程中遇到公式时，而不能只复制数值，

1. Sub tt()
   
2. Dim rngCur As Range, rngRow As Range, cell As Range
   
3. Dim IRow As Long, a As Long, r As Long, i As Long
   
4.     Set rngCur = Range("A1").CurrentRegion
   
5.     If Selection Is Nothing Or Union(rngCur, Selection).Address <> rngCur.Address Then Exit Sub
   
6.     If Selection.Columns.Count <> rngCur.Columns.Count Then MsgBox "需要选取整行数据!": Exit Sub
   
7.     If Selection.Areas.Count > 1 Then MsgBox "请选择连续的行!": Exit Sub
   
8. 
   
9.     With Sheet2
   
10.         IRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    
11.         Selection.Copy .Cells(IRow, 1)
    
12.             End With
    
13. End Sub
    

复制代码

我的要求是：1、取一行复制；2、只复制数值；3、实现按钮动态取值复制到另一张表上去。

yy12388

谢谢老师It0314的指导，问题已经解决

ggsmart

要复制单元格的数值（仅数值），下面以将A1的数值赋制到A2为例，有两种方法可以实现：

一是通过直接赋值的方法实现，如：
Range("A2").value=Range("A1").Value
使用这种方法虽然简单，但是得准确地写出源单元格和目标单元格的具体区域

二是通过复制和粘贴的代码实现，录制一个选择性粘贴数值的宏，这样的代码很容易写出，如：
    Range("A1").Copy
    Range("A2").PasteSpecial Paste:=xlPasteValues