即使单元格为空，使用VBA创建的CSV文件的末尾也会有空行

Sub RemoveEmptyRowsFromCSV()
    Dim filePath As String
    Dim fileContent As String
    Dim lines() As String
    Dim i As Long
    
    ' 设置CSV文件路径
    filePath = "C:\path\to\your\file.csv"
    
    ' 读取CSV文件内容
    Open filePath For Input As #1
    fileContent = Input$(LOF(1), 1)
    Close #1
    
    ' 将文件内容按行分割为数组
    lines = Split(fileContent, vbCrLf)
    
    ' 检查每一行内容，移除空行
    For i = UBound(lines) To LBound(lines) Step -1
        If Trim(lines(i)) = "" Then
            lines(i) = ""
        End If
    Next i
    
    ' 重新构建文件内容
    fileContent = Join(lines, vbCrLf)
    
    ' 将处理后的内容写入CSV文件
    Open filePath For Output As #1
    Print #1, fileContent
    Close #1
    
    MsgBox "已成功去除CSV文件末尾的空行。"
End Sub