当两个条件都满足时，复制下面一行中的某些单元格

我真的是新来的VBA，我只能通过从本网站的解决scheme复制代码，但对于这一个我找不到类似的问题。

当列A和B与“猫”alignment为“苹果”时，我只想复制特定的单元格（不是整行）。 我也想删除我复制的那一行。

该计划说明

我的代码到目前为止：

Sub animals() Dim rcnt As Long rcnt = Worksheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row For i = 1 To rcnt If Range("B" & i).Value = "cat" And ("A" & i) = "apple" Then Range("C" & i).Offset(1, 0).Copy Range("D" & i).Offset(1, 0).Copy End If Next i End Sub 

Answer 1

 For i = 1 To rcnt If Range("B" & i).value = "cat" And ("A" & i) = "apple" Then Range("C" & i).value = Range("C" & i).Offset(1, 0).value Range("D" & i).value = Range("D" & i).Offset(1, 0).value End If Next i 

你正在复制数据，只是没有粘贴到任何地方。 此方法将跳过.Copy （跳过剪贴板），并将值设置为相等。