エクセル初心者です。

Question

エクセル初心者です。こんなことで苦労したので、
もっといいやり方がないか
聞きます。

A列1行目に、文字が数文字書いてあります。
そのセルは、A1から始まり、
A2、A3と続き、A8000まであります。

その横B列の各セルに、
1つずつ数字を入れます。
数字はB1に、1。
B2に、2。
B6に、6。
B7だと、また1に戻ります。

要するに1から6までの繰り返しを
8000行書くのですが、
非常に疲れました。

数十行、1から6が繰り返される
並びを作って貼り付けても
ずれていたりして、直すのに
また時間がかかりました。

もっと速く、正確な方法は
ないのでしょうか？
関数を使うのでしょうか？

Answer 1

1から6まで入力したら、コピペします。そうするとB1からB12まで入力されたので、そこを選択してください。
B1からB12まで選択したら、選択したセルの右下の角に▪️マークがあるので、それをクリックしながら下へドラッグするとできますよ。
やり方のヒントはこちら
https://www.becoolusers.com/excel/autofill-number.html

Answer 2

Excel365 や 2019、2021 のスピルするバージョンでしたら

A1 セルの数式
=MOD(SEQUENCE(8000,1,0),6)+1

これ 1つだけで出来ます。
バージョンが不明でしたので、非対応でしたらすみません。

無料の Web版 Excel でこの数式が使えるので、そちらで 8000行分までの繰り返す数値を生成しておき、入力が必要なファイルへコピペという方法も可能です。

Answer 3

同じ操作をまたするならマクロを作成しておけばこれより確実で速い操作は無いです。
ショートカットに登録しておけば１秒もかからないです。
又、マクロの作成の仕方によって範囲を問答形式にしたり選択形式にして可変に出来るので便利ですね。

以下のコードは範囲が今回の質問のセル範囲と同じです。

Sub 繰り返し()
Range("B1:B6").AutoFill Range("B1", Cells(Rows.Count, 1).End(xlUp).Offset(0, 1)), xlFillCopy
End Sub

Answer 4

他の人と敢えて違う方法を書いときます。
この手法の良いところは、ABCや16進にも対応できるところです。

B1~B6まで1～6を入力します。
B7に「=B1」と入力します。
B7をコピーします。
名前ボックスにB8000を入力し、エンターキーを押下します。
B8000に選択が飛んだはずなので、Shift＋Ctrl＋↑キーを押下します。
貼り付けます。
数式が不要なら、B列を選択し、コピー＆値で貼り付け。