パソコン

日記

データ | Export-Csv -Path ([System.IO.Path]::Combine($env:USERPROFILE, "Desktop", "ファイル名.csv")) -NoTypeInformation -Encoding UTF8Sub RemoveEmptyLines()    Dim cell As Range    Dim lines As Variant    Dim result As String    Dim i As Long    ' シートと範囲を設定    With ThisWorkbook.Sheets("Sheet1")        ' C2からC4334の範囲をループ        For Each cell In .Range("C2:C4334")            ' セルの内容を取得            Dim cellContent As String            cellContent = cell.Value            ' 改行コードを統一（vbCrLfをvbLfに置換）            cellContent = Replace(cellContent, vbCrLf, vbLf)            ' デバッグ用: セルの内容を出力            Debug.Print "処理前のセル: " & cell.Address & " | 内容: " & cellContent            ' セルの内容を行ごとの配列に分割            lines = Split(cellContent, vbLf)            result = ""            ' 各行をチェック            For i = LBound(lines) To UBound(lines)                ' 空白でない行のみを追加                If Trim(lines(i)) <> "" Then                    If result <> "" Then                        result = result & vbLf ' 改行を追加（最初の行以外）                    End If                    result = result & lines(i)                End If            Next i            ' セルに結果を設定            cell.Value = result            ' デバッグ用: 処理後の内容を出力            Debug.Print "処理後のセル: " & cell.Address & " | 内容: " & cell.Value        Next cell    End With    MsgBox "空白行が削除されました。"End Sub