vba复制公式粘贴数字

Admin | 2014-4-26 10:40:10 | 被阅次数 | 13581

温馨提示!

如果未能解决您的问题，请点击搜索；登陆可复制文章，点击登陆

　　让VBA复制公式后再粘贴数字，这相当于平时操作时所使用的选择性粘贴→数值。

　　下面我们举几个例子。

　　一、直接赋值的方法

　　Dim a As Integer
　　With Sheet2
　　For a = 3 To 16
         If .Cells(a, "F") < 0 Then
            Sheet1.Cells(a, "C") = .Cells(a, "F").Value
         End If
　　Next a
　　End With

　　二、使用粘贴的办法

　　最简单的代码如下面的两行：

　　Worksheets("sheet1").Range("a1:j10").Copy
　　Worksheets("sheet2").Range("h11").PasteSpecial xlPasteValues

　　例子如下：

　　Dim a As Integer
　　For a = 9 To 23
　　If Sheet2.Range("F" & a) < 0 Then
         　Sheet2.Range("F" & a).Copy
         　Sheet1.Range("C" & a).PasteSpecial Paste:=xlPasteValues
         　Application.CutCopyMode = False
　　End If
　　Next a

该杂文来自： Excel杂文

上一篇：EXCEL表格数据显示为万元

下一篇：数据透视表结合getpivotdata函数的应用