Excel 使用VBA将整数转换为文本

我正在尝试编写一个Vba，它将把一列中的数字转换成另一列中的文本

例如：

4将是“每季度”， 1个为“每年”，12个为“每月”

这是我写的，但只有最后一行有效

Sub Convert ()

    Range("J6:J1447").Formula = "If(I6:I299=1, (""Annually""), """")"

    Range("J6:J1447").Formula = "=If(I6:I299=2, (""Semi-Annually""), """")"

    Range("J6:J1447").Formula = "=If(I6:I299=4, (""Quarterly""), """")"

    Range("J6:J1447").Formula = "=If(I6:I299=12, (""Monthly""), """")"

End Sub

---

您还可以选择最后一行，以不限制您的范围

只有最后一行“起作用”，因为每一行都会覆盖上一行。写一个能满足你要求的公式，然后写在表格上。对不起，我正在我的手机上发布这个。我会尝试清理一下。这里有另一个公式选项：

Range（“J6:J1447”）。FormulaR1C1=“=选择（RC[-1]，“每年”、“半年”、“每季度”、“每季度”、“每季度”、“每季度”、“每季度”、“每季度”、“每季度”、“每季度”、“每周一次”）

天哪，我觉得自己像个白痴。谢谢，这很有效。

Range("J6:J1447").formular1c1-"=if(rc[-1]=1,""ANNUALLY"",if(rc[-1]=2,""SEMI-ANNUALLY"",if(rc[-1]=4,""QUARTERLY"",if(rc[-1]=12,""MONTHLY"",""""))))"