将Excel数据转记事本：运行宏生成文件行尾有空格，如何修复？

我来帮你搞定这个每行末尾带空格（其实大概率是多余的制表符）的问题！咱们先拆解下原代码的问题根源，再给出针对性的修改方案：

问题出在哪？ #

你的代码用Join(..., vbTab)把每行单元格用制表符连接，但如果某一行的末尾单元格是空值，Join后会在字符串末尾留下多余的制表符——在记事本里看起来就像空格；另外Print #1的默认输出逻辑也可能间接放大这个格式问题。

修改后的完整代码 #

Sub test()
    Dim txtLine As String, i As Long, rng As Range
    Dim cellValues As Variant, nonEmptyValues As Variant
    Dim j As Integer
    
    Set rng = Range("A1:C500")
    Open "c:\test\test.txt" For Output As #1
    
    For i = 1 To rng.Rows.Count
        cellValues = rng.Rows(i).Value
        ' 过滤当前行的空单元格，避免末尾出现多余制表符
        ReDim nonEmptyValues(1 To 0)
        For j = 1 To UBound(cellValues, 2)
            If cellValues(1, j) <> "" Then
                ReDim Preserve nonEmptyValues(1 To UBound(nonEmptyValues) + 1)
                nonEmptyValues(UBound(nonEmptyValues)) = cellValues(1, j)
            End If
        Next j
        
        ' 仅当该行有非空内容时才写入文件
        If UBound(nonEmptyValues) > 0 Then
            txtLine = Join(nonEmptyValues, vbTab)
            Print #1, txtLine
        End If
    Next i
    
    Close #1
End Sub

关键改动说明 #

• 过滤空单元格：遍历每行单元格，只保留非空值再用Join连接，从根源上避免末尾出现多余的制表符（也就是你看到的“空格”）。
• 逐行输出：不再先把所有内容累加进一个大字符串，而是直接逐行写入文件，既节省内存，也避免了字符串拼接时的潜在格式bug。
• 跳过空行：如果某一行所有单元格都是空的，就不写入文件，避免生成无意义的空白行。

快速修复备选方案（若需保留列位置） #

如果你必须保留所有列的位置（哪怕末尾单元格是空），只是想去掉末尾的制表符，可以把生成每行字符串的部分改成这样：

With WorksheetFunction
    txtLine = Join(.Transpose(.Transpose(rng.Rows(i).Value)), vbTab)
End With
' 循环去掉末尾的制表符
Do While Right(txtLine, 1) = vbTab
    txtLine = Left(txtLine, Len(txtLine) - 1)
Loop

这样就能确保每行末尾干干净净，不会有多余的“空格”啦！

内容的提问来源于stack exchange，提问作者robot ji