Question

我正在尝试创建一个查找＆＃34; Total net ＆＃34;列中的＆＃34;程序运行网＆＃34; 。一旦找到，宏将比较这两个单元格的行及其值匹配＆＃34;总计Net＆＃34; 被删除。

到目前为止，这是我的代码......

Sub DeletingEmptyPages()
Dim WS As Worksheet
For Each WS In Sheets

Dim Mystring As String
Dim MystringII As String

MystringII = "Total Net"
Mystring = "Program Operating Net"


  Dim n As Long
  Dim nlast As Long
  Dim rw As Range
  Set rw = ActiveWorkbook.ActiveSheet.UsedRange.Rows
  nlast = rw.count
  For n = nlast To 9 Step -1
      If (Column(c).Value = MystringII And Column(c).Value = Mystring) Then
      rw.Rows(n).Delete

      End If
      Next n
      Next WS
      End Sub

Answer 1

我认为当列＆＃34; C＆＃34;中存在两个字符串时，您想要比较列＆＃34; A＆＃34;和＆＃34; B＆＃34;两行都相等。如果需要在匹配的行上比较更多列，则可以使用以下代码并轻松调整它：

Sub Delete_DuplicateTotalNet()

    Dim WS As Worksheet, row1 As Long, row2 As Long
    For Each WS In Sheets
        With WS
            On Error Resume Next
            row1 = WorksheetFunction.Match("Total Net", .Columns("C"), 0)
            row2 = WorksheetFunction.Match("Program Operating Net", .Columns("C"), 0)
            If Err.Number <> 0 Then GoTo NextWS
            If .Range("A" & row1).Value = .Range("A" & row2).Value And _
               .Range("B" & row1).Value = .Range("B" & row2).Value Then
               .Rows(row1).Delete
            End If
        End With
NextWS:
     Err.Clear
     Next WS
End Sub

Answer 2

这就是它的样子，但会导致运行时错误

2000-XX-XX

VBA：如果值匹配，则删除一行

2 个答案: