マクロに関する質問！マクロを初めて数日の初心者です。

質問

マクロに関する質問！マクロを初めて数日の初心者です。

ルーティン業務をなんとかマクロで出来るようにしてみたのですが、、下記２つの作業をどの様にコード（？）で記入すればよいのか分からず、下記のみマニュアルで行うしかない状況です。
実は、昨日もこちらで質問させていただき、皆様からの回答に助けられました。
またお知恵を拝借できればと思います。

質問１．タブ１の、B列及びN列で、下記の条件に該当する行を切り取って、タブ２
の入力がある最終行の次に入力する。
【条件】　B列：_○で終わる　もしくは　N列：XX、△△と等しい

（質問１．とは別の質問です）
質問２．タブ２のB列に順に管理No.が割り振られているのですが、その最後の数字
をチェックし、
タブ１のB列の空欄部分の上から順に、その次の番号から入力する。

【タブ１.イメージ】
A　　　　 B
いちご　332
りんご 400
みかん 空欄
ぶどう 空欄

タブ１．のB列には、タブ２で既に出てきているものに関しては、数値が入力してあ
ります。（A列をキーにV-lookup）
ひっぱってこれなかったもに関しては、空欄にするようにしてあります。
空欄は、新規の登録という事になるので、最後の管理No.の次の数字から順に割り振
りを行いたいです。
つまり、タブ１．B列の上から順にタブ２．のB列の一番最後の数字の次の値から自
動で入力する様にしたいです。
（例えば、タブ２．B列の最後の数字が432の場合、上記イメージの空欄に、433,
434と割り振る)
可能でしょうか？

よろしくお願いします。

回答No.1

MackyNo1

このような掲示板では1つのスレッドに関連のない2つの質問をするのはマナー違反です。

また、マクロがご自分である程度理解されていないの、業務で使用すると取り返しのつかないことになるので（マクロで作業したデータはCtrl+Zなどの操作で元に戻せませんので注意が必要です）、あまりお勧めできません。

さて、質問１ですが、前半の抽出条件のデータをフィルタ操作で抽出する部分ができるなら、問題は別シートの最下行の下のセルに貼り付ける（セルを選択する）部分がわからないということですね。

マクロの記録で、この操作を行う場合は、フィルタしたデータを大きめに選択して「コピー」し（後でセル範囲を編集したほうがよい）、追加するシートの項目名のセル（例えばA1セル）を選択し、Ctrl+↓キーで最終行を選択し、「相対参照で記録」をクリックして、1つ下のセルを選択して、「相対参照で記録」を解除して「貼り付け」てください。

この最下行の下のセルを選択する操作を簡略なコードにすると以下のようになります。

Range("a1").End(xlDown).Offset(1, 0).Select

2つ目の質問は、マクロで実行するよりも関数だけで対応するほうが良いと思います。

VLOOKUP関数で空白表示している部分を、タブ1のデータ範囲とタブ2の自分より上のセル範囲を対象とするMAX関数で最大値を求め、その値に＋１する数式にします。

エクセル2007なら以下のような感じの数式になります。

=IFERROR(VLOOKUP数式,MAX(タブ1!B:B,$B$1:B1)+1)

＃エクセルのバージョンによって使える機能や操作方法が異なりますので、質問の際には必ずバージョンを明記するようにしましょう。

お礼

ご指摘ありがとうございます。以後気をつけたいと思います。
また、あまり分かっていないのに使うのは危険、というのもごもっともですね。
先に、関数やVBAについてもう少し基礎知識を身につけたいと思います。