|
初心者 さん、こんにちわ。
>Range("A3:I3").AutoFilter Field:=6, Criteria1:=strMoji
↑これだと見出行だけに適用になるので、
Range("A3:I3").CurrentRegion〜 として範囲を拡張するか、
行の一番下を検索して適用します。
Sub 担当者抽出()
Dim strMoji As Variant, Rmax As Long
strMoji = InputBox("担当者の名前を入力して下さい")
'
If strMoji = "" Then
MsgBox "キャンセル", vbExclamation
Else
strMoji = "*" & strMoji & "*"
With Application.ActiveSheet
Rmax = .Range("F65536").End(xlUp).Row 'フィルタする範囲
.Range("A3:J" & CStr(Rmax)).AutoFilter Field:=6, Criteria1:=strMoji
End With
End If
End Sub
こんな感じです。
|
|