初めまして。質問をさせて頂きますので、
ご回答頂けますと幸いです。
実現したいこと
'表示の形式
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" を"@"にしてもできませんでした。
お分かりの方いらっしゃいましたら、ご回答頂けますと非常に助かります。
宜しくお願い致します。
回答1件