Excel 复制粘贴通过功能不工作

如果A列单元格值为“通过”，则B列单元格值应移到C列

例如：

当列

A=fail

Column A   Column B Column C
Fail       123        blank
Fail       345        blank

当A列=通过时

Column A    Column B Column C
Pass        blank    123  
Pass        blank    345

我使用了以下代码，但在执行时得到了“0”结果

Function MoveA(Status)
   Call Copy1(Status)
   Application.Run "Copy1"
End Function

Sub Copy1(Status)
   If (Status = "pass") Then
     Range("B3").Copy
     Range("C3").Select

     ActiveSheet.Paste
     Application.CutCopyMode = False
   End If
End Sub

---

您实际上根本不需要使用任何代码，只需要使用公式

---

如果您将公式粘贴到单元格C2中并复制下来，您应该可以使用它。

您在哪里编写MoveA公式？在单元格D3中？

Range（“B3”）.Cut Range（“C3”）

（但听起来你应该把它变成一个循环）然而，你可以用一个简单的公式轻松地做到这一点，而不需要使用VBA。