关于#开发语言#的问题：VBA 可以将A列的排序变成D列奇数、E列偶数这样的排序吗

可以将A列的排序变成D列奇数、E列偶数这样的排序吗？求修改宏。
Private Sub CommandButton1_Click()
With ActiveWorkbook.Sheets(1)
For i = 2 To 11
.Range("a" & i).Value = "=LEFT(C" & i & ",SEARCH(" & """" & "." & """" & ",C" & i & ")-1)"
Next
End With
End Sub

只要把A列的值拷贝的D列，E列吗？循环判断一下奇偶性就可以了。