| |
オートフィルタを利用してデータを抽出する以下のようなマクロを作りましたが、
エラーが出てうまくいきません。。原因および対処法を教えて頂けると幸いです。
（指定セルの場所などは間違っていないと思うのですが、できればこの部分も汎用的にしたいと思っています。）
Sub 指定文字データの抽出()
Dim strMoji As String
strMoji = InputBox("検索文字を入力してください")
strMoji = "*" & strMoji & "*"
Sheets("Sheet2").Activate
Cells.Clear
With Sheets("Sheet1")
.Range("B2").AutoFilter Field:=1, criterial:=strMoji
.Range("B2").CurrentRegion.Copy _
Destination:=Sheets("Sheet2").Range("B2")
.Range("B2").AutoFilter
End With
Sheets("Sheet2").Columns("B:D").AutoFit
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
