Нічого собі, я збирався сам задати це питання, але його вже задавали. Весь вихідний буфер обміну Excel tabобмежений за замовчуванням. Це неприємно для "справжнього" простого виведення тексту, коли у вас є шрифт фіксованої ширини, але не обов'язково підтримується роздільник вкладок.
У будь-якому разі я знайшов і змінив невеликий макрос Excel, який скопіює обрану на даний момент область як просту таблицю ASCII стовпців фіксованої ширини - так:
187712 201 37 0,18
2525 580 149 0,25
136829 137 43 0,31
Ось код макросу. Щоб використовувати його, переконайтеся, що ви ввімкнули вкладку «Розробник» в опціях Excel, якщо ви використовуєте Excel 2007 або новішу версію.
Sub CopySelectionToClipboardAsText()
' requires a reference to "Windows Forms 2.0 Object Library"
' add it via Tools / References; if it does not appear in the list
' manually add it as the path C:\Windows\System32\FM20.dll
Dim r As Long, c As Long
Dim selectedrows As Integer, selectedcols As Integer
Dim arr
arr = ActiveSheet.UsedRange
selectedrows = UBound(arr, 1)
selectedcols = UBound(arr, 2)
Dim temp As Integer
Dim cellsize As Integer
cellsize = 0
For c = 1 To selectedcols
temp = Len(CStr(Cells(1, c)))
If temp > cellsize Then
cellsize = temp
End If
Next c
cellsize = cellsize + 1
Dim line As String
Dim output As String
For r = 1 To selectedrows
line = Space(selectedcols * cellsize)
For c = 1 To selectedcols
Mid(line, c * cellsize - cellsize + 1, cellsize) = Cells(r, c)
Next c
output = output + line + Chr(13) + Chr(10)
Next r
Dim MyData As MSForms.DataObject
Set MyData = New DataObject
MyData.SetText output
MyData.PutInClipboard
MsgBox "The current selection was formatted and copied to the clipboard"
End Sub