[[20160813072956]]　『欠番に番号挿入（マクロ以外希望）』（もも）　ページの最後に飛ぶ

『欠番に番号挿入（マクロ以外希望）』（もも）

過去ログで見つけられなかったので教えてください。
シート1のA列に欠番ありの連番が並んでおり、その番号ごとにB列以降に情報が記載されています（例はB列のみになっていますが、実際はB-G列までデータが入力されています。
この情報をシート2に欠番行は空白行として、関数などで転記、もしくは行挿入等で対応したいのですが、うまくいきません。
（シート2にあらかじめ連番を振っておき、Vlookup関数でひっぱって、もしB列以降空欄の場合は番号を消す…というので対応していましたが、できれば一発でもっとスムーズに対応できる方法はないかと思い、ご教授頂ければと思います）

シート1(元データ)

   A   B
1  1   aaa
2  3   xxx
3  4   bbb
4  5   ddd
5  8   eee
6  9   fff

シート2(output)

   A   B
1  1   aaa
2  
3  3   xxx
4  4   bbb
5  5   ddd
6
7
8  8   eee
9  9   fff

よろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 Sheet2のA1セルに
 =IF(COUNTIF(Sheet1!A:A,ROW(A1)),ROW(A1),"")

 B1セルに
 =IFERROR(VLOOKUP($A1,Sheet1!$A:B,COLUMN(B1),FALSE),"")
 と入力してA1セルは下へ、B1セルは下と右へフィルコピーではどうか。
（ねむねむ） 2016/08/13(土) 09:11

マクロNGで、かつ一発でということですから、すでに回答がある数式処理ですね。

以下は、そういわず、将来、マクロも考えてみたいというときのための、操作手順です。
これをマクロ記録すると、基本的なコードが生成されます。

１．Sheet1の全セルを選択して Ctrl/c --> Sheet2 の A1 に Ctrl/v
２．SHeet2 の　A列の最後のセルの下のセルに SHeet1のA列の最小値(あるいは 1 ？）入力
３．そのセルを選択した状態で、ホームタブ、編集グループのフィル。連続データの作成を選ぶ。
４．範囲を列に、停止値に　Sheet1 A列の最大値をいれてOK.
５．A:B列を選び、A列で昇順並び替え
６．そのまま　データタブ、重複の削除。列のチェックを A列のみにして　OK

（β） 2016/08/13(土) 10:59

コメント返信：

[ 一覧(最新更新順) ]

[[20160813072956]] 『欠番に番号挿入（マクロ以外希望）』（もも） ページの最後に飛ぶ

[[20160813072956]]　『欠番に番号挿入（マクロ以外希望）』（もも）　ページの最後に飛ぶ