使用 VBA 将整数转换为文本

Question

我正在尝试编写一个 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

Answer 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"",""""))))"

您也可以选择最后一行来不限制自己的范围。

使用 VBA 将整数转换为文本

Using VBA to Convert Integers into Text

excel

vba

range

comparison