RSS | ATOM | SEARCH

Excel VBAで特定の文字が入力されたセルを一括で選択する方法
JUGEMテーマ:PC関連
 
例えば,各セルの値が次のようなとき,「コアラ」と入力されたセルだけを
一括で選択する方法です.

A1:ゴリラ
B1:ライオン
C1:コアラ
D1:リス
E1:コアラ
F1:コアラ
G1:サル

Public Sub CellSelectAll(byval arg as string)
    Application.ScreenUpdating = False
    Range("A65536").Select
    Selection.End(xlUp).Select
    r = Selection.Row
    Range("A1").Select
    Selection.AutoFilter
    Selection.AutoFilter field:=1, Criteria1:=arg
    Rows("2:" & Mid(Str(r), 2)).Select
    Selection.Delete Shift:=xlUp
    Selection.AutoFilter field:=1
    Range("A1").Select
    Selection.AutoFilter
    Application.ScreenUpdating = True
End Sub

使用例
Sub ボタン1_Click()
    CellSelectAll("コアラ")
End Sub

author:ちゅらのひと, category:Microsoft Office 小技(Excel), 19:11
comments(0), trackbacks(0), - -

Comment









Trackback


url: http://pc-tech.distinct.main.jp/trackback/29