エクセルVbaで最終行まで数式をループ入力

質問

よろしくお願いします。エクセルVba初心者です。
エクセルでの作業をvba化したいと思っています。
C列：苗字　
D列：名前
E列：E2=$C2&" "&$D2 …これを最終行まで　
F列：全て数字の1を自動入力

これを
Function NameNumber()
n = Cells(Rows.Count, "D").End(xlDown).Row

Dim Name As Long
For Name = 2 To n
Cells(Name, "E").FormulaR1C1 "=R[0]C[-2] & R[0]C[-1]"
Next Name

Dim Number As Long
For Number = 2 To n
Cells(Number, "F").Value = 1
Next Number

End Function
と書いてみましたが、348エラーが出てきました。
いろいろ間違っているのかもしれませんが、ご指南いただけますと幸いです。よろしくお願いいたします。

回答No.2

kkkkkm · ベストアンサー

No1です。
あと気が付いたのは、同じループを2回しているので1回にまとめたらいいのではないかと思います。

Function NameNumber()
Dim n As Long, name As Long

n = Cells(Rows.Count, "D").End(xlUp).Row
For name = 2 To n
Cells(name, "E").FormulaR1C1 = "=RC3 & "" "" & RC4"
Cells(name, "F").Value = 1
Next name
End Function

お礼

ありがとうございました、こちらのコードでうまくいきました！現在の私の知識をもって一番わかりやすい回答をしてくださったのでベストアンサーとさせていただきます。非常に助かりました。

回答No.4

ushi2015

こんにちは
戻り値が無いならSubプロシージャでいいのでは？
Sub NameNumber()
　 Dim n As Long
　 n = Cells(Rows.Count, "D").End(xlUp).Row
　 With Range("E2:E" & n)
　 　 .Formula = "=C2&"" ""&D2"
　 　 .Offset(, 1).Value = 1
　 End With
End Sub

お礼

ありがとうございます。この式が戻り値がない式というところがまだよくわかっておりませんで、これからさらに勉強していきたいと思います。しかしこれが戻り値がない式だということ、With Rangeや .Offsetの書き方など非常に勉強になりました。ご回答ありがとうございます。

回答No.3

kkkkkm

No1No2です。蛇足です。

数式をR1C1形式で指定したい場合、実際の数式をセルに記載して(今回の場合はE2に=$C2&" "&$D2と入力)結果が正しいことが確認してください。

その後、マクロの記録を実行してE2をダブルクリックし、数式が表示されたらそのままエンターして、その後記録を終了すると、標準モジュールにR1C1形式の数式が記録されますので、それを実際のコードにコピペしたほうが楽ですし間違いないと思います。

また、変数名はForなどに使う変数はiとか使われることがあります(今回も1回のループで良かったのでしたらFor i=2で良かったとも思えます)が、今回のｎなどは一文字ではなくその内容がわかる文字列にした方がいいのではないかと思います。

回答No.1

kkkkkm

n = Cells(Rows.Count, "D").End(xlUp).Row
と
Cells(Name, "E").FormulaR1C1 = "=RC3 & "" "" & RC4"
です。
Dim n As Long
も最初に付け加えてください。