あるルールに従って番号を振りたい

質問

タイトルをどのようにしたらいいのかわからず申し分けありません。
Excel2013使用しています。
VBAでお願いします。

本題ですが、
　　　　D　　　　F
２　　　１　　　　４
12　 　２　　　　５
22　　 ３　　　　６
32　　 ７　　　１０
42　　 ８　　　１１
52　　 ９　　　１２

といった形で番号を振っていきたいのですが、どのようにすれば出来ますでしょうか。
参考サイトでも結構ですのでお知恵を置かしください。

回答No.1

keithin · ベストアンサー

間違えないよう順繰り順番に振っていくだけです。

sub macro1()
　dim r1 as long
　dim r2 as long
　dim c1 as long
　dim n as long

　for r1 = 2 to 32 step 30
　　for c1 = 4 to 5
　　　for r2 = 0 to 20 step 10
　　　　n = n + 1
　　　　cells(r1 + r2, c1) = n
　　　next r2
　　next c1
　next r1
end sub

間違えると間違った結果になります。

お礼

連絡が遅くなり申し分けありません。後ほど確認させて頂きます。

補足

マクロを実働させて頂きましたが、c1=4to5な為、DとEに結果が表示されてしまいます。
希望がDとFですので、c1=4to6　step2で対応させて頂きました。
MとOにも同じ条件でかつF列の最後の数字+1から表示させたいので、勉強して行きたいと思います。

回答No.4

chie65536（@chie65535）

あるルールに従って番号を振りたいのであれば、そのルールを「数式」にすれば良いだけです。

一番左が「行番号」だと仮定すると、

「行番号から２を引いて10で割った商」を作ると、上から順に、0、1、2、3、4、5、6…になります。

この「０からの連続数値」が基準になります。

この基準値を「３で割った余り」と「３で割った商」にしてみます。

基準値　余り　商
０　　　　　０　　０
１　　　　　１　　０
２　　　　　２　　０
３　　　　　０　　１
４　　　　　１　　１
５　　　　　２　　１
６　　　　　０　　２

次に、商の方を６倍します。

余り　商
０　　　０
１　　　０
２　　　０
０　　　６
１　　　６
２　　　６
０　　　１２

更に、余りと商を足します。

余り　商　　余り＋商
０　　　０　　０
１　　　０　　１
２　　　０　　２
０　　　６　　６
１　　　６　　７
２　　　６　　８
０　　　１２　１２

余りと商を加算した値に、１を足した値と、４を足した値を作ってみましょう。

余り＋商　　余り＋商＋１　　余り＋商＋４
０　　　　　　　１　　　　　　　　　４
１　　　　　　　２　　　　　　　　　５
２　　　　　　　３　　　　　　　　　６
６　　　　　　　７　　　　　　　　　１０
７　　　　　　　８　　　　　　　　　１１
８　　　　　　　９　　　　　　　　　１２
１２　　　　　　１３　　　　　　　　１６

「余り＋商＋１」と「余り＋商＋４」は、貴方の希望する値になっていますよね？

お礼

連絡が遅くなり申し分けありません。後ほど確認させて頂きます。

補足

確かにご呈示頂いた方法で希望の値が出てきました。
原理がいまいちわかっていないのですが・・・。

3の商と余り、6倍はなんとなく分かりますが、余り+商からなぜこういうことになるのかが理解できてないです。
参考にできるサイトなど有りましたらご教授お願いします。

回答No.3

eden3616

>VBAでお願いします。

失礼しましたVBA指定でしたね。

お礼

連絡が遅くなり申し分けありません。

回答No.2

eden3616

該当のセル範囲（D2～F52）に以下の数式を貼り付けてください。

=IF(MOD(ROW(),10)=2,IF(OR(COLUMN()=4,COLUMN()=6),MOD(INT(ROW()/10),3)+1+INT(ROW()/30)*6+(COLUMN()-4)/2*3,""),"")

数式で数値を表示しているだけですので、値として確定させたい場合は範囲選択して頂いて
コピー値の貼付で同じ範囲に張り付け直してください。

お礼

連絡が遅くなり申し分けありません。VBAではないですが、後ほど確認させて頂きます。