人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルデータで編集→検索機能を使用し、
同じキーワードを含む行を検索したのですが、
画面上では、抽出一覧(例えば121件セル見つかりました)はでるのですが・・・
それを別のエクセルシートへ抽出する方法はあるのでしょうか?
おそらく、検索機能ではなく別の機能を使用すると思うのですが、
簡単な方法があれば教えてください。


●質問者: yamanaoki
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:エクセル キーワード セル データ 抽出
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● SALINGER
●60ポイント

簡単とはいきませんが、VBAでの方法です。

>同じキーワードを含む行

ということで、行単位でキーワードが含まれるセルがある行をシートを追加して抽出するマクロです。

最初のところのKeyWordを検索する文字に変えて実行してみてください。

Sub Macro()
  '検索する文字列に変更してください
 Const KeyWord As String = "a"
 Dim ws As Worksheet
 Dim newws As Worksheet
 Dim r As Range
 Dim ro As Long
 Dim c As Long
 
 Set ws = ActiveSheet
 Set newws = Worksheets.Add
 c = 1
 For Each r In ws.UsedRange
 If InStr(1, r.Value, KeyWord) > 0 And ro <> r.Row Then
 ro = r.Row
 ws.Rows(ro).Copy (newws.Rows(c))
 c = c + 1
 End If
 Next
End Sub
◎質問者からの返答

早速のご回答有難うございます。

初歩的な質問で恐縮ですが、

いただいた、数式の使用方法をもう少し分り易くご説明

いただきたくお願い申し上げます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ