プログラムの作り方

質問

まったくの素人です。
1列にあるデータをキーにして情報の抽出をしたいのですが
うまくコードが書けません。
何卒、助勢頂ければ幸いです。
よろしくお願いいたします。
具体的な内容)
B列　C列
x　　11
・・適当な不要なデータが数行
y 　(2A)
・・適当な不要なデータが数行
x　　12
・・適当な不要なデータが数行
y 　(44)
・・適当な不要なデータが数行
x　　39
・・適当な不要なデータが数行
y 　(7)
・・適当な不要なデータが数行
から、xのデータとyのデータの表を作りたい。
ただし、yのデータ()内はB列のyの次の行。
できれば、抽出したデータはシート2に並べたい。
Sub macro()
Dim a As String
Dim b As Variant
Dim c As range
Dim i As Integer
a = x
b = "y"
i = 1
Worksheets("sheet1").range("B1").Activate
For i = 1 To 5000
With ActiveCell
If .Value = a Then
ActiveCell.Offset(0, 1).Copy
Worksheets("sheet2").Select
Cells(i, 1).Select
ActiveSheet.Paste
Sheets("sheet1").Select
Else
ActiveCell.Offset(1, 0).Activate
End If
If .Value = b Then
ActiveCell.Offset(1, 0).Copy
Worksheets("sheet2").Select
Cells(i, 2).Select
ActiveSheet.Paste
Sheets("sheet1").Select
Else
ActiveCell.Offset(1, 0).Activate
End If
End With
Next
End Sub

回答No.1

noname#245936

IT屋のものです。

んー、私も昔、そういうプログラムから始めたような気がします。
Excelマクロは入門しやすいので。
何でもやってみるのはいいことだと思います。

さて、結論から申しますと。

エクセルのセル上、つまり画面上のデータを直接プログラムで
ゴソゴソいじる貴方の方法は、ちょっとしんどいと思います。
何故かというと、
・Excelの表は各セルの条件がとても緩く、入力審査しづらい。
　（例えば、数字を入力すべき所に文字を入れたりできる）
・画面に依存したプログラムを作ると、
　(1)処理が遅い、プログラムがとてつもなく長くなりやすい。
　(2)データの構成が変わったとき（例えば１列でも増えると）
　　プログラムの変更箇所が膨大になる。
　(3)画面依存プログラムは、画面であるソフトのバージョン（Excel）
　　に依存するため、バージョンアップに弱い。
…という理由で、普通はこういうテーブルを扱うプログラムは、
画面とデータを分けて作るのが一般です。
「データベース -> プログラム -> 画面や帳票、Excel」
という感じです。

データベースは一般に、SQLと呼ばれる汎用構文で操作できるので
貴方のDBの場合なら
「SELECT B列,C列 FROM Table Where B列 IN ('X','Y')」という
構文で読めます。
DBアクセスのプログラミングに関しては、別途書籍など参照ください。

なお、Excelのセルを、PickUpする、グループ集計をするなどは
プログラムが無くても、フィルタリング、ソート、ピボット、集計
関数で目的の動きを一瞬でさせることができるので、どうしても
プログラムを書きたければ、そこを制御するプログラムを書いた方が
とても短いプログラムになることが一つ。

また、単にプログラムで行列の配列を単純に取り扱ってみたいと
いうことであれば、構造体配列を使った方がいいことも一つ。
例）
'列の定義
private type typTableCols
ColX as integer
ColY As string
End type
'表の定義
Private tblData() As typTableCols 'コレで２次元配列
…アクセスするときは、tblData(1).ColX = "X" というように
見やすい文章でアクセス可能

もっといえば、単に50,000件以下のDBを扱うなら、手っ取り早く
FileMakerなどの商品を使うのも手。

…と思います。

最近は、何でもかんでもプログラムを書かず、各ソフトの特徴を知り
便利な部分だけをつなぎ合わせたようなプログラムを書くほうが
効率的ではあります。
…が、何でもチャレンジはいいことだと思います。
がんばってください。

なお、Excelで完全にDBアプリを作ろうとすると、まず難問に
かかるのは、「行確定の判断」になるでしょう。

お礼

早速のご回答、誠にありがとうございます。

仰せのとおり、出来上がっているものを使用することは
考えました。(必要に迫られているので。汗)
オートフィルタなどで、フィルタすると抽出できるデータ(ｘ)とその後のデータ(ｙ)の相関が取れなくなることが問題になり悩んでいます。

やはり、小生のレベルでチャレンジするのは無理があったのか
う～ん、どうしよう。。