• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• セガビ2018/02/25 05:07:18

  満足150pt

  手元のExcel 2013で試してみましたが、次の手順でできそうです。
  VBAにする場合は、マクロの記録を使って手順を記録させてください。
  
  １．対象の表全体を選択して、「データ」タブの「フィルター」でフィルターを適用します。
  
  ２．A列のフィルターの「▼」を選んで、「テキスト フィルター」の「指定の値を含む…」で条件を「商品」として、A列に商品を含むものだけ表示します。
  
  ３．その状態で最初の行を選択し、「Shift」を押しながらと最後の行を選択して、全体を選択します。（この状態でフィルターをクリアしても、見えなくなっている部分が選択されてしまうので次の４の手順が必要です。）
  
  ４．「ホーム」タブの「検索と選択」の「条件を選択してジャンプ…」を選び、「可視セル」を選択します。（この４．の操作は「Alt」＋「;」でもできます。）
  
  ５．A列のフィルターの「▼」を選んで、「"（列A）"からフィルターをクリア」を選びます。
  
  これで該当行だけが選択された状態になるかと思います。

  スター

  • 

    2件のコメントを見る

  • セガビ 2018/02/25 05:35:35

    マクロの記録でVBAにする場合、1箇所修正が必要でした。
    仮に表全体がA1:B15だった場合、記録すると次のようなVBAのコードができますが、手順の４に相当する部分だけは修正が必要です。以下の★の部分です。これをやらないと、先頭部分や末尾部分が選択から漏れてしまいますのでご注意ください。
    

    Sub Macro1()
    '
    ' Macro1 Macro
    '
        Range("A1:B15").Select
        Selection.AutoFilter
        ActiveSheet.Range("$A$1:$B$15").AutoFilter Field:=1, Criteria1:="=*商品*", _
            Operator:=xlAnd
        Rows("2:15").Select '★先頭行と最終行になるように書き換えてください！
        Selection.SpecialCells(xlCellTypeVisible).Select
        ActiveSheet.Range("$A$1:$B$15").AutoFilter Field:=1
    End Sub
    

    スター

  • リセール京都買取 2018/02/26 05:59:41

    ありがとうございます！両方の方法まで書いてくださって、感謝いたします！無事動きました！大変助かりました！

    スター

その他の回答

この質問へのコメント

質問の情報

登録日時

2018-02-24 18:18:46

終了日時

2018-02-26 06:00:09

回答条件

1人1回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• フィリピンに行くにはパスポート以外に、↓のEtravelという登録だけなのか、ご到着の空港によって「オンラ…匿名質問者1日前
• ボカロ曲を探しています 記憶が曖昧で申し訳ないのですが、初音ミクが歌っている、歌詞に……(てれんててん…匿名質問者1日前
• 中学生です。私はそろばんを習っています今そろばん1級の練習をしているんですが、そろばんの全種目やった…匿名質問者422日前
• シリアル食品でおススメありますか？　メーカーでは日清とカルビーですね。外国ですと、ケロッグですね。 …匿名質問者123日前
• 睡眠時無呼吸症候群で、外科手術行なった方、おられますか。CPAP対応にすることも多いですけど。 　①咽頭…匿名質問者23日前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ