如何只复制数值
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
这样,复制的只是数值,格式/公式等不含。
热门标签: