VBA 抽出後、別シートにコピー
ＯＳはＸＰ、Ｅｘｃｅｌは２００３を使用しています。
下記は、元シートから新規シートにデータ全部をコピーする様に組んでいるのですが、これを利用して、Ａ列に「３」が入力されているデータのみを抽出して新規シートにコピーするしたいです。
Dim cellgyo As Long '［元シート］で注目している行
Dim kakikomigyo As Long '［新規シート］で書き込む
Dim jigyosyocode As Variant '担当事業者コード
Dim tantocode As Integer '担当者コード
Dim tokuisakicode As Long '得意先コード
Dim tokuisakiname As String '得意先名
Dim yomicode As String '読みコード
Dim postcode As String '郵便番号
Dim add1 As String '住所１
Dim add2 As String '住所２
Dim telno As String '電話番号
Dim faxno As String 'FAX番号
kakikomigyo = 3 '［新規シート］に最初に書き始める行
For cellgyo = 2 To 63335 'Forループの始まり
Sheets("元シート").Select '［元シート］シートを選択／Cells(行,列)
’****
jigyosyocode = Cells(cellgyo, 1).Value
tantocode = Cells(cellgyo, 5).Value
tokuisakicode = Cells(cellgyo, 2).Value
tokuisakiname = Cells(cellgyo, 3).Value
yomicode = Cells(cellgyo, 4).Value
postcode = Cells(cellgyo, 16).Value
add1 = Cells(cellgyo, 17).Value
add2 = Cells(cellgyo, 18).Value
telno = Cells(cellgyo, 19).Value
faxno = Cells(cellgyo, 20).Value
If jigyosyocode = "0" Then
Exit For
End If
Sheets("新規シート").Select
Cells(kakikomigyo, 1).Value = jigyosyocode 'Cells(行,列)
Cells(kakikomigyo, 2).Value = tantocode
Cells(kakikomigyo, 3).Value = tokuisakicode
Cells(kakikomigyo, 4).Value = tokuisakiname
Cells(kakikomigyo, 5).Value = yomicode
Cells(kakikomigyo, 6).Value = postcode
Cells(kakikomigyo, 7).Value = add1
Cells(kakikomigyo, 8).Value = add2
Cells(kakikomigyo, 9).Value = telno
Cells(kakikomigyo, 10).Value = faxno
kakikomigyo = kakikomigyo + 1
Next cellgyo
-----------------------
-----------------------
データを抽出しようと思い、
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="3"
Selection.CurrentRegion.Copy
を ****のところに挿入してみたのですが、
どうも上手く行きません。
説明の足りないところあるかと思いますが、
どなたか修正点教えて下さいますようお願いします。
お礼
教えていただいたもので抽出できました。ありがとうございました。 （しかし、ORではなくANDでした・・・。）