No.4ベストアンサー
- 回答日時:
find,findnextメソッドを使った例です。
excel2000で動作確認しました。シート名、検索文字列は適宜変更してください。データが300件程度なら、この方法でも良いですが、今後増える場合は、次第に時間がかかるようになるのでお勧めできません。
Sub Sample()
Dim c
Dim myr As Integer
Dim myr0 As Integer
With Worksheets(1).Range("B1:B300")
Set c = .Find("大阪府", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Set c = .FindNext(c)
myr0 = Range(c.Address).Row
myr = Range(Sheets(2).Cells(Rows.Count, 1) _
.End(xlUp).Address).Row
Sheets(2).Range("A" & myr + 1 & ":C" & _
myr + 1).Value = _
Sheets(1).Range("A" & myr0 & ":C" & _
myr0).Value
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Set c = Nothing
End Sub
No.6
- 回答日時:
条件を設定して使用できるように作ってみました。
どのシートをアクティブにして実行してもOKです。
何回実行しても、現データで上書きします。
見出し行があれば、データの上の行だけコピーします。
Sub データ抽出()
'----- 設定事項 ------------
Const OrgSh = "Sheet1" ' <--- 基データのシート名
Const PicSh = "Sheet2" ' <--- 抽出先シート名
Const TopAdd = "B2" ' <--- 検索範囲の先頭(見出しを除く)
Const FindStr = "大阪府" ' < ---検索する文字列
'---------------------------
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Dim Rng As Range
Dim First As String
Dim N As Long
Set Ws1 = Worksheets(OrgSh)
Set Ws2 = Worksheets(PicSh)
Ws2.Cells.ClearContents '抽出先シートをクリア
If Range(TopAdd).Row > 1 Then ' 見出し行があればコピー
Ws1.Range(TopAdd).Offset(-1).EntireRow.Copy Destination:=Ws2.Rows(1)
N = 1
End If
Set Rng = Ws1.Range(TopAdd).EntireColumn.Find(FindStr) '部分一致検索
If Not Rng Is Nothing Then
First = Rng.Address
Do
N = N + 1
Rng.EntireRow.Copy Destination:=Ws2.Rows(N)
Set Rng = Ws1.Range(TopAdd).EntireColumn.FindNext(Rng)
Loop Until Rng Is Nothing Or Rng.Address = First
End If
End Sub
No.5
- 回答日時:
あ、よく考えたら住所でソートしてコピペじゃダメすか?どうしてもVBA?
findではB列(住所)に区市町村、番地まで入ってるとどうなるですか?ワイルドカードが使えるのかな(謎)
何が目的かによりますね。
No.3
- 回答日時:
>> 「都道府県」だけを抽出したりと前処理が要るかもです。
→300件程度とのことですので、私なら、
1.並びに意味があるならA列の前にもう1列挿入して連番を振っておく。
2.住所で並べ替え(ソート)して右端に1列追加して、オートフィルで都道府県名を入力
3.連番で再ソート
という風にやります。
4.もっと件数多ければ→アクセスでやります。
No.2
- 回答日時:
おっと、訂正。
range(cells(1,1),cells(300,4)).advancedfilter xlfiltercopy,Range(Worksheets("シート3").Cells(1,1).value), Worksheets("シート2").Cells(1, 1), False
No.1
- 回答日時:
B列が住所ということは、番地まで入ってるってことですよね。
そのままではツラいかもです。「都道府県」だけを抽出したりと前処理が要るかもです。D列に都道府県名のみを入れて、シート3のA1に「大阪府」と入れて
range(cells(1,1),cells(300,4)).advancedfilter xlfiltercopy,range
Range(Cells(1, 1), Cells(MyR, 20)).AdvancedFilter xlFilterCopy, Range(Worksheets("シート3").Cells(1,1).value), Worksheets("シート2").Cells(1, 1), False
ぐらいでしょうか。(検証してません。ご参考まで。)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数シートの複数列に入力されているデータを重複なしで抽出するVBAを作りたいです。 9 2022/06/17 10:33
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- Excel(エクセル) エクセル関数について 8 2023/06/28 17:04
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) マクロか関数で処理したいのですが、教えて頂けませんか。 8 2022/10/31 15:18
- Visual Basic(VBA) VBA 最終行まで数式をコピーする 3 2023/01/03 15:44
- Visual Basic(VBA) VBA 改行コードの取り方 1 2022/03/22 14:14
- Excel(エクセル) Excelの関数でこんな処理ができますか 1 2023/02/08 13:46
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
【VBA】特定の文字が入っている行の一部を抽出して別シートコピーするには
Visual Basic(VBA)
-
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
-
4
Excel VBAである特定文字列を含むシート名例えば「りんご(1)」
Excel(エクセル)
-
5
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
6
特定の文字列があったらその行をまるごと別シートに反映させたい
Excel(エクセル)
-
7
エクセル VBA 特定文字がある行を別シートに移動
Visual Basic(VBA)
-
8
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
9
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
10
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
11
エクセルVBA C列に特定の文字列を含む行のみを抽出し、一つのExcelにまとめたい。
Excel(エクセル)
-
12
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
13
【VBA】指定した検索条件に一致したら別シートに転記したい
Visual Basic(VBA)
-
14
EXCEL VBAで文字列の検索とコピー
Excel(エクセル)
-
15
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
-
16
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
17
エクセルで特定の文字を含むセルをコピーしたい
Excel(エクセル)
-
18
エクセルで特定の値を含む列のみVBAで非表示にしたい
Excel(エクセル)
-
19
【VBA】シート名に特定文字が入っていたらマクロを実行したいです。
Visual Basic(VBA)
-
20
エクセルエラー13型が一致しませんの直し方教えて下さい。
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelのVlookup関数の制限について
-
エクセルの保護で、列の表示や...
-
VBAで繰り返しコピーしながら下...
-
Excel複数シートにあるデータを...
-
文字の色も参照 VLOOKUP
-
VLOOKアップ関数の結果の...
-
エクセルのブック分割マクロを...
-
SUMPRODUCTにて別シートのデー...
-
Excelでの並べ替えを全シートま...
-
エクセル複数シートのデータを...
-
エクセルの列の限界は255列以上...
-
Excel の複数シートの列幅を同...
-
エクセルで、チェックボックス...
-
Excelで全てのシートに一気に列...
-
エクセルの横に並んでいるもの...
-
VBAで検索して、行をコピー&追...
-
【条件付き書式】countifsで複...
-
Excelに自動で行の増減をしたい...
-
エクセルVBA 行追加時に自...
-
【VBA】複数のシートの指定した...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
文字の色も参照 VLOOKUP
-
ExcelのVlookup関数の制限について
-
エクセルの保護で、列の表示や...
-
VBAで繰り返しコピーしながら下...
-
Excel の複数シートの列幅を同...
-
エクセルで横並びの複数データ...
-
エクセルの列の限界は255列以上...
-
【条件付き書式】countifsで複...
-
Excelでの並べ替えを全シートま...
-
SUMPRODUCTにて別シートのデー...
-
エクセル マクロ 標準モジュー...
-
VLOOKアップ関数の結果の...
-
エクセルで、チェックボックス...
-
Excel VBA ピボットテーブルに...
-
オートフィルタ使用時にCOUNTIF...
-
スプレッドシートでindexとIMPO...
-
エクセルVBAで、ある文字を含ん...
-
エクセルのブック分割マクロを...
-
【VBA】複数のシートの指定した...
-
Excel複数シートにあるデータを...
おすすめ情報