新手求助！为什么代码错了？（把符合条件的单元格复制粘贴到另一处）

小豹子yzj

本人新手，刚刚接触VBA，自己编了程序，出错。大概是这样的：C1：C10里面有若干内容，目的是挑选出里面含有“人大代表”的单元格，复制粘贴到对应的D列，如C1为“国家级人大代表”，就复制到D1，C3为“县人大代表”就复制到D3
代码如下，但是不成功，仅有C1复制到了D1，但是后面的C2里面也有人大代表，没有复制到D2。
求助大家！谢谢！！！


Sub test2()
'选择c1:c10符合条件的单元格，复制粘贴到对应的d列
Dim i As Integer
    For i = 1 To 10 Step 10
        If Range("c" & CStr(i)) Like "*人大代表*" Then
            Range("c" & CStr(i)).Select
            Selection.Copy
            Range("d" & CStr(i)).Select
            ActiveSheet.Paste
        Else
            Range("d" & CStr(i)).Value = ""
        End If
    Next   
End Sub

小豹子yzj

改进版代码，还是错。。
Sub test2()
'选择c1:c10符合条件的单元格，复制粘贴到对应的d列
Dim i As Integer
    For i = 1 To 10 Step 10
        If Range("c" & CStr(i)) Like "*人大代表*" Then
            Cells(CStr(i), "c").Copy Cells(CStr(i), "d")
        End If
    Next
End Sub

小豹子yzj

for语句哪里用错了？

小豹子yzj

已解决，是步长那里粗心了写了10.。。