連続して大きくなる数字を表の中に簡単に入れる方法



 図のように表に連続大きくなる数字をいれたいのですが、
 横に一列、縦に一列というだけならば最初の2つのセルに1,2と入れて
 あとはそれを選択してドラッグすればよいのですが、
 横方向に数字が大きくなって行き、表の一番左まで来たら右に戻り
 その次からの数を連続していれていきたいのですが、
 そのつど左の最初2つのセルに数字をいれてドラッグするのが面倒です。
 たとえば上一行連続する数字をいれたらそれを利用して
 残る下の空いているセルを簡単に埋めていくような方法はありますか?
 わかりにくい質問ですみません。 よろしくお願いいたします。





[1]《B》2012年10月05日 10:41  
  >上一行連続する数字をいれたら 
  2行目以降であれば、その上の行に足し算をする式を作ればよいのでは?? 

[2]《B》2012年10月05日 10:44  
    211 212 
    216 217 
    を入力して、縦横に引っ張る。

[3]《H》2012年10月05日 12:52  
    1行目は、211と211を入力して、それを選択してから、ドラッグ 
    2行目の216は、セルに、 =E2+1 と入力 217は =A3+1  以降は、
    217の3セルを選択して、220でドラッグ 
    3行目以降は、1行目と2行目を選択して、それを下方向にドラッグ 
    これで、出来ると、思いますよ。

[4]《M》2012年10月05日 13:46  
    一番手間のかからない方法ですよね? 
    A1セルに 211 を入れる。 
    B1セルに =A1+1 を入れる。 
    E1セルまで入れたいのであれば、一つ右のF1セルまでB1セルをコピー。 
    F1セルを切り取り(CTRL-X)、A2セルに貼り付け(CTRL-V) 
    A2セルを下に必要な行数コピー 
    1セルをB列〜E列の必要な行数の所までコピー 
    全体をコピーして、値貼り付け。 
    これくらいしか思いつきませんでしたm(_ _)m 
    自分でやってみましたが、結構早かったですよ 

[5] 《E》2012年10月05日 22:16 

   出来たかも!? 
    マクロで作ってみました。そういうことを希望していたのではないとは思うのですが、
    私自身が、試しに作ってみたものです。(いつものように、私自身の練習です。) 
    http://kie.nu/sem パスワード 221100 

[6]《M》 2012年10月05日 23:21 
    短時間に皆様アドバイスありがとうございます! 
    じっくりPCに向かっていられる時間が少ない為、ちょっとずつ試してみて、
    折って使い心地の返信をさせていただければと思います! 
    この表は子供のご褒美シール表なので、表がいっぱいになったら、
    次の数字で上書きするので、数式を入れておく方法は何度もやる際に便利かもしれません。
    いろいろ試してみて返信いたします。皆様本当にありがとうございます!

[7] 《B》2012年10月06日 07:07  
   VBAでやるなら、以下のようなコードでも出来ますね 
   (aki-akiさんが作成されたものを基にさせていただきました) 
     Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
      Dim i As Integer 
       Dim j As Integer 
        Dim v As Integer 
           v = Range("A2").Value 
          For i = 2 To Target.Row 
       For j = 1 To Target.Column 
    Cells(i, j) = v 
    v = v + 1 
    Next j 
     Next i 
   'Cancel = True 
   End Sub 
   「Cancel = True」を活かせば、ダブルクリックイベントがキャンセルされ 
   そのセルは編集可能状態にはなりません 
   範囲が決まっているのであれば、ダブルクリックされたセルが範囲内だった場合 
   数値を書き出すようにして、それ以外の場所では普通にダブルクリックができる 
   というようにすると良いかもしれませんね

[8]《G》2012年10月06日 08:37  
    >>[1] マリ男さん 
    とてもシンプルかつ数字が増えていって再利用する際にも上段だけ替えればよいのでいいですね! 
    下準備が簡単だったので即完了できました! ありがとうございます!

[9]《H》 2012年10月06日 08:41  
    そようのな方法で連続データを入力できるんですね! 
    今後別の用途にも参考にさせていただきます! ありがとうございます! 

[10] 《H》2012年10月06日 08:54 
    >>[3] Kさん 
    >1行目は、211と212を入力して、それを選択してから、ドラッグ 
    以降は、217の3セルを選択して、220でドラッグ 
    >3行目以降は、1行目と2行目を選択して、それを下方向にドラッグ 
    ↑ 1行目と2行目を選択してドラッグするとそれ以降が
    1行目と2行目の繰り返し数値の入力になってしまいます。 
        211 212 213 214 215 
        216 217 218 219 220 
        211 212 213 214 215 
        216 217 218 219 220 
        211 212 213 214 215 
        216 217 218 219 220 
    作業中に何か間違えたのかもしれませんが、何度やってもなってしまいます。。 

[11]《H》 2012年10月06日 08:59 
     >>[4] Mさん 
     なるほど!こんな方法もあるのですね!>A2セルを下に必要な行数コピー 
     まで来た時、コピーしたセルがすべて1になってビックリしましたが、
     すべて終えた時には表が完了しました。 ありがとうございます。 

[12] 《F》2012年10月06日 09:21  
     >>[5] Aさん 
     >>[7] M さん 
     マクロを勉強する以前の質問内容の方にマクロを提供するのは過剰ではないでしょうか。 
     >>[8][9][10][11] まるむ さん 
     やり方は決して一つではありませんから、本を読んだり、ググッたり、
     初歩的使い方が書かれているブログなど色々調べて今後頑張ってくださいネ。 
     ググル際は質問内容が判りやすく書けた方がググル単語が出てきますよ。

[13] 《M》2012年10月06日 09:29  
     >>[5] Aさん 
     すばらしいです! が、このマクロを自分のファイルに取り込む方法がわかりません 
     マクロも5,6年前に自作で記録式のモノを作って使ったぐらいの   
     レベルですので内容もよくわからず。 お恥ずかしいです。 
     このマクロを自分のファイルに取り込めたらとても画期的だとおもいます! 
     ありがとうございます!

[14]《M》 2012年10月06日 09:33 
     >>[7] Dさん 
     Fさんがお見通しのように、マクロを使いこなす知識がお恥ずかしいながらありません。 
     ゆえに、せっかく頂いたアドバイスが使いこなせずに申し訳ありません。 
     時間のあるときに少しずつ勉強して理解できるよう努めますありがとうございました!

[15]《M》2012年10月06日 09:41  
     >>[12] fenwickさん 
     スバリ質問内容からワタシのレベルを察していただきありがとうございます! 
     マクロもMOUSの試験(両レベル)を受けるために勉強した初歩程度で、
     その後何年も使わずにいたら全くに近いぐらい忘れてしまっていました。 
     ここで皆様にアドバイスいただき、いろんな方法でできることを改めて実感し、
     もっともっと使いこなせるようになりたいと思いました。 
     時間のある時には質問する前に自分で調べてみるようにすると、
     もっと身に付くようになるかもしれないですね! アドバイスありがとうございました!

[16]《U》 2012年10月07日 00:43  
     >> [10]何度やっても失敗とのことで、[3]跳ね馬さんの方法に補填 
     トピ問題では一行目が空白になっていますから行名が変わりますが 
     >2行目はA2に211、B2に212と入力して両方を選択してE2までオートフィル。 
     >3行目はA3に=E2+1、B3に=A3+1と入力してB3セルをE3までコピー。 
     >4行目以降はA3からE3までを選択して下方にオートフイル。 
     これでどうでしょう? 間違っているかな。

 [17]《M》2012年10月07日 13:06  
      >>[16] Uさん 
      アドバイスありがとうございます。 
      その通りやってみましたがやはりおかしい結果になってしまいます。 
      C3以降が1.2...の繰り返しになるので数式をみてみると 
             211   212   213   214   215 
            =E2+1 =A3+1 =G2+1 =C3+1 =I2+1 
            =E3+1 =A4+1 =G3+1 =C4+1 =I3+1 
            =E4+1 =A5+1 =G4+1 =C5+1 =I4+1 
            =E5+1 =A6+1 =G5+1 =C6+1 =I5+1 
            =E6+1 =A7+1 =G6+1 =C7+1 =I6+1 
      なぜかC行すべてがGになっています。 なぜそうなってしまうのかわかりませんが、 
      アドバイス通りにやってみてもこうなってしまいます。。。

 [18]《F 》 2012年10月07日 13:17 
      >>[17] Mさん 
      本来C列はどうあるべきだと左右から想像できますか? ドウだったら正しくなりそうですか? 
      では何故そうなってしまうのでしょう? A,B,D列は何故上手く行っているのでしょうか? 
      その違いを比べて探してみましょうよ。 考えてみましょうよ、頑張って。

[19]《U 》2012年10月07日 18:23 
      >>17まるむさん。お返事が遅れました。 
      ◎3行目はA3に=E2+1、B3に=A3+1と入力してB3セルをE3までコピー。 
      3行目でオートフイルするのはB3単独セルです
      A3と両方一緒にドラッグしていませんか。 

[20]《U 》 2012年10月07日 19:24 
      >>13Mさん 
      >[5] Aさん、このマクロを自分のファイルに取り込む方法がわかりません 
      akiakiさんのファイルをダウンロードしましたか、
      そのファイルを開いてキーボードのAltとF11を同時に押すと、 
      Visual Basic Edtor が表示されます。 そのなかに
      [7]Dさんの提示されたようなコードがあるはずなので 
      それを全文コピーして、新しいエクセルを開いて 同じようにAltとF11を押して
      挿入から標準モジュールに貼り付けてください。 
      ファイル⇒「終了してMcrosoft Excelに戻る」で完了です。 
      コードの内容は初心者の私にはわかりません。 
      ここに提示されているものを練習しているところです。 

[22]《A》2012年10月08日 15:52  
      >>[16] Uさんのを見て録画してみました(私め初のBGM付き) 

    Mさん。 
     トピのトップを見て、何に使うのかな〜?とは思っていました。お子さんのシール用ですか。
     私も親にずいぶんと(今から思うと)工夫さたことで、色々なことを覚えたり
    ・遊んだりして貰ったものです。(PCがらみはなかったけど。) 
     上記の動画もそうですが、まあ、Excelを覚えるのが目的じゃないと思いますので、見ました? 
     マクロは?なんて、言いませんから。色々な方法がありますから、
     1つでも、覚えればいいと思います。
     それよりも、一人一人にレスを返すなんて、なかなか出来ないことですよ。
     やることいくらでもありますでしょうし。私もマリ男さんに教わり、マリ男さんは勿論のこと、
     話題提供してくれたまるむさんにも感謝したい気持ちです。 
     レスがちょっと沢山ついて、負担になってないかなーとさえ思ってしまいます。
     お忙しければ、レスは不要ですから。(何も新しい情報があるわけでもないですし。) 
     Uさん 
     私のはSheet1に入っていますので、Sheet2にマサ男さんのを入れて、
     私のと比べれば、もっとタメになるかも 

[23]《T》 2012年10月08日 16:10  
     A3=A2+5をオートフィル

[24]《T》 2012年10月08日 16:35
     もしくは、 A3=IF(B2=0,A2*2-MIN($A2:A2)+1,B3-1)

[25]《T》 2012年10月08日 16:53 
     間違えた  A3=IF(B2=0,A2*2-$A2+1,B3-1)

[26] 《M》2012年10月09日 00:20  
     >>[19] Uさん 
     察しの通りです! A3も一緒にドラッグしてました。 
    B3単独でドラッグし、その後4行を下へドラッグしたらできました! ありがとうございます! 

[27]《M》 2012年10月09日 00:23  
     >>[18] fenwickさん 
     そうですね、本当は自分で考えて答えを探せばまた知識として覚えるのですが、
     つ いついUさんの答えを見てやってしまいました。 

[28]《M》 2012年10月09日 00:32 
     >>[22] Aさん 
     とてもわかりやすい動画、ありがとうございます! 
     かわいらしいBGMにも癒されました! 
     そして、お気づかい頂きありがとうございます。 
     時間に余裕ができてきたら、マクロの勉強も簡単なことから始めてみたいと思います!

[29]《M》 2012年10月09日 00:47 
     >>[23] Tさん 
     とっても簡単にできました! A2に5を足していく発想が全くありませんでした! 
     確かにすべてそうですよね!! ありがとうございます 
    [25]の方も同様にできましたが、なぜこのような式になるのか後ほど時間のあるときに勉強します。 
    ありがとうございました!

[30]《M》 2012年10月09日 00:53
     >>[20] Uさん 
     アドバイス頂いたようにやってみたら、自分のエクセルに張り付けることができ、
     マクロも使えるようになりました! たびたびのアドバイスありがとうございました!


[31]《U 》 2012年10月09日 01:51 
     おはようございます。 
     Aさん、動画とはすごいですね。 
     このマシンは音が出ないのでパソコンを取り替えて拝見しました。 
     まるむさんのおっしゃるとおり、音楽も素晴らしいです。
     何とかマイパソに取り込めないないかと試みましたが 
     Mixiが邪魔してできないようです。 
     ご指摘の通りシート2にマリ男さんさんのを入れて作りました、 
     機能的には変わらないようですが何処が違うのでしょうか。 
     テストサンプル

[32] 《A》2012年10月09日 22:26  
     >>[31] Uさん 
    機能としては、5も7も同じですね!

[33]《H》2012年10月10日 06:36  
     今更自分のを見て、文面がぐちゃぐちゃなのに気が付いた
     うわぁぁぁ ・・・・ 
     これじゃ出来ないわ^^;; 
     ×1行目は、211と211を入力して、それを選択してから、ドラッグ 
     ○1行目は、211と212を入力して、それを選択してから、ドラッグ 
     >2行目の216は、セルに=E2+1 と入力 217は =A3+1  
     ×以降は、217の3セルを選択して、220でドラッグ 
     ○2行目の216は、セルに、=E2+1 と入力 217は =A3+1  
     以降は、217のセルを選択して、220までドラッグ 
     ×3行目以降は、1行目と2行目を選択して、それを下方向にドラッグ 
     ○3行目以降は、2行目を選択して、それを下方向にドラッグ が正しいです・・・ 
     来ない間に、動画まで・・・・質問者には、動画で見れた方が、文面で説明するより 
     分かりやすいですね。かと言って、回答者は面倒になるけど・・・ 
     回答時に、文面の間違いに気が付かずに、どうもお騒がせしました。 
     U さん A さん どうもありがとうございました