如何用vba来写--保留单元格的公式?

Question

有一列数，要产生性别

对于a1,b1单元格写公式 =IF(MOD(MID(A1,17,1),2),"man","women")
然后下拉，可以形成

如何用vba来完成？
Sub auto()
Sheet1.Range("a1:a3").Formula = "=IF(MOD(MID(a1,17,1),2),'man','women')"
End Sub

代码产生不了期望的结果。

Answer 1

Sub auto()
Sheet1.Range("c1:c3").Formula = "=IF(MOD(MID(a1,17,1),2)," & Chr(34) & "man" & Chr(34) & "," & Chr(34) & "women" & Chr(34) & ")"
End Sub