VBA编程求助

ilymyself521

如图中所述，怎么能够实现，感谢！

感谢二楼提醒，使用字典已经实现了，下面是我自己编写的程序，虽然程序不咋地，但是功能没问题，还有待完善！
D列可以随便排序，在A列新增的项通过按按钮可以拷贝到D列的最底端


Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, d As Object, arr1, arr2, arr3, rng As Range
Set d = CreateObject("scripting.dictionary")
i = Range("A1").CurrentRegion.Rows.Count
j = Range("D1").CurrentRegion.Rows.Count

arr1 = Range("A1:A" & i)
arr2 = Range("D1:D" & j)

For k = 1 To j
d(arr2(k, 1)) = arr2(k, 1)
Next
For l = 1 To i
If Not d.exists(arr1(l, 1)) Then d(arr1(l, 1)) = arr1(l, 1)
Next
m = d.Count
arr3 = (d.keys)
Range("d1").Resize(m) = Application.Transpose(arr3)
End Sub

zmj9151

先取D列的值得到字典，遍历A列，如果字典中无则添加到D列，刷新字典。新增数据时同样在字典检查添加，大概就是这样

p4607596

直接D列等于A列,不就完事了,,<<我想检查A列中的数据在D列中是否存在，如果存在则忽略，不存在的话在D列的末尾增加该项>>

ilymyself521

p4607596 发表于 2018-11-18 17:40
直接D列等于A列,不就完事了,,

实际使用中，我并不想用等于的方式，这样两列会完全关联，不能排序的，B列会有排序的过程的，而且是不在同一表中，上面我只是举个例子而已，实际现在我在A列新建一个项目后，然后我还得在B列手动添加进去，因为两列的行数并不一致，序列也不一致，所以不能简单用等于的方式解决，多谢！

ilymyself521

zmj9151 发表于 2018-11-18 12:52
先取D列的值得到字典，遍历A列，如果字典中无则添加到D列，刷新字典。新增数据时同样在字典检查添加，大概 ...

非常感谢，刚看了下字典怎么用，感觉有门，自己研究研究，多谢，多谢！

ilymyself521

zmj9151 发表于 2018-11-18 12:52
先取D列的值得到字典，遍历A列，如果字典中无则添加到D列，刷新字典。新增数据时同样在字典检查添加，大概 ...

多谢多谢，初学，虽然我的代码不咋地，但是能够实现了，非常感谢所给的提示！

Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, d As Object, arr1, arr2, arr3, rng As Range
Set d = CreateObject("scripting.dictionary")
i = Range("A1").CurrentRegion.Rows.Count
j = Range("D1").CurrentRegion.Rows.Count

arr1 = Range("A1:A" & i)
arr2 = Range("D1:D" & j)

For k = 1 To j
d(arr2(k, 1)) = arr2(k, 1)
Next
For l = 1 To i
If Not d.exists(arr1(l, 1)) Then d(arr1(l, 1)) = arr1(l, 1)
Next
m = d.Count
arr3 = (d.keys)
Range("d1").Resize(m) = Application.Transpose(arr3)
End Sub

zmj9151

不错不错，多写几次就越发熟悉了