如何用VBA把右边的内容移到，左边列包含右边内容的关键字的行中，

阿法尔二

如何用VBA把右边的内容移到，左边列包含右边内容的关键字的行中

凌空一羽

记录——清除——对齐——写入

约定的童话

小伙子，是这样的吗？

小花鹿

字典                                                                                                               

brianlong

约定的童话 发表于 2018-8-9 10:32
小伙子，是这样的吗？

大侠  咋不把代码亮出来呢

brianlong

假设你的数据是放在AB两列 代码如下
Sub o1()
[b:b].Insert
[a:a].Copy [b:b]
t = Application.CountA([c:c])
For i = 1 To Cells(Rows.Count, 3).End(3).Row
If Cells(i, 3) <> "" Then Cells(i, 3).Copy [b1].End(4).Offset(1)
Next
arr = Range([b1], Cells(Rows.Count, 2).End(3))
Set d = CreateObject("scripting.dictionary")
For Each aa In arr
d(aa) = d(aa) + 1
Next
For i = 1 To Cells(Rows.Count, 2).End(3).Row
If d(Cells(i, 2).Value) = 1 Then Cells(i, 2).Clear
Next
For i = 1 To t
Cells(Rows.Count, 2).End(3).Clear
Next
[c:c].Clear
End Sub