copiare ed incollare su un file oppure creare un txt con quel contenuto ? nel secondo caso
Sub toText()
sn = Range("A1:F100")
For j = 1 To UBound(sn)
c00 = c00 & Join(Application.Index(sn, j, 0), vbTab) & vbCrLf
Next
CreateObject("scripting.filesystemobject").createtextfile("F:\Download\file.txt").write c00
End Sub
[Modificato da patel45 12/03/2017 12:00]
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta