vba 隣のセルに値がある行だけ関数をコピー&ペーストしたい A1 100001 A2 100002

vba 隣のセルに値がある行だけ関数をコピー&ペーストしたい

A1 100001
A2 100002
A3 100003
A4 100004
A5 100005
A6 100006

A列に6桁の値があり、値があるセルだけ、隣のB列のセルにテキスト関数 =text（A1,¨0000000¨）を使って7桁表示させたいときのプログラムを教えてください。

No.1 ベストアンサー 回答者： enunokokoro 回答日時： 2023/01/28 15:23

A列に値がない場合は数式を入れないのなら、こちら↓とか。

Sub Test()
Dim i As Long
　For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
　　If ActiveSheet.Cells(i, 1).Value <> "" Then
　　　Cells(i, 2).FormulaR1C1 = "=TEXT(RC[-1],""0000000"")"
　　End If
　Next i
End Sub

この回答へのお礼

どうもありがとうございます。
こちらで試してみますね！
感謝いたします_(..)_

お礼日時：2023/01/28 20:57