IF文でセルに数字を入力したいが、出来ない

Question

初めまして。質問をさせて頂きますので、
ご回答頂けますと幸いです。

実現したいこと

'表示の形式
Columns("E:E").NumberFormatLocal = "00000"
Columns("F:F").NumberFormatLocal = "00"

'変数の宣言
Dim maxrow As Long
maxrow = Worksheets(1).Cells(Rows.Count, 5).End(xlUp).Row
Dim i
For i = 2 To maxrow

'売先コードの入力
If Range("E" & i).Value = "○○株式会社" Then
Range("E" & i).Value = "06427" And _
Range("F" & i).Value = "00"

　ElseIf Range("E" & i).Value = "株式会社▲▲" Then
Range("E" & i).Value = "06424" And _
Range("F" & i).Value = "01"

　end if

としているのですが、下記通りE列には00000、F列は空欄となってしまいます。

試したこと

Columns("E:E").NumberFormatLocal = "00000"　を"@"にしてもできませんでした。

お分かりの方いらっしゃいましたら、ご回答頂けますと非常に助かります。
宜しくお願い致します。

Comments

[okakemetal]

デバッグで変数の値が希望した値になっているか確認されましたか？

[meg_]

インデントが分かるように、コードは「コードの挿入」で記入されると回答者が読みやすくなります。

[meg_]

"○○株式会社"とか"株式会社▲▲"が存在していないからではないですか？

Answer 1

※回答変更済み

'表示の形式
Columns("E:E").NumberFormatLocal = "00000"
Columns("F:F").NumberFormatLocal = "00"

'変数の宣言
Dim maxrow As Long
maxrow = Worksheets(1).Cells(Rows.Count, 5).End(xlUp).Row
Dim i
For i = 2 To maxrow

'売先コードの入力
If Range("E" & i).Value = "○○株式会社" Then
Range("E" & i).Value = 6427
Range("F" & i).Value = 0

　ElseIf Range("E" & i).Value = "株式会社▲▲" Then
Range("E" & i).Value = 6424
Range("F" & i).Value = 1

　end if
next i

①：数値表記なので数値を代入してください。(足りない桁は自動的に０で埋めてくれます)
②：And不要です（今回のバグの主原因です）

以上２点の修正で動作確認済みです。(excel2019)

Comments

[yu_tommy]

ご回答ありがとうございます！
回答頂いた内容ですが、
一応、同一シート内での処理となっております。
宜しくお願い致します。

[yu_tommy]

Eのセルに入っている、〇〇株式会社という情報が、数字に入れ替わってはいるのですが、06427という数字ではなく、00000という数字で入力されてしまうという問題でした。

[pig_vba]

回答を修正しました。

[yu_tommy]

ご返信遅くなり申し訳ございません。
and を消したら、無事治りました｡｡｡。（こんな簡単なことでお恥ずかしいです。。。）

ありがとうございました！本当に本当に助かりました！！感謝致します。