请教一个VBA问题

举个简单例子吧:
例如你要从A1:A10中找出B1:B10中没有的数据,然后写到C1:C10中.

set a = range("A1:A10") '赋变量a为区域A1:A10
set b = range("B1:B10") '同上
for i = 1 to 10 '循环10次,亦可用变量代替,例如
　　　　　　　　　' a.rows.count ,A的决行数.
 '用EXCEL自身的COUNTIF函数统计值在b区域中是否存在.
if application.countif(b,a.cells(i)) < 1 then 
　 cells(i,3)=a.cells(i) '<1即不存在时在C列对应的行中写入值
 end if
next i

上例的题意有点更点,代码的作用是:从A1:A10中,找出B1:B10中没有的数据,并写入C列中.

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

不知道什么时候ZSH_000才会改掉毛糙的习惯*~_~*
Sub TEXT()
Set a = Range("A1:A10")
Set b = Range("B1:B10")
For i = 1 To b.Count
 If WorksheetFunction.CountIf(a, b.Cells(i)) = 1 Then
 Cells(WorksheetFunction.Match(b.Cells(i), a, 0), 3) = b.Cells(i)
 End If
Next
Range("C1:C" & b.Count).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

吧主不要说ZSH了，你自己也弄反了�

O_O有吗？？
……………�

(*^O^*)不好意思,江山易改,本性难移.让大家见笑了.

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

(*^-^*)改了一点.

Sub test() 
Columns(3).ClearContents 
Set a = Range("a1:a" & Range("a1").End(xlDown).Row) 
Set b = Range("b1:b" & Range("b1").End(xlDown).Row) 
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