查人人中国名人网中国警察网微博辟谣:vb程序，谁知道如何删除空行？
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 18:55:42
如题
以下列代码删除已使用区域前的空行和空列
Sheets("payment").Activate
Rows("1:" & UsedRange.Row - 1).Delete
Columns(1).Resize(, UsedRange.Column - 1).Delete
望楼住采纳呀
ftlsisme 的方法如果遇到以下数据就不行了。
a
b
c
d
e
f
试一下以下代码，嘿嘿。
Private Sub Command1_Click()
Text2.Text = Replace(Join(Split(Join(Split(Text1.Text, vbCrLf & vbCrLf), vbCrLf), vbCrLf & vbCrLf), vbCrLf), vbCrLf & vbCrLf, vbCrLf)
End Sub
Dim s As String
Open "31029600.txt" For Input As #1
Open "31029600_1.txt" For Output As #2
Do Until EOF(1)
Line Input #1, s
If Val(s) <> 0 Then Print #2, s
Loop
Close #2
Close #1
str=replace(str,vbcrlf&vbcrlf,vbcrlf)