通し番号をつける/罫線マクロを簡潔にする

Question

①「社員情報入力→社員一覧として蓄積」において社員一覧表A列に通し番号が出力されるようにしたい

②罫線マクロを以下のコードで書きましたが、もう少し簡潔にできるのでしょうか？

Cells(c + 1, 2).Value = ID
Cells(c + 1, 2).Borders.LineStyle = xlContinuous
Cells(c + 1, 3).Value = name
Cells(c + 1, 3).Borders.LineStyle = xlContinuous
Cells(c + 1, 4).Value = stday
Cells(c + 1, 4).Borders.LineStyle = xlContinuous
Cells(c + 1, 5).Value = belo
Cells(c + 1, 5).Borders.LineStyle = xlContinuous
Cells(c + 1, 6).Value = etc
Cells(c + 1, 6).Borders.LineStyle = xlContinuous

質問内容がトンチンカンかもしれませんが、どなたかご教示頂けますと幸いです・・・
よろしくお願い致します。

Answer 1

①
「通し番号」って単純な連番でいいのでしょうか。
ならば、
A1に =Row()としてデータの最後までフィルダウンすればいいでしょう。
A1が項目名でA2からデータなら、=Row()-1

②

    With Cells(c + 1, 2).Resize(, 5)
        .Value = Array(ID, Name, stday, belo, etc)
        .Borders.LineStyle = xlContinuous
    End With

Comments

[Shou1142]

ご教示ありがとうございます。
②は解決しました。こんなにスマートにできるんですね・・・感動しました。
①に関しまして、説明不足で、B～F列に情報が入力された場合にA列に通し番号が入るようにしたいです。
可能でしたら、追加でよろしくお願い致します。

[hatena19]

入力とはユーザーが手入力するということですか。
事前にA列の最終行まで下記の式を設定しておけば、いいでしょう。
=IF(B2<>"",ROW()-1,"")
2行目からデータの場合です。

[Shou1142]

ありがとうございます。
解決致しました。