ExceｌSheet1のデータから、指定したデータをSheet２に一括出力する。

質問

ExcelSheet1に約４０００件(1行)のデータを入力しています。
　そのデータから指定した１００件のデータを、ＶＢＡで一括してSheet2に出力するマクロを教えてください。
　Sheet1のＡ列には、主キーとして(0001～9999)の文字列をいれています。

回答No.3

hana-hana3 · ベストアンサー

＞Sheet１Ａ列の主キー（４桁の文字列）を、Sheet2のＡ列に１００件を入力し、マクロで抽出することができないでしょうか。

こんな感じでどうでしょうか？

Match関数でデータ位置を取得しているので、シート１のデータが１行目から始まっていない場合は、tmp + offset として位置合わせが必要です。

--------------------------------------------------------------
Sub test()
Dim i As Integer
Dim tmp As Variant
Dim sh1 As Worksheet, sh2 As Worksheet

Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")

On Error Resume Next
For i = 1 To 100
'sh1.Range("A1:A400") ------　Sheet１Ａ列の主キー
'sh2.Cells(i, 1) -----------　Sheet2のＡ列１００件
tmp = Application.WorksheetFunction.Match(sh2.Cells(i, 1), sh1.Range("A1:A400"), 0)
'Match関数注意　tmp + offset
If Err() = 0 Then
sh1.Rows(tmp).Copy sh2.Rows(i)
Else
sh2.Cells(i, 2) = "Nothing !!" 'なし
End If
Next
On Error GoTo 0
Set sh1 = Nothing
Set sh2 = Nothing
End Sub
--------------------------------------------------------

MATCH関数
http://www.ecken.co.jp/func/func_match.htm
http://www12.plala.or.jp/nombo/kansu/kansu34.html

回答No.2

hallo-2007

とりあえず、オートフィルターの結果をコピィして別のシートへ貼り付けては如何ですか？
マクロの記録をスタート
オートフィルターを実行して指定した100件を抽出
行方向にたっぷりと範囲を選択してコピィ
別シートに貼り付け
元シートに戻って、オートフィルターを解除
マクロの記録の終了
多少の手直しでご希望の動作になると思います。

補足

例えば、Sheet１Ａ列の主キー（４桁の文字列）を、Sheet2のＡ列に１００件を入力し、マクロで抽出することができないでしょうか。

回答No.1

hana-hana3

＞指定した１００件のデータ

コピーは簡単ですが、条件が解らないと何もできません。

補足

例えば、Sheet１Ａ列の主キー（４桁の文字列）を、Sheet2のＡ列に１００件を入力し、マクロで抽出することができないでしょうか。