EXCEL不连续单元格复制到记事本问题，求完善

35815901

EXCEL不连续单元格复制到记事本问题，求完善

Look2015

我给你改成这样了，不知是你说的样子吗？
Sub 复制到记事本()
Dim x
Dim wjm As String
Dim Data As String
wjm = "D:\11.txt"
Open wjm For Output As #1
For x = 1 To 20
   If Cells(x, "D") <> "" Then
   Data = Cells(x, "D").Value & "    " & Cells(x, "M").Value & "    " & Cells(x, "N").Value & "    " & Cells(x, "O").Value
   Print #1, (Data)
   End If
   Next
Close #1
Shell "Notepad.exe " & wjm, vbNormalFocus
End Sub

Look2015

打印出来的效果如图。不过打印出的空格随便打的，请高手指点下怎么对齐。