[已解决]VBA TXT的写入，结果不对，麻烦看下

suxiong

代码：

1. Sub a()
   
2. 
   
3.     Dim ft, x, y, arr
   
4.     ft = "D:\123.txt"
   
5.    'arr = Sheets(1).Range("a1:d16")
   
6.     Open ft For Output As #1
   
7.     For x = 1 To 16
   
8.         For y = 1 To 4
   
9.             Print #1, Cells(x, y) & "";
   
10.             If y = 4 Then Print #1, Cells(x, y)
    
11.         Next y
    
12.     Next x
    
13.     Close #1
    
14. 
    
15. End Sub

复制代码

1.zip (16.94 KB, 下载次数: 17)

2015-9-6 19:20 上传

点击文件名下载附件

输出的结果为（后面多了一个4），为什么呢，麻烦修改下代码，谢谢：
1\2\3\4\ 4
1\2\3\4\ 4
1\2\3\4\ 4
1\2\3\4\ 4
1\2\3\4\ 4
1\2\3\4\ 4
1\2\3\4\ 4
1\2\3\4\ 4
1\2\3\4\ 4
1\2\3\4\ 4
1\2\3\4\ 4
1\2\3\4\ 4
1\2\3\4\ 4
1\2\3\4\ 4
1\2\3\4\ 4
1\2\3\4\ 4

最佳答案

月排行榜 / 总排行榜

wanao2008

2015-9-6 19:41

第10行把（逗号 ）后面的 Cells(x, y) 去掉

跳转到最佳答案楼层

wanao2008

第10行把（逗号 ）后面的 Cells(x, y) 去掉

suxiong

wanao2008 发表于 2015-9-6 19:41
第10行把（逗号 ）后面的 Cells(x, y) 去掉

结果对了，谢谢，但有点不理解。不是要写入这个单元格的值吗Cells(x, y)，什么要去掉呢？

wanao2008

suxiong 发表于 2015-9-6 19:50
结果对了，谢谢，但有点不理解。不是要写入这个单元格的值吗Cells(x, y)，什么要去掉呢？

值在循环时已经写过了