请教一个VBA问题

谢谢zsh先生
有一点，我可能没有表达清楚。我要的C列值是按照它们在A列出现的先后顺序排列起来的，中间不出现空格。请不要用先找出，再排序的办法�

7 回复：请教一个VBA问题 
　 O_O有吗？？ 
……………… 
 要求是不在B列的项目

经过努力，改成这样。还请吧主及ZSH二位继续指教。
Sub test()
Columns(3).ClearContents
Set a = Range("a1:a" & Range("a1").End(xlDown))
Set b = Range("b1:b" & Range("b1").End(xlDown))
For i = 1 To a.Count
If WorksheetFunction.CountIf(b, a(i)) = 0 Then
Cells(i, 3) = a(i)
End If
Next
Range("C1:C" & a.Count).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub