主页 / 问题 / 1059703
Accepted
Blacit
Asked:2020-12-17 16:09:00 +0800 CST2020-12-17 16:09:00 +0800 CST

查找和删除行

  • 772

任务：删除列中包含“日期”字样的行及其上方的所有行

我正在做的应该工作，但它没有。

nRow = 1
    fend = 0
    Do While (wb.Sheets(1).Cells(nRow, 1).Value <> "Дата" and fend = 0) 
           if inStr(wb.Sheets(1).Cells(nRow, 1).Value, "Дата")> 0 then
              fend = 1
              wb.Sheets(1).Rows("1:" & nRow).Delete            
           end if
           nRow = nRow + 1
        loop
vbscript

1 个回答

  1. Best Answer
    wb.Sheets(1).Rows("1:" & wb.Sheets(1).Columns(1).Find(What:="Дата", MatchCase:=True).Row).Delete

    Find(What:="Дата", MatchCase:=True)wb.Sheets(1)在工作表的列Columns(1)（即 A 列）中以区分大小写的方式搜索带有“日期”一词的单元格。

    找到一个单元格后，我们获取它的行号 ( .Row)。

    并且我们形成一个删除表格行的请求Rows("1:N").Delete。其中N是搜索得到的行号。

    该代码假定在带有搜索词的单元格的第 1 列中保证存在 - 如果不存在，则会出现错误。如有必要，可以使用例如 临时屏蔽它On Error Resume Next。

    • 1

相关问题