如何只复制数值

更新时间2019-05-12 06:51:39

Sub 按钮1_Click()

Sheets("汇总").Range("A9:K108").ClearContents

k = 9

For i = 1 To Sheets.Count - 0

For j = 1 To Sheets(i).Range("a6000").End(xlUp).Row

If WorksheetFunction.Trim(Sheets(i).Cells(j, 2).Text) = "是" Then

Sheets(i).Rows(j).Copy _

Destination:=Sheets("各年度实际还本付息明细表").Cells(k, 1)

k = k + 1

End If

Next

Next

End Sub

看情形是需要整行复制，相关代码可以改为：

   Sheets(i).Rows(j).Copy

   Sheets("各年度实际还本付息明细表").rows(k).select

   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False

这样，复制的只是数值，格式/公式等不含。