エクセルVBAで、検索・抽出の仕方を教えてください

締切済

質問者：takeme
質問日時：2008/09/01 21:20
回答数：4件

ＶＢＡを殆ど使ったことがないのですが、
仕事でどうしても必要なため、以下のやり方を教えてください。

Ａというシートにあるデータを貼り付けた後、
自動的にあるキーワードで検索してヒットした行と、
必要な項目が飛び飛びになっている列(複数)を
抽出してＢというシートに貼り付けたいと思っています。

イメージとしては、Ａというシートから商品名ｉで抽出して
商品名　　　｜Ｄ（不要な列）　｜容量｜Ｅ（不要な列）｜製造会社｜
Ｆ（商品名）｜Ｄ’（不要）　　｜Ｇ　｜Ｅ’（不要）　｜Ｈ　　　｜
ｉ（商品名）｜Ｄ’（不要）　　｜Ｊ　｜Ｅ’（不要）　｜Ｋ　　　｜
Ｌ（商品名）｜Ｄ’（不要）　　｜Ｊ　｜Ｅ’（不要）　｜Ｋ　　　｜
ｉ（商品名）｜Ｄ’（不要）　　｜Ｍ　｜Ｅ’（不要）　｜Ｎ　　　｜
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

↓不要な列を省いた状態にしてＢというシートに
この様な状態で貼り付けたいと思っています。

商品名　　　｜容量｜製造会社｜
ｉ（商品名）｜Ｊ　｜Ｋ　　　｜
ｉ（商品名）｜Ｍ　｜Ｎ　　　｜
　　　
説明がわかりにくくてすみません。
よろしくお願い致します。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

最新から表示
回答順に表示

No.4

回答者： fujillin
回答日時：2008/09/02 13:40

キーワードは1列目と限定しています。

もととなるシート（A？）で検索したいセル（またはその行のセル）をセレクトした状態で、以下のマクロを実行すれば別シートに集計されます。
注1）別シートは新しく作成され、名前が"B"または"B#"（#は番号：すでに同名のシートがある場合連番で振られる）となり、ここに結果が集計されます。
注2）コピーしたい列はマクロの中のcolで定義されていますので、ここを任意に変えればコピーされれる列が変わります。（サンプルでは1,3,5列を設定＝A列、C列、E列）

Sub test()
Dim ss As Worksheet, ds As Worksheet
Dim cv As String, col, rc, i, j, imax
col = Array(1, 3, 5) 　　'←ここにコピーする列番号を列挙

　Set ss = ActiveSheet
　j = Selection.Row
　imax = Cells(Rows.Count, 1).End(xlUp).Row
　i = 0

　Do
　　If i = 0 Then cv = "B" Else cv = "B" & Format(i, "#")
　　rc = 0
　　For Each ds In Worksheets
　　　If ds.Name = cv Then rc = 1
　　Next
　　i = i + 1
　Loop Until rc = 0

　Sheets.Add after:=ss
　Set ds = ActiveSheet
　ds.Name = cv
　cv = ss.Cells(j, 1)

　For i = 1 To imax
　　If ss.Cells(i, 1).Value = cv Then
　　　rc = rc + 1
　　　For j = 0 To UBound(col)
　　　　ds.Cells(rc, j + 1).Value = ss.Cells(i, col(j))
　　　Next j
　　End If
　Next i
End Sub

- 0
- 件

通報する

No.3

回答者： n-jun
回答日時：2008/09/01 22:55

ANo.1です。

新規Bookのシート１のA1～F10位に適当なデータを打ち込みます。

Sub try()

Dim r As Range
Dim rr As Range

Set r = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
Set rr = Intersect(r, Range("A:A,C:C,E:E"))

r.Select
MsgBox r.Address

rr.Select
MsgBox rr.Address
End Sub
コードを貼り付けて実行します。
１回目はセルＡ１から表示されているデータ範囲を選択し、そのアドレスをメッセージボックスにて表示します。
２回目は１回目の範囲から、Ａ・Ｃ・Ｅ列を選択し、そのアドレスをメッセージボックスで表示します。

ご参考になれば。