2021-08-20

Option Explicit Public Sub GetData() Application.ScreenUpdating = False Application.DisplayAlerts = False c = 0 'セル番地を格納...

'現在開いているブックの全シートを対象に文字列検索をおこなう。'検索結果はシート「検索結果+検索文字列」に出力'流用元： ブック全体のセル内文字列検索() Dim kwd kwd = Application.InputBox("検索文字列を...