Tag: 删除行

Excel VBA根据date删除行: 我有一个关于这个线程中的代码的问题 Excel VBA：删除旧logging 在这个线程中，是这个代码 Sub ClearOldData() Application.ScreenUpdating = False Dimi As Long With Sheets("Data") For i = 2 To LastRow Step -1 If Int(Date – Cells(i, "F").Value) > 179 Then .Rows(i).Delete End If Next i End With Application.ScreenUpdating = True End Sub 我遇到的问题是，当我运行此代码时，我收到以下错误：编译错误：语句无效外部types块在第一次查看时，Dim看起来是不正确的，因为它被列为Dimi，我不能使用类似的东西findVBA的引用。我改变它昏暗，它仍然给出了错误。这个代码似乎在我所研究的所有方面都是正确的，但是我正在摸索着打嗝的地方。任何人都有一个想法，在哪里横向？谢谢

使用C＃删除excel中的空行: 我想在程序执行结束时删除空行。详细我插入一些结果后计算使用C＃在预定义的Excel表单。最后，我需要以编程方式删除/删除空行。有没有人能提出解决scheme？我的代码很小，所以我无法在这里包括。为了您的理解，我给出了一些excel的input和输出视图。在下面的输出Excel中，具有空行的行D和E我想在不提及范围的情况下以编程方式删除。 inputExcel /预定义的Excel文件 A 1 2 3 4 B C D E 输出Excel A 1 2 3 4 B ABc cde nAC 123 C cdf fed x2 123 D E

查找并删除单元格值为“＃N / A”的行: 我有一个用来分析数据集的excel文档，我带入的每个数据资源都有不同数量的数据。我试图写一个macros，我分配给一个button，可以识别删除行基于单元格的值。这是行不通的。我究竟做错了什么？ Sub Button2_Click() [vb] 'This will find how many rows there are With ActiveSheet lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row MsgBox lastRow End With Sub sbDelete_Rows_Based_On_Criteria() Dim lRow As Long Dim iCntr As Long lRow = lastRow For iCntr = lRow To 1 Step -1 'Replaces XX with the variable you want to delete […]

如何使用excel VBA删除第一列中包含特定代码的行？: 我每周运行一次报告，我必须采取的一个步骤是删除一行，其中包含一个特定的短语，在我的情况“CFS-GHOST-DJKT”，在列A.行阅读通过7开始，并有一个variables结束。我已经在网上查找，根据我发现以下代码应该工作，但我得到和错误，它不喜欢与细胞（Lrow，“A”）行我相信，就删除部分而言，它的方式是好的，但问题在于select方面。 Firstrow = 7 Lastrow = Cells(Rows.Count, "A").End(xlUp).Row With Cells(Lrow, "A") If Not IsError(.Value) Then If .Value = "CFS-GHOST-DJKT" Then .EntireRow.Delete End If End With

删除单元格而不移动它们: 我有vbamacros删除select的单元格。它删除后自动移动单元格。我不想让单元格向上移动，因为我在单元格下面有一个图表，如果它们移动了，所有东西都会受到干扰。这是我用来删除单元格的代码 ActiveSheet.UsedRange.Select ActiveSheet.Range("C2:H8").Select Selection.Delete 让我知道如何删除它们，而不移动。

Excel删除命名范围内的行: 我有一个受保护的单元格的工作表。有一个“添加行”button，我需要一个“删除行”button。但是，我只希望用户能够删除该行，如果它在一个命名的范围内。 ActiveSheet.Unprotect密码：=“密码” 如果Range（“ProjectList”）中的“ selected row ”然后 Row.EntireRow.Delete Shift:=xlUp 万一 ActiveSheet.Protect密码：=“密码”

删除不包含string的行: 我试图search由另一个模块生成的表，并删除不包含string"REPAIR_RTS" 。我已经尝试了几个方法从这个网站，但我得到的types不匹配每次我把search值更改为"REPAIR_RTS" （说CASE的行…）。以下是我最近的尝试。 Public Sub Test() lastRow = Range("D65000").End(xlUp).row For i = lastRow To 2 Step -1 Select Case Cells(i, 4).Value Case "REPAIR_RTS" 'Do nothing Case Else Cells(i, 8).EntireRow.Delete End Select Next i End Sub 我还是VBA的新手，所以我在解决这个问题上遇到了很多困难。我也愿意接受其他方法，因为我在继续进行第一次分析工作时，正尝试学习新的方法。

Excel VBA – 如果单元格是整数，则删除整行: 我一直在尝试使用一些片段来说明如何删除Excel VBA上的整个行，但我不能修改它们以包含“IsNumber”validation。我需要能够select一个活跃的领域，如： Set r = ActiveSheet.Range("A1:C10") 并且，当它逐行（并检查该区域的每个单元格）时，如果单元格上有一个数字，则删除整行。例如： NA NA NA 21 NA 22 NA 44 00 NA NA NA NA NA NA NA 55 NA NA NA 然后macros将删除所有的行，除了第四个是 NA NA NA NA

Excel 2010：VB删除不包含某些标准的行: 我想删除整个行不包含一定的标准这是我现在有： Sub Delete_consultants() Last = Cells(Rows.Count, "H").End(xlUp).Row For i = Last To 1 Step -1 If (Cells(i, "H").Value) = "Faith Jones" Then Cells(i, "A").EntireRow.Delete End If If (Cells(i, "H").Value) = "Cathy Robbs" Then Cells(i, "A").EntireRow.Delete End If If (Cells(i, "H").Value) = "Nick farmer" Then Cells(i, "A").EntireRow.Delete End If If (Cells(i, "H").Value) = "Jane Till" Then […]

简单循环通过最后一行定义的指定范围: 我正在尝试一个相对简单的代码不起作用。我试图循环遍历指定的范围，并删除第一列的单元格不等于另一个特定单元格的每一行。循环应该遍历以单元格“A11”开始的区域，并在LR处结束，反之亦然。我已经尝试了最后一行以及for循环的许多不同的变体。我不明白为什么像这样简单的代码将无法正常工作。代码如下： Dim sht5 As Worksheet Dim LR As Long Set sht5 = ThisWorkbook.Sheets("Summary") LR = Cells(Rows.Count, 1).End(xlUp).Row With sht5 For i = LR To Range("A11") step -1 If i <> Range("B9").Value Then Rows(i).Delete shift:=xlUp End If Next i End With