调整csv文件格式的时候可能用到的工具

Sub Adj()
num = ActiveSheet.UsedRange.Rows.Count()
For i = 1 To num
    If Left(Cells(i, 1), 2) = "  " Then
        Cells(i - 1, 1) = Cells(i - 1, 1) & Trim(Cells(i, 1))
        Rows(i).Delete
        i = i - 1
        End If
    Next
End Sub

众所周知，csv文件用excel打开的时候会发生数据挤在一个格里的情况，我们可以用分列的方法重新恢复格式

但往往更恶心的是，有时应该在一行的数据会分成两行，所以我们要先把它们恢复到一行里再分列