[求助]EXCEL怎么筛选删除不需要的行？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我下面的代码实现了选择文件删除不需要的行，填充必须的数据，请问一下怎么删除存货编码不包含“（小计）”的行？搞了半天没找到这样的资料，麻烦大神指教一下，谢谢。

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

下载信息 [文件大小：下载次数： ]
点击浏览该文件:test.xls

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

For Each fl As String In dlg.FileNames

Dim Book As New XLS.Book(fl ) '定义一个Excel工作簿

Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

Dim YZD As String = sheet(2,1).Text

sheet.rows.RemoveAt(0)

sheet(0,1).value = "生产运作单"

For r As Integer = 1 To SHEET.Rows.Count - 2 '填入数据

sheet(R,1).value = YZD

sheet(1,1).value = YZD

Book.Save("c:\生产运作单\test.xls") '保存工作簿

End If

Dim Proc As New Process '打开工作簿

Proc.File = "C:\生产运作单\test.xls"

Proc.Start()

For r As Integer = SHEET.Rows.Count - 1 to 1 step -1 '填入数据

if sheet(r,0).value like "(小计)*" then

sheet.rows.RemoveAt(r)

end if

谢谢大神，参考您的代码已经完成删除不包含（小计）的行，那如果我要在这个之后在把包含（小计）的行去掉“（小计）”怎么写哦？，用替换吗？

For r As Integer = SHEET.Rows.Count - 1 To 1 Step -1 '删除不包含小计的行

If sheet(r,0).value Like "(小计)*" = False Then

sheet.rows.RemoveAt(r)

End If

For r2 As Integer = SHEET.Rows.Count - 1 To 1 Step -1 '删除(小计)字样

If sheet(r2,0).value Like "(小计)*" Then

sheet.rows.替换(r) ？？

End If

If sheet(r2,0).value Like "(小计)*" Then

sheet(r2,0).value = sheet(r2,0).value.tostring().replace("(小计)","")

End If

完美，谢谢大神。帮助里面都找不到这样的资料

主题：[求助]EXCEL怎么筛选删除不需要的行？