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

2024-11-25 22:35:28
推荐回答(2个)
回答(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

 

 

回答(2):

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