A4セルにSQLを貼り付けてFormatボタンをクリックするとB4セルに整形後のSQLが出力されます。 Sub ButtonClick() Dim sql As String sql = Range("A4").Value sql = EmptyReplace(sql) sql = FormatSQL(sql) Do While InStr(sql, vbCrLf & vbCrLf) > 0 ' ...
一部の結果でアクセス不可の可能性があるため、非表示になっています。
アクセス不可の結果を表示する