• ベストアンサー

EXCEL VBA伝票行NOを自動挿入したい

お世話になります。 下記のようにA列に伝票NOが記述されているExcelデータがあります。 [行NO]というボタンを作成してボタンをクリックすすると、その横B列に伝票NOに応じた行NOを自動で付与するVBAロジックを作りたいと思っています。 毎回手で入れているため時間がかかって困っています。 初心者のため勉強もかねてどなたかご教示いただけますでしょうか。 環境 Excel2013 伝票NO 伝票行 10000 1 10000 2 10225 1 10336 1 10336 2

質問者が選んだベストアンサー

  • ベストアンサー
  • f272
  • ベストアンサー率46% (8042/17183)
回答No.1

行NOと言うのは 最初は行は1 次の行は，伝票NOが上の行と同じなら1だけ増やして，伝票NOが上の行と異なるなら1 にすればいいのかな？ 数式で言えば =IF(A2=A1,B1+1,1) ですね。わざわざVBAを使うまでもないと思うがいかが？

yakkun2338
質問者

お礼

f272 さん、早速の御連絡ありがとうございます！ ご教示いただきました方法で出来ました！ VBAまでやらなくてもできるんですね！感動しました。 本当にありがとうございました！

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. Excel（エクセル）

関連するQ&A

  • EXCEL VBA 自動で8行毎に行を挿入したい

    お世話になります。 添付左図のような表があります。 この表をボタンをクリックしたら右図の表の様にするためのVBAロジックをご教授いただけませんでしょうか？(右図の黄色部分の行を自動で挿入したいのです) この表は担当者一人に対して売上区分というものをA-Hまで設けているため、一人のデータが必ず8行になります。 担当者数は現在は100名程度ですが、その都度変わるため可変にしたいです。 この担当者毎に8行あるデータを、ボタンを押したら新規に下行を挿入して[A+B]、続けて下行を挿入して[C+D]、[E+F]、[G+H]という具合に行を挿入する動作を全担当者のデータに全てに対して実施したいのです。 どなたかご教授いただけますでしょうか？ よろしくお願い致します。 環境 windows XP SP3 Excel2003

  • Excel VBA で行挿入

    Excel2002を使っています。 質問させていただきます。 VBAで行を挿入したいのですが、たとえば以下のようにデータがあります。 　A列 　東京 　東京 　東京 　大阪 　大阪 　名古屋 予めデータはソートされています。 この状態で、東京と大阪の間、大阪と名古屋の間に1行挿入（空行）したいです。 コマンドボタンをクリックしたときの動作の一つとして実現したいのですが方法がわかりません。 ご指導いただければ幸いです。

  • Excel９７で自動的に行挿入させるマクロのつくりかた。

    こんにちは。 マクロ超超初心者です。 WN98SE、Excel97です。 やりたいことは、たとえば、 B1に１００１ B2に１００１ B3に１００２ B4に１００３ 　　　・ 　　　・ 　　　・ と入っていたとします。 ここで、１００１から１００２に変わる（又、１００２から１００３に変わる）とき、その間の行に3行空行を自動的に挿入させたいのですが、どういうマクロの記述をすればできるのでしょうか・・・。 それを新規ブックでもボタンひとつで実行させるにはどのような設定をしたらよいでしょうか。 どなたか教えてください。 よろしくおねがいします。

  • EXCELで自動で行が挿入できますか？

    EXCEL2000を使用しています。 1.下記のようなプロジェクトリストを作成しています。 A列：プロジェクト B列：試験 C列：施設名 2.C列に施設名を入力すると、自動的に行の挿入ができるようにしたい。 3.試験が決定されると次々と施設が決まっていくため、予め、施設名を入力することができません。 4.その都度、行の挿入を行えばいいのかもしれませんが、複数の方が入力するため、自動的にできたらいいなと考えています。 厄介な質問で申し訳ありませんが、何かよい方法はありますでしょうか？ どうぞよろしくお願いいたします。

  • エクセルで縦の行を自動選択する方法

    同じような質問があるのですが、どうも上手く行かないので質問させてください。 マクロのVBA？を使って自動選択したいのです。 具体的に言うとこうです。 横１行で一つのデータの括りになるので 例えばこんな感じで Range("B3:F3").Select 横の列はB3～F3まで選択し、 さらに行が増えた場合でも 縦は自動で選択されるようにしたいのです。 もしこう書けば Range("B3:F30").Select 縦の行も含め指定した範囲だけ選択されますが しかし、縦の行は自動選択（入力された最後のセルまで）したいので Range("B3:F3").Select + 縦が自動選択される記述 をご教示いただきたくご質問しました。 よろしくお願いします。

  • VBAでの行挿入について

    Excel VBAの条件に合った場合、行挿入＆挿入した行のセルに特定の値を入力 VBA初心者です。Excel2007、XPを使用しています。 A列からCK列、平均100行程度の顧客データがあります。 このデータは列数は変わりませんが、行数は毎回異なり、 1行1顧客ではなく、同じ顧客で数行で入ることがあります。 しかしA列の顧客番号で判別できるようにはなっています。 目標は下記の点です。 「BC列」に値がある場合、 1行下へ空白行を挿入（できればA～X、Z～AA、AD～CKは1行上と同じ）。 但し挿入する位置は、顧客情報の一番下(1行の場合は2行目、2行の場合は3行目と)です。 挿入した行のY列に「ポイント利用」と入力。 挿入した行のAC列に「BC列の値」を入力。 挿入した行のAB列に「1」を入力。 「BJ列」に値がある場合、 1行下へ空白行を挿入（できればA～X、Z～AA、AD～CKは1行上と同じ）。 但し挿入する位置は、顧客情報の一番下(1行の場合は2行目、2行の場合は3行目と)です。 挿入した行のY列に「送料」と入力。 挿入した行のAC列に「BJ列の値」を入力。 挿入した行のAB列に「1」を入力。 以降に必要な処理はマクロで作成できたのですが、 その後に上記項目を手作業で処理しているのも限度があるので、 最初に挿入処理できればと思ってます。 分かりづらい説明だとは思いますが、 何卒ご教授頂きたくお願い致します。

  • EXCEL VBA 条件による行の自動挿入

    お世話になります。 EXCEL VBAを使用して自動で行の挿入処理を実施したいと思っております。 やりたい事は添付図の表1を処理ボタンを押せば自動で表2のようにしたいのです。 表2の黄色部分が自動挿入させたい部分です。 例えば「表2作成」というボタンを押したら・・ [sheet1]にある表1をC1からC??の最終行までREADしてC??の文字列が [定価番販売実績]であれば・・ (1)[定価販売実績]の上の行に[定価販売予定]という行を挿入 (2)[定価販売実績]の下の行に[定価差異]という行を挿入 [得売販売実績]であれば・・ (3)[特売販売実績]の上の行に[特売販売予定]という行を挿入 (4)[特売販売実績]の下の行に[特売差異]という行を挿入 という作業を全商品に対して実施したいのです。 図では3商品ですが実際には変動ですが100～200品位です。 出来上がった新しい表2は別シートに表示できれば最高です！ どなたか方法をご教授いただけませんでしょうか？ よろしくお願い致します。 環境 Windows XP SP3 EXCEL2003

  • EXCELで文字検索したセルの行と前後の行の削除の方法

    EXCEL-VBAを使ってワークシートのデータ整形をしています。 ある文字列を検索し、その文字列を含む行とその前後の行を削除するロジックを記述したいのですがうまくできません。 例：検索文字列「合計」、"合計"の入っているセル「B120」のとき、B119～B121の３行分の行削除をしたい。 おそらく検索された文字列を含むセルの行番号を取得してその番号-1と+1の行を選択して削除すればよいのではないかと思ってるのですが、もっと良い方法があるのでしょうか？ よろしくお願いします。

  • EXCEL VBAで日報作成したい

    お世話になります。 EXCEL VBAの勉強をかねて日報を作成しようと思っています。 添付図にあるような簡単な日報ですが、VBAでやりたいことは2つあります。 １．行追加 各行の隣にある「行追加」ボタンを押したらその行を下に追加したいのです。 ２．カレンダー作成 「カレンダー作成」というボタンを押したらA5に入っている月を参照して、添付図のようなA列が月、B列が日、C列が曜日、D列が開始時間、E列が終了時間、F列が作業、G列に行追加ボタンが自動で該当月のカレンダーに自動作成できれば最高です。 上記１．２を実現するためのロジックについてどなたかお知恵をお借りできませんでしょうか？ よろしくお願い致します。 EXCEL2013

  • エクセルVBAでご教示ください

    シート１のB5にNo、C5に住所、D5に電話・・・・・CXまで入力したものをコピーして シート２のB列の同じNoの行に貼り付けるVBAをご教示ください。 おこないたいことは、シート２に１５００ほどある台帳で、修正をのある行データをシート１に No入力で呼び出し、修正して、修正したデータを元台帳に戻すということを行いたいのです。 No入力で呼び出すVBAは何とか出来ていますが、シート２の同じNoの行に貼り付けるVBAが わかりません。 どなたか、よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する