SALINGER https://blog.hatena.ne.jp/SALINGER/ SALINGERの日記 https://salinger.hatenadiary.org/ http://q.hatena.ne.jp/1249286196 の質問の回答です。 抽出する場所を別ブックとして、データブックと同じ場所に検索結果.xlsという名前で保存するようにしました。 また、検索文字はインプットボックスで入力できるようにしました。 Sub Macro() Dim KeyWord As String Dim ws As Worksheet Dim wb As Workbook Dim r As Range Dim ro As Long Dim c As Long KeyWord = InputBox("検索する文字を入力してください") If KeyWord = "" … 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fsalinger.hatenadiary.org%2Fentry%2F20090805" title=" - SALINGERの日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2009-08-05 00:00:00 rich https://salinger.hatenadiary.org/entry/20090805 1.0 100%