通過複製粘貼功能不工作

如果列中單元格的值是通過然後列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

我已經使用了下面的代碼，但while我馬上執行我得到'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

來源

2013-07-29 user2625643

你在哪裏寫MoveA公式？在單元格D3？ –

'Range（「B3」）。Cut Range（「C3」）'（但它聽起來像你應該把它變成一個循環）。但是，你可以用一個簡單的公式，而不使用VBA很容易做到這一點。 – chancea

你真的不需要使用任何代碼，只需要公式。

如果您將公式=IF(A2="pass", B2, "")粘貼到cell C2和複製下來它應該適合您。

來源

2013-07-30 18:01:27 lfrandom

通過複製粘貼功能不工作

回答

相關問題