怎样在用vb输出txt文件时候自动去除空白行的空格 ，我现在在输出txt的时候，有很多行都是空格，本来只有K
发布网友
发布时间：2023-04-29 21:52
共3个回答
热心网友
时间：2023-10-05 07:36
For a = 1 To UsedRange.Rows.Count
For b = 1 To UsedRange.Columns.Count
If Trim(Cells(a, b)) <> "" Then Print #1, Trim(Cells(a, b)),
Next b
Print #1
Next a
Close #1
End Sub追问
我改了一下1 to UsedRange.Rows.Count 这里为一个具体的数字，然后输出。输出结果已经符合我的要求了，不过在excel上面有一部分我是隐藏掉的，但是在输出txt的时候把隐藏掉的部分也输出了，这个能去掉吗？还有在excel里面的单元格里面我是设了小数点后是四位的，但是到txt里面小数点后变成非常多位了。这个能改不?
热心网友
时间：2023-10-05 07:36
Print #1, replace(Cells(a, b)," ","")
热心网友
时间：2023-10-05 07:37
代码我就不修改了
你可以这样写
a = Replace(替换文本, " ", "")
这样就OK了追问哎，我不怎么懂vb，能麻烦一下写代码吗?光有想法没有实现的手段还是不行呢
追答郁闷
你不是把"c:\程序.txt“文件读入了
之后把储存变量的填入替换文本就行了
哦，对了 储存变量=Replace(储存变量, " ", "")
