Win11

Excelのセルの末尾の余分な改行をまとめて削除するVBAのサンプルコードを紹介します。仕様下記のシートのA列のように文末に余分に改行があるとします。※B列に補足を入れていますこれを以下のシートのように、余分な改行を削除するVBAを考えました。文章の途中の改行は残しつつ、文末の改行だけを消すのです。ソースコードソースコードは以下のとおりです。Option ExplicitSub deleteLineBreak() Dim i As Long For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Dim CellValue As String CellValue = Worksheets("Sheet1").Cells(i, 1).value '文字数回繰り返す Dim j As Long For j = 1 To Len(CellValue) '最後の文字が改行コードの場合 If Right(CellValue, 1) = vbLf Or Right(CellValue, 1) = vbCr Then '最後の文字以外を格納 CellValue...

Windows上のフォルダにあるファイルを、Excelシート上に一覧表示するVBAのサンプルコードを公開してみます。仕様画面仕様シートの「検索パス」のセルに検索対象のフォルダのパスを入力しています。右側の「一覧表示」ボタンを押したときにファイル一覧が出力されます。ファイル名ファイルのフルパスファイルへのリンクソースコードDim RowNo As LongDim No As LongSub ボタン1_Click() Application.ScreenUpdating = False RowNo = 5 No = 1 Call ClearList Call FileSearch(Sheets(1).Cells(2, 2)) Application.ScreenUpdating = True End Sub'一覧初期化Sub ClearList() Dim lastRow As Long lastRow = Cells(Rows.Count, 1).End(xlUp).Row Sheets(1).Rows("5:" & Cells.Rows.Count).Delete End Sub'ファ...