时间戳

首页 > 解决方案 > VBA Excel，比较单元格中的字符串

vba - VBA Excel，比较单元格中的字符串

问题描述

我的 VBA 应用程序有问题。在 ssheet1 中，我有 Curry,Steph 格式的名称，并且每个名称都有一个 id。在 changedNames 我有相同的名字，但其他格式是 Steph Curry 再次带有可选的 ID，它与 Curry,Steph 相同。我怎样才能使我输入的名字像 Curry,Steph 以更改为其他类型的 Steph Curry 并具有相同的 ID。此外，当我执行 removeDuplicates 方法时，它会从 id 中删除一个数字，但我希望它删除该行。提前致谢！

 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

标签： vbaexcelrange

解决方案

你可以尝试这样的事情：

未测试：

  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

推荐阅读