Question

让我们从一个示例来看一下我的工作簿中的某些值是什么样的：

       A        B         C
1     14-001   2014G001
2     14-002   2014G002
3     14-001   2014I002

我想创建一个脚本，将B列中的值复制到C，如果A列中的单元格值相同，则组合这些值的后4个字符。运行脚本后，它应该如下所示：

       A        B         C
1     14-001   2014G001   G001/I001
2     14-002   2014G002   G002
3     14-001   2014I001

我从来没有找过重复项，我在网上找不到类似的问题。有人可以帮助我吗？

谢谢！

Answer 1

我实际上已经自己解决了:)现在我必须找出当有3个相同的时候如何改变它...有人吗？

Sub test()

Dim toAdd As Boolean, uniqueNumbers As Integer, i As Integer, j As Integer

Dim A$, B$

Cells(1, 4).Value = Cells(1, 1).Value
Cells(1, 5).Value = Cells(1, 2).Value

uniqueNumbers = 1
toAdd = True

For i = 2 To 30
For j = 1 To uniqueNumbers
If Cells(i, 1).Value = Cells(j, 4).Value Then
    toAdd = False

    A = Right(Cells(i, 2), 4)
    B = Right(Cells(j, 2), 4)
    Cells(j, 5).Value = A & " / " & B


End If
Next j

If toAdd = True Then
Cells(uniqueNumbers + 1, 4).Value = Cells(i, 1).Value
Cells(uniqueNumbers + 1, 5).Value = Cells(i, 2).Value
uniqueNumbers = uniqueNumbers + 1
End If

toAdd = True

Next i

End Sub

找到重复项并将部分单元格值组合在一起

1 个答案: