代码之家 › 专栏 › 技术社区 › user8285660

如果满足条件,Vba复制并粘贴特定单元格

copy-paste rows vba

user8285660 · 技术社区 · 8 年前

如果C列中的值大于0,我正在尝试复制并粘贴每行C到F中的单元格。请帮助,谢谢!

Private Sub CommandButton2_Click()
Dim range1 As Range
Dim Cell As Object
Set range1 = Sheet1.Range("C8:C40")

For Each Cell In range1
    If IsEmpty(Cell) Then
        End If
    If Cell.Value > 0 Then
    Sheet1.range(C:F).Copy
    Sheet5.Select
    ActiveSheet.Range("A40").End(xlUp).Select
    Selection.Offset(1, 0).Select
    ActiveSheet.Paste
    End If
    Next
    End Sub

1 回复 | 直到 8 年前

Scott Craner 8 年前

您需要设置正在测试的行。

也不要使用 .Activate .Select 它只会减慢代码的速度。

Private Sub CommandButton2_Click()
Dim range1 As Range
Dim Cell As Range
Set range1 = Sheet1.Range("C8:C40")

For Each Cell In range1
    If Cell.Value > 0 Then
        With Sheet1
            .Range(.Cells(Cell.Row,"C"),.Cells(Cell.Row,"F")).Copy Sheet5.Range("A40").End(xlUp).Offset(1, 0)
        End With
    End If
Next
End Sub

要仅使用值而不使用格式,请更改以下内容:

.Range(.Cells(Cell.Row,"C"),.Cells(Cell.Row,"F")).Copy Sheet5.Range("A40").End(xlUp).Offset(1, 0)

Sheet5.Range("A40").End(xlUp).Offset(1, 0).Resize(,4).Value = .Range(.Cells(Cell.Row,"C"),.Cells(Cell.Row,"F")).Value

推荐文章

Aggie04 · 循环查找符合搜索条件的记录,然后在两个电子表格之间剪切和粘贴

7 年前

Saeed D. · 如何在Windows远程桌面RDC中从Mac剪切并粘贴到Windows

8 年前

Gabe Carvajal · 在每个小计中,for then loop copy and paste above data vba

8 年前

Piecevcake · Excel VBA或公式将多个ActiveX文本框的值复制到相邻单元格

8 年前

Nico · 在python中的新文件中粘贴文件

8 年前

user8285660 · 如果满足条件,Vba复制并粘贴特定单元格

8 年前

Hufflegigans · Excel:如何使用“复制粘贴”命令到选定图纸区域(VBA)

8 年前

L.Dutch · 将公式从一个工作簿复制到另一个工作簿

9 年前

Erika · 粘贴范围类的特殊方法失败-Excel VBA

9 年前

nagarajan · 如何复制匹配块并使用vim上的正则表达式写入另一个文件?

10 年前