| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- EXCEL 删除行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59834) |
|
| -- 作者：wilson -- 发布时间：2014/11/11 23:58:00 -- EXCEL 删除行 Dim Boo As New XLS.Book("e:\\表A.xlsx") Dim Shee As XLS.Sheet = Boo.Sheets(0) Shee(1,1).Value = "" 上述代码可以删除EXCEL表的内容，如何实现删除EXCEL表中第一列值为“xxxxx” 的行 |
|
| -- 作者：Bin -- 发布时间：2014/11/12 8:11:00 -- 遍历 然后判断 Value 比如 for each i as integer = 1 to Shee.rows.count-1 if Shee(1,i).Value="XX" then Shee(1,i).Value="" end if next
|
|
| -- 作者：客人 -- 发布时间：2014/11/12 11:09:00 -- 如下代码能删除行，不过无法设置条件 Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls") Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) Dim Rg As MSExcel.Range = Ws.Rows("1:3")\'选定多行 Rg.Delete(MSExcel.XlDirection.xlUp) \'下面的单元格上移 App.Visible = True 谢谢版主！，不过我要的是条件删除行，而不是删除内容。
|
|
| -- 作者：有点甜 -- 发布时间：2014/11/12 11:11:00 -- 删除肯定是不能设置条件的。
你判断某行的值，如果符合，就删除即可。 |
|
| -- 作者：客人 -- 发布时间：2014/11/12 11:18:00 -- 谢谢版主！能举例说明一下吗? |
|
| -- 作者：有点甜 -- 发布时间：2014/11/12 11:19:00 -- 那你想怎样设置条件？ |
|
| -- 作者：客人 -- 发布时间：2014/11/12 11:21:00 -- 删除EXCEL表中第一列值为“xxx” 的行 |
|
| -- 作者：有点甜 -- 发布时间：2014/11/12 11:24:00 -- Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\1.xls") Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) For i As Integer = ws.UsedRange.Rows.Count To 1 Step -1 If ws.Cells(i, 1).Text = "abc" Then ws.Cells(i, 1).delete(MSExcel.XlDirection.xlUp) End If Next App.Visible = True |
|
| -- 作者：wilson -- 发布时间：2014/11/12 11:25:00 -- 非常感谢! |
|
| -- 作者：wilson -- 发布时间：2014/11/15 12:55:00 --
|