如何在EXCEL中用VB只复制整行数值

yulongda

请大神们帮我看看，如果只复制数值，以下VB是把公式也复制过来了，我不想要公式只要数值。

Sub 按钮1_Click()
Sheets("汇总").Range("A2:G37").ClearContents
k = 2
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, 3).Text) = "经理" Then
Sheets(i).Rows(j).Copy _
Destination:=Sheets("汇总").Cells(k, 1)
k = k + 1
End If
Next
Next
End Sub

心想事成1181188

选择性粘贴就好了，可录制个选择性粘贴，改改对象

yulongda

心想事成1181188 发表于 2019-5-9 09:35
选择性粘贴就好了，可录制个选择性粘贴，改改对象

试过了，不行，还请大神帮忙。

心想事成1181188

yulongda 发表于 2019-5-9 10:14
试过了，不行，还请大神帮忙。

.text改成.value试试

心想事成1181188

Sub 按钮1_Click()
Sheets("汇总").Range("A2:G37").ClearContents
k = 2
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, 3).Text) = "经理" Then
Sheets(i).Rows(j).Copy
Sheets("汇总").Cells(k, 1).PasteSpecial Paste:=xlPasteValues
k = k + 1
End If
Next
Next
End Sub

yulongda

心想事成1181188 发表于 2019-5-9 12:01
Sub 按钮1_Click()
Sheets("汇总").Range("A2:G37").ClearContents
k = 2

真的太感谢了。解决了我一大问题了。不过还有一个想请教的，这里复制的是整行，可以复制一个范围吗？

心想事成1181188

VBA代码宝
如何在EXCEL中用VB只复制整行数值

36yulongda LV12019-5-9 08:10
请大神们帮我看看，如果只复制数值，以下VB是把公式也复制过来了，我不想要公式只要数值。

Sub 按钮1_Click()
Sheets("汇总").Range("A2:G37").ClearContents
k = 2
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, 3).Text) = "经理" Then
Sheets(i).range(Sheets(i).cells(1,k),Sheets(i).cells(100,k).Copy
Sheets("汇总").Cells(k, 1).PasteSpecial Paste:=xlPasteValues
k = k + 1
End If
Next
Next
End Sub

yulongda

您受累给看一下，现在是整行复制过来了也是数值了，但是我发现合计列原来有公式，点刷新后公式就没了，我就想如果复制过来的是范围呢。别的单元格的内容就不会变化了。

心想事成1181188

Sheets("汇总").Cells(k, 1).PasteSpecial Paste:=xlPasteValues SkipBlanks:=True

心想事成1181188

Sheets("汇总").Cells(k, 1).PasteSpecial Paste:=xlPasteValues,SkipBlanks:=True
漏了个逗号，上班没电脑