0
작동하지 않음 :복사
언제 열 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
어디서 MoveA 공식을 쓰고 있습니까? 셀 D3에? –
Range ("B3"). Cut Range ("C3")'(그러나 이것을 루프로 바꾸어야하는 것처럼 들립니다.) 그러나 VBA를 사용하지 않고 간단한 공식으로 쉽게 할 수 있습니다. – chancea