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

lhj323323

fzxba 发表于 2022-12-20 11:00
Sub test()
    Dim i&, j&
    Dim arr, brr() As String

谢谢老师！
完美解决
一次历遍，一次写入

lhj323323

ykcbf1100 发表于 2022-12-20 10:50
一次遍历的话，内容一样，顺序会不一样。

谢谢ykcbf1100老师，的确是夹杂的。

lhj323323

fzxba 发表于 2022-12-20 11:00
Sub test()
    Dim i&, j&
    Dim arr, brr() As String

老师：


我针对6楼的语句，只对如下两句进行修改，但改后，生成的结果，为何会出错呢？
With Sheet1
     'arr = .Range("a2:C" & .Range("a65536").End(xlUp).Row)
     arr = .Range("a1:C" & .Range("a65536").End(xlUp).Row)‘---------我改为此句
End With

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

'For i = 1 To j
For i = 2 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

fzxba

lhj323323 发表于 2022-12-21 10:16
老师：

Sub test()
  Dim i&, j&, k&
  Dim arr, brr() As String, mypath As String
  Application.ScreenUpdating = False
  With Sheet1
      arr = .Range("a1:C" & .Range("a65536").End(xlUp).Row) '第1行数据无用，排除后方便些；若这样，见下面的注释
  End With
  j = UBound(arr) - 1 '排除多余1行
  ReDim brr(1 To j * 2) '
  For i = 2 To UBound(arr) '用UBound(arr) 或 j+1 ，把减的加上。
      k = k + 1 'k变量用来计数
      brr(k) = arr(i, 1) & "—A—" & arr(i, 2)
      brr(k + 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