Question

如何将excel中的数据复制粘贴到文本文档中 并与文本文档中原有数据横行对应？间隔一个空格





Answer 1

分析：先读取记事本内容导入到sheet2的A列暂存，然后把sheet1的A列（多列）文本与sheet2的A列用空格连接后，写入到记事本，完成。

Sub ss()
  ipath = "d:\sheet1.txt"     '记事本的路径与文件名，这里要改成你的，没有就新建一个
  Open ipath For Input As #1  '读取记事本内容导入到excel
  Do While Not EOF(1)
     i = i + 1
     Line Input #1, sData
     Sheet2.Range("A" & i) = sData
  Loop
     Close #1
  

   Open ipath For Output As #2          '将excel单元格的内容导入记事本
   p = Sheet1.Range("A65535").End(xlUp).Row  '要导入的行数
  For i = 1 To p
     s = Sheet2.Range("A" & i).Value & " " & Range("A" & i).Value '要导入的内容
     Print #2, s
   Next
   Close #2
End Sub

 

 

Answer 2

原文本数据复制，excel插入两列在第一列粘贴文本，调整对应格式。全部选择-复制-粘贴到文本即可