|
▼フィルター さん:
こんばんは。
>▼kanabun さん:
>遅くなってすいませんです。具体的には
>A B C D E F G H I J K L・・・・
>番号 日付 エリア 支店 エンド ID 種別1 種別2 種別3 種別4 エンド ID・・・・
>・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・
>・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・
>・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・
>のような配置になっています。ここでE〜Jのパターンが繰り返されます。
>この様なパターンでF、L、R、X、AD、、AJの列に格納しているIDをあいまい検索後、
>行としてリストボックスに表示させています。
やはりそういうことでしたか。。。
抽出列が増えた時点で、処理内容を一度確認すべきでした。。
そうなると、AdvancedFilterを使って同時検索抽出する方法では
無理がありますね?
前のスレッドのタイトルどおり、
「オートフィルターの繰り返し」になるような気がします。
Private Sub CommandButton110_Click()
Dim ss As String
Dim CopyTo As Range '抽出先
Dim i As Long, j As Long
ss = "*" & TextBox76.Value & "*"
With Worksheets("WAREA")
.UsedRange.ClearContents
Set CopyTo = .Range("A1")
j = -1
End With
Application.ScreenUpdating = False
With Worksheets("DATA").Range("A1").CurrentRegion
For i = 5 To 35 Step 6
With .Columns(i).Resize(, 5)
.AutoFilter 2, ss
If .Columns(1).SpecialCells(xlVisible).Count > 1 Then
Intersect(.Cells, .Offset(1 + j)).Copy CopyTo
Set CopyTo = CopyTo.End(xlDown).Offset(1)
j = 0
End If
.AutoFilter
End With
Next
End With
Application.ScreenUpdating = True
'「WAREA」シートに抽出された
> エンド ID 種別1 種別2 種別3 種別4
'をリストボックスのリストにセットする
End Sub
|
|