2つのアクションを持つIF IF THEN

Question

私は列Jのセルの値をチェックするマクロを持っています。値に基づいて、次のコードを使用する列KとLのセルを設定する必要があります。

For Each Cell In TelRange 
    With Cell 
    If Left(.Value, 3) = 201 Then 
     Cell.Offset(0, 1).Value = "Mobile" And Cell.Offset(0, 2).Value = Left(Value, 5) 
    End If 
    End With 
Next Cell 

これは機能しません。

誰かがこれを行う方法を知っていますか？

Answer 1

1アクションでは動作しますが、2では正しく動作しないような質問から、それが動作しない場合

For Each Cell In TelRange 
    With Cell 
    If Left(Value, 3) = 201 Then 
     Cell.Offset(0, 1).Value = "Mobile" 
     Cell.Offset(0, 2).Value = Left(Value, 5) 
    End If 
    End With 
Next Cell 

二行にそれを試してみてくださいspliting（AND論理演算のために使用され、AとBの場合のように）、何が起こっているかと言うてください。エラーメッセージ？更新されませんか？