Question

vb程序，谁知道如何删除空行？

如题

Answer 1

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

Answer 2

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

Answer 3

以下列代码删除已使用区域前的空行和空列
Sheets("payment").Activate
Rows("1:" & UsedRange.Row - 1).Delete
Columns(1).Resize(, UsedRange.Column - 1).Delete

望楼住采纳呀

Answer 4

str=replace(str,vbcrlf&vbcrlf,vbcrlf)