Xuất ra file txt định dạng như thế này ? (2 người xem)

[kegiaumat055]

Xin chào các bạn

Mình có file excel đính kèm bên dưới. Làm thế nào mà ra được file txt đính kèm bên dưới

Nó chỉ đơn giản gộp các ô lại với nhau thôi. Các bạn giúp mình nhé ! Cảm ơn các bạn nhiều

 

[ndu96081631]

Xin chào các bạn

Mình có file excel đính kèm bên dưới. Làm thế nào mà ra được file txt đính kèm bên dưới

Nó chỉ đơn giản gộp các ô lại với nhau thôi. Các bạn giúp mình nhé ! Cảm ơn các bạn nhiều

Tôi nghĩ lập trình cho đơn giản
Làm chơi:

Sub Main()
  Dim rng As Range, text As String, txtFile As String
  Set rng = Sheet1.UsedRange
  rng.Copy
  With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    .GetFromClipboard
    text = .GetText
  End With
  txtFile = ThisWorkbook.Path & "\thu.txt"
  text = Replace(text, vbTab, "")
  Application.CutCopyMode = 0
  With CreateObject("Scripting.FileSystemObject")
    With .CreateTextFile(txtFile, True)
      .Write text: .Close
    End With
  End With
End Sub