删除行，直到单元格=“ Total”
佩特里克
我想使用此宏删除最后一个空行之后的所有单元格，直到“ E”列中的行为“ Total”为止
我已经尝试过了，但是循环线上有错误：
Sub delete()
Dim r As Range
Dim lastRow As Long
Dim c As Range
Dim i As Long
i = lastRow + 1
With ThisWorkbook.Worksheets("Sheet1")
lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
End With
Do
Set r = Range("B" & i)
If Len(r) = 0 Then r.EntireRow.delete
i = i + 1
Loop Until Cells(i, 5).Value = "Total"
End Sub
这是我的表格的示例：
加雷斯
我将使用类似于以下内容的方法，它将在所有单元格中继续进行直到E&i= total：
Public Sub Delete()
Dim i As Long
i = 2 'Start from row 2
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Sheet1")
Do Until .Range("E" & i).Value = "Total"
If .Range("B" & i).Value = vbNullString Then
.Rows(i).EntireRow.Delete
Else
i = i + 1 'Only increment if the row hasn't been deleted to prevent skipping rows
End If
Loop
End With
Application.ScreenUpdating = True
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
根据单元格值删除数据网格行
- 2
Excel VBA如果单元格包含文本则删除行
- 3
根据单元格值删除整个行
- 4
Matlab-删除单元格数组中的零行
- 5
查找和删除单元格值为“＃N / A”的行
- 6
如果单元格SQL Server中的字母删除行
- 7
用某些值的单元格删除行
- 8
基于多个单元格值删除行
- 9
删除多行单元格中的第一行
- 10
跳过/删除具有空单元格的行
- 11
基于活动单元格删除行
- 12
根据单元格的内容删除行（动态量）
- 13
根据特定列中的单元格值删除行
- 14
Python-如何根据单元格从CSV删除重复的单元格/行
- 15
根据单元格数组值从矩阵中删除行
- 16
excel宏-如何根据单元格值删除行
- 17
无法删除SearchResultsTableView单元格后面的行
- 18
简单从单元格中删除行？
- 19
从Excel删除行，其中列单元格为空
- 20
OpenOffice：根据单元格值删除行
- 21
如何从某些索引删除数据行单元格？
- 22
彩色行，直到单元格的总和等于某个值
- 23
根据单元格值删除行
- 24
删除行，但在Excel中保留预期的单元格
- 25
根据单元格值从 Pandas DataFrame 中删除行
- 26
如果合并单元格为空，则删除行
- 27
从克隆表行中添加和删除单元格
- 28
根据单元格内的值删除行，优化
- 29
根据单元格值添加/删除行
我来说两句