相同逻辑的语句，能否融合在一起？谢谢liulang0808老师！

lhj323323

老师：


上传的附件，是采用笨办法，可实现如下效果
在同路径，生成两个txt

有没办法，把那2个子程序融合成一次历遍
先谢谢老师了。
求助.rar (17.25 KB, 下载次数: 2)

2024-3-6 22:13 上传

点击文件名下载附件

wfywc81

我用chatGPT写的，请查收！

liulang0808

Sub test()
    Dim Arr, i As Long, T As String, j As Long
      
    Dim K As Long
    Dim S As String
    Sheet1.Activate
    Arr = Range("a1").CurrentRegion.Offset(1).Value
    T1 = ""
    T2 = ""
    For i = 1 To UBound(Arr) - 1
        T1 = T1 & Chr(10) & "G" & Arr(i, 1)
        T2 = T2 & Chr(10) & "SSS" & Arr(i, 1)
    Next
    Open ThisWorkbook.Path & "\testA.txt" For Output As #1
        Print #1, Mid(T1, 2)
    Close #1
    Open ThisWorkbook.Path & "\PStest.txt" For Output As #1
        Print #1, Mid(T2, 2)
    Close #1
End Sub

liulang0808

求助 (39).zip (14.56 KB, 下载次数: 3)

2024-3-7 08:00 上传

点击文件名下载附件

供参考。。。。。

lhj323323

liulang0808 发表于 2024-3-7 08:01
供参考。。。。。

原来如此

我还以为第二组的如下段

1.     Open ThisWorkbook.Path & "\PStest.txt" For Output As #1
   
2.         Print #1, Mid(T2, 2)
   
3.     Close #1

复制代码

是要改为

1.     Open ThisWorkbook.Path & "\PStest.txt" For Output As #1
   
2.         Print #2, Mid(T2, 2)
   
3.     Close #2

复制代码

谢谢老师解惑！

liulang0808

Open ThisWorkbook.Path & "\PStest.txt" For Output As #1
        Print #2, Mid(T2, 2)
    Close #2
这三个数字，要一致的

lhj323323

liulang0808 发表于 2024-3-7 08:25
Open ThisWorkbook.Path & "\PStest.txt" For Output As #1
        Print #2, Mid(T2, 2)
    Close #2
...

谢谢老师指点。