• 締切済み

エクセルのVBAでの自動的に数字を入れ込む方法

ご質問です。 エクセルのVBAで、セルAに縦に数字が入っているとして、 セルAの縦の数字が固有の時には、セルBには数字の1を。 セルAの縦の数字が同じ場合には、セルBには1からの数字の連番を。 入れていくには、どのような関数を書けばよろしいでしょうか? ご存知の方、いらっしゃればどうかご教授ください。 ---------------------------------------- セルA   |セルB | 828113341 | 1  |  828113342 | 1  |  828113342 | 2  |  828113342 | 3  |  828113343 | 1  |  828113344 | 1  |  828113344 | 2  |  828113345 | 1  |  ・ ・ ・ ---------------------------------------- 宜しくお願いいたします。

みんなの回答

  • kmetu
  • ベストアンサー率41% (562/1346)
回答No.2

=COUNTIF($A$1:$A1,"=" & $A1) をB1に後は下方向にフィルでいかがでしょう。

kameleon30
質問者

お礼

ありがとうございます! 悩んでいたのが、あっという間に解決しました!!

  • a987654
  • ベストアンサー率26% (112/415)
回答No.1

どうしてもVBAでないといけないんですか? データがA1から始まっているとして 単なる関数でB1セルに =COUNTIF(A$1:A1,A1) あとはしたへコピーで簡単にできるのですが・・・・

kameleon30
質問者

お礼

ありがとうございます! 悩んでいたのが、あっという間に解決しました!!

関連するQ&A

  • エクセルVBAで

    エクセルのVBAでやりたいことがあるのですが、 一枚のシートのセルA1に1が入っているとします。そこで自動でA2に2、B1に3、B2に4といったようにセルの値を一つずつ増やていったものを連番で10枚印刷しようと考えているのですがうまくいきません。ご教授願います。

  • エクセルVBAで連続しない数字を抽出できますか?

    エクセル2002使用です。 VBAでセルに連番が入力された複数のセルに不連続となったセル番地をとりたいのですが・・・・        A B C D E F 1行目  1 2 3 4 8 12 2行目  4 5 7 8 9 5  左端から必ず右方向へ連続した番号が、入力されますが、途中でその連続性が途絶えます。 1行目の場合はE1セル、2行目はF2セルです。このE1セルやF2セルのセル番地を見つけ出せるようにしたいのですが・・・ 数字は1から始まるとは限りません。 IFステートメントで「不連続ならば・・・」とすればいいと思うのですが、「不連続ならば・・・」の部分で困っています。 よろしくお願いします。

  • EXCEL 2010 VBAまたは関数について

    こんにちは 初投稿です。 早速ですが、VBAまたは関数について質問させて頂きたいのですが・・・ 一つのセルに複数の数字と文字列がセルのE1混ざっている場合, (12345abc678cdef9ghijk)と入っている場合 にこの例で行くとセルのA1に12345セルB1に678セルC1に9というように数字で表示させたいのです が、最初関数で A1=VALUE(MID(E1,1,5)) B1=VALUE(MID(E1,9,3)) C1=VALUE(MID(E1,16,1)) と言う形で数字だけ抜き出していたのですが これだと数字の桁数が違ってくる(※正し文字列の長さは一緒 数字だけが桁が違ってきます) と表示されなくなってしまうため、 出来れば関数をいじらなくても表示されるようにしたいのです。 VBAもしくは関数でこの問題を解決出来る方がいらっしゃるなら どうぞよろしくお願い致します。 長文失礼致しました。 | A | B | C | D | E | ------------------------------------------------ 1 | 12345 | 678 | 9 | | 12345abc678cdef9ghijk | 2 | | | | | |

  • エクセルで、数字の並びを ごちゃまぜに並べ直したい。

    エクセルで、数字の並びを ごちゃまぜに並べ直したい。 お世話になります。 Aセルの縦方向に、数字が沢山 書いてあります。(約15万個の数字) これを、すぐ横のBセルに、マジごちゃまぜで、並び替えてほしいのです。 やり方を、教えて下さい。

  • Excel VBA   %の入ったセル

    困りました、、、 VBAを使って A×30%+15000 これが入ったセルB2と たとえば250000が入ったセルB2を掛け算したいのですが (B2の数字は固定ではなくいろいろな数字が入ります) 文字列が入っていることにより うまくいきません 今は仕方なくMid関数で数字を抜き出して使っているのですが なにかよい方法はないでしょうか よろしくお願いします<m(__)m>

  • EXCEL VBAの日付関数について

    EXCEL VBAの日付関数のことでお聞きしたいことがあります。 エクセルの関数でワークデイ関数がありますが、例えば C1セル: =WORKDAY(A1,10,B1:B10) これをVBAのコードで書くと、どういうコードになるのでしょうか。 VBAの関数については詳細に書かれたテキストを持っておらず、WorksheetFunctionを使ってチャレンジしてみましたが どうも上手くいきませんでした。 初歩的な質問かも知れませんが、どうぞよろしくお願いいたします。

  • エクセルのマクロ 並んだ数字の幾つかを抜き出してその合計を計算させたいのですが・・

    エクセルのマクロ(VBA)について、教えてください。 セルのA1からA2・・・A1000までに「01,03,06,08,20,」のように5つの数字がカンマで区切られて入力されています。 1.この5つの数字をb.c.d.e.f.の1から1000のそれぞれのセルに配置するマクロ 2.この5つの数字の数字の合計をb1から1000のセルに表示させるマクロは難しいでしょうか? MID関数をひとつづつのセルに入れていたのですが、マクロでできれば効率が良いと思い手引書等で考えたのですがよく分からないのです。

  • Excel VBA でA列の中に、1か10以外の数字があった場合にB1

    Excel VBA でA列の中に、1か10以外の数字があった場合にB1のセルに×と表示させるにはどうすればよろしいでしょうか?よろしくおねがいします。

  • エクセルのVBAに関しての質問です。

    エクセルのVBAに関しての質問です。 あるセルに入力された数字の行から行までを非表示にしたいのです。 例えば、A1に15、B1に30という数字が入っていれば、行15から30を非表示する、という感じです。 よろしくお願いします。

  • エクセルの連続データについて(文字列に2つの数字)

    エクセル2003を利用しているのですが、 1つのセルに「A001データをB001へ」と入力してあり それを連続データで縦に両数字とも増やす方法はありますでしょうか。 「A001データをB001へ」 「A002データをB002へ」 「A003データをB003へ」      ・      ・      ・ 普通にやると後ろのB001のほうだけ数字が増えるだけで A001のほうが増えていきません。 どなたかご存知でしたらご教授ください。