VBA Excel, сравни строки из ячеек - PullRequest
0 голосов
/ 17 мая 2018

У меня проблема с моим приложением VBA.На ssheet1 у меня есть имена в формате Curry, Steph, и у каждого имени есть идентификатор.В changeNames у меня есть те же имена, но в другом формате, который снова Steph Curry с необязательным id, который совпадает с Curry, Steph.Как я могу сделать имена, которые я ввожу, такие как Curry, Steph, чтобы изменить их на другой тип Steph Curry и быть с тем же идентификатором.Также, когда я делаю метод removeDuplicates, он удаляет цифру из идентификатора, но я хочу удалить строку.Заранее спасибо!

 Sub GenerateNames()

 Dim ssheet1 As Worksheet
 Dim rngen As Worksheet
 Dim rnsheet As Worksheet
 Dim changedNames As Worksheet

 Set ssheet1 = ThisWorkbook.Sheets("Sheet1")
 Set rngen = ThisWorkbook.Sheets("RnGen")
 Set rnsheet = ThisWorkbook.Sheets("RandomNames")
 Set changedNames = ThisWorkbook.Sheets("ChangedNames")

 rngen.Range("A3:A70").Copy rnsheet.Range("A3:A70")
 ssheet1.Range("B3:B70").Copy rnsheet.Range("B3:B70")

  For b = 1 To 70
        For c = b + 1 To 70
            If Cells(b, 2).Value = Cells(c, 2).Value Then
                Cells.RemoveDuplicates

            End If
        Next c
    Next b
End Sub

1 Ответ

0 голосов
/ 18 мая 2018

Вы можете попробовать что-то вроде этого:

Не тестировалось:

  For b = 70 To 1 step (-1)
        For c = 70 to b + 1 step (-1)
            If Cells(b, 2).Value = Cells(c, 2).Value Then
                Cells(c,2).row.delete
            End If
        Next c
    Next b
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...