VBAコマンド Excel Book 1にシート１，２があります。 シート１には 下記のよう

VBAコマンド

Excel Book 1にシート１，２があります。

シート１には　下記のように複数名分があります。
○○○　太郎
テーブル番号
PC１
PC２
PC3
＃＃
＃＃＃
＃＃＃＃

シート２に上記のデータを一列に抽出したいです。
テーブル番号を入れて抽出ボタンをクリックすれば残りの情報が反映される。
もし１００名分のテーブル番号を入力すれば、ループで処理を行う。
処理が完了すれば、ダイアルボックス表示させ終了。
例）
テーブル番号 氏名 PC1 PC2 PC3 ## ### ####

宜しくお願い致します。

No.1 回答者： GooUserラック 回答日時： 2016/05/09 11:42

① シート１の１行目を「選択」「コピー」

② シート２のＢ１セルを選択「形式を選択して貼り付ける」で「行列を入れ替える」にチェックを入れ実行

③ シート１の２行目を「選択」「コピー」
④ シート２のＡ１セルを選択「形式を選択して貼り付ける」で「行列を入れ替える」にチェックを入れ実行

⑤ シート１の３行目以降を「選択」「コピー」
⑥ シート２のＣ１セルを選択「形式を選択して貼り付ける」で「行列を入れ替える」にチェックを入れ実行

⑦ シート２で１行目を選択してオートフィルターをかける。

☆ 必要に応じてＡ１セルの右側の▼をクリックして「（オプション）」を選択し、条件をセットして「ＯＫ」ボタンを押す。