答：导出的数据不变的原因是程序读取的总是之前保存的文件中的值。
我重写了下代码，生成的文件名是：结果.txt，放在桌面上。
Sub ExlportText()
Dim Rng As Range
Set Rng = Range("H9") ''红框线内左上角单元格，我猜的
Open "C:\Users\my\Desktop\结果.txt" For Output As #1
Do Until IsEmpty(Rng)
Print #1, Rng & Rng.Offset(0, 1)
Set Rng = Rng.Offset(1, 0)
Loop
Close #1
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024