文本合并或excel每两行导出txt的问题？多谢!

1 上VBS或是批处理循环copy /b

2 For i = 1 To lRow-1 Step 2
If Len(arr(i, 1)) > 0 Then
lFile = lFile + 1
'取文件号
iFn = FreeFile
'创建文件，每次内容均被覆盖,如果要追加就把OUTPUT改成APPEND
Open sPath & lFile & ".txt" For Output As #iFn
If Err.Number <> 0 Then
strError = strError & "A" & i & "写入TXT失败"
Err.Clear
Else
'写入A列对应行的数据
Print #iFn, arr(i, 1)
if i+1 <= IRow then
Print #iFn, arr(i+1, 1)
end if
'关闭文件
Close #iFn
End If
End If
Next

没法调试所以没怎么动原来的，怕动的多错的多，文件名是跳数的，懒得修了

3
=A1&CHAR(13)&CHAR(10)&A2
单元格必须设置为自动换行格式，否则看不出效果。

可以先合并两行，然后把光标放在单元格的右下角，出现+号按住鼠标往下拉到100数字的地方，就好了。