能否把两次历遍，融合成一次历遍，谢谢fzxba老师！

lhj323323

老师：

上传的附件里有写好的语句，能实现我的需求
现在，想把两次历遍融合成一次历遍，但不知怎么写
求助.rar (17.1 KB, 下载次数: 21)

2022-12-20 10:39 上传

点击文件名下载附件

先谢谢各位老师了！

aecn

For i = 2 To UBound(arr)
    Str = arr(i, 1) & "—A—" & arr(i, 2)
    Print #1, Str
    Str = arr(i, 3) & "—B—" & arr(i, 2)
    Print #1, Str
Next i

这样吗？

ykcbf1100

一次遍历的话，内容一样，顺序会不一样。

wanao2008

看看行不行？

1. For i = 2 To UBound(arr)
   
2.     Str = arr(i, 1) & "—A—" & arr(i, 2) & vbCrLf & arr(i, 3) & "—B—" & arr(i, 2)
   
3.     Print #1, Str
   
4. Next i

复制代码

DevilW

你的顺序是先录完A再录B，两个 For 改成这样

fzxba

Sub test()
    Dim i&, j&
    Dim arr, brr() As String

Application.ScreenUpdating = False
With Sheet1
     arr = .Range("a2:C" & .Range("a65536").End(xlUp).Row)
End With

j = UBound(arr)
ReDim brr(1 To j * 2)

For i = 1 To j
    brr(i) = arr(i, 1) & "—A—" & arr(i, 2)
    brr(i + j) = arr(i, 3) & "—B—" & arr(i, 2)
Next i

mypath = ThisWorkbook.Path & "\测试.txt"
Open mypath For Output As #1

Print #1, Join(brr, vbCrLf)

Close #1
Application.ScreenUpdating = True
End Sub

gwjkkkkk

1. For i = 1 To 2
   
2. strtxt = IIf(i = 1, "—A—", "—B—")
   
3.     For j = 2 To UBound(arr)
   
4.        Str = arr(j, 1) & strtxt & arr(j, 3)
   
5.        Print #1, Str
   
6.     Next j
   
7. Next i

复制代码

lhj323323

wanao2008 发表于 2022-12-20 10:53
看看行不行？

谢谢老师


生成的结果，好像没有对，请看下图

lhj323323

DevilW 发表于 2022-12-20 10:57
你的顺序是先录完A再录B，两个 For 改成这样

谢谢DevilW 老师，生成的数据与我的需求[最接近]，但两部分内容之间存在一空行

不知该如何修改，请看下图

lhj323323

gwjkkkkk 发表于 2022-12-20 11:27

gwjkkkkk老师：

生成的数据不完整，同时，A和B的取数规则不是一样的。
请看下图