Visual Basic Excel - макрос для удаления строки

Question

У меня есть 2 листа (с номерами телефонов) в моем документе. если номер существует в листе1, я хочу удалить строку из листа 2.

Я почти там (это первый раз, когда я использую VBA). Но может ли кто-нибудь помочь мне с последней частью.

Sub CleanList() 

    Dim stopList As Range, cell1 As Range 

    Set stopList = Sheet1.Range("A1:A10000") 

    For Each cell1 In stopList 
     Dim fullList As Range, cell2 As Range 
     Set fullList = Sheet2.Range("A2:A10000") 

     For Each cell2 In fullList 
      If NumberFix(cell1.Value) = NumberFix(cell2.Value) Then 
       cell2.EntireRow.Delete 
      End If 
     Next cell2 
    Next cell1 

End Sub 

Private Function NumberFix(ByVal nr As String) As String 

    If Not nr.StartsWith("46") Then 
     nr = "46" + nr 
    End If 

    NumberFix = nr 

End Function 

Answer 1

Первый путь вы используете nr.StartsWith более VB.NET-эск. Функция ваш ищет в VBA (вероятно, не VB-скрипт кстати) является

Dim firstTwoChar As String 
firstTwoChar = Mid(nr, 1, 2) 

If Not firstTwoChar = "46" Then 
    nr = "46" + nr 
End If 

NumberFix = nr 

Но даже с этим я бы сказал, что вы не должны использовать for...each итератор, если вы удаляете строки. Проблема в том, что когда вы удаляете строку 5, тогда строка 6 становится строкой 5, а следующая строка, к которой вы переходите, является строкой «6», но на самом деле является строкой 7 в исходном списке, эффективно пропуская исходный ряд 6.

Вам необходимо двигаться в обратном направлении. Что-то вроде

Sub CleanList() 

    Dim stopList As Range, cell1 As Range 

    Set stopList = Sheet1.Range("A1:A10000") 

    For Each cell1 In stopList 
     Dim fullList As Range, cell2 As Range 

     Dim firstRowSheet2 As Integer, lastRowSheet2 As Integer, r As Integer 
     Dim sheet1sNumber As String 
     sheet1sNumber = NumberFix(cell1.Value) 'you really only need to do this once 
               so you may as well bring it out of 
               the for loop and store the value and 
               not recalculate each time 
     Dim cell2 As Range 
     For r = firstRowSheet2 To lastRowSheet2 Step -1 
         '"Step -1" allows you to move backwards through the loop 
      With Sheet2 
       Set cell2 = .Cells(r, 1) 
       If sheet1sNumber = NumberFix(cell2.Value) Then 
         cell2.EntireRow.Delete 
        End If 
      End With 

     Next r 

    Next cell1 

End Sub 

Но, конечно, @ExternalUse прав. Существует множество встроенных опций для удаления дубликатов из списка. Если вы не пытаетесь изучить VBA, это будет хорошим упражнением.