VBA循环遍历列中的值并根据值更改下一列

Question

我有一段代码,它接受单元格中的值并根据值设置不同的单元格.这是一个简单的代码,我只是无法弄清楚如何循环它来完成整个列.有人可以指导我如何做到这一点？提前致谢!

这是我的代码:

Dim pH As Single, Program As String
pH = Range("D2").Value

If pH <= 7.8 Then
     Program = "Neutral"
Else
     Program = "Alkaline"

Range("E2").Value = Program

Answer 1

你还不需要VBA

在你的E2中设置公式 '= IIF(D2<=7.8;"Neutral";"Alkaline")'

您可以将其复制到E列以下