Copy Paste через функцию не работает

Если Column значение ячейки проходит то значение столбца B ячейка должна быть перемещена в колонке C.Copy Paste через функцию не работает

Eg:

Когда колонна 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? –

'Диапазон (« B3 »). Диапазон разреза (« C3 »)' (но похоже, что вы должны превратить это в цикл). Однако вы можете сделать это легко с помощью простой формулы без использования VBA. – chancea

Вам действительно не нужно использовать какой-либо код вообще, просто формулы.

Если вы введете формулу =IF(A2="pass", B2, "") в cell C2 и копия она должна работать на вас.

источник

2013-07-30 18:01:27 lfrandom

Copy Paste через функцию не работает

ответ

Смежные вопросы