String if-else的VBA脚本

对于G列，我的列如下所示：

G列 完成 完成 进行中 没有开始 完整的

我需要一个If-Else脚本将所有完整值转换为“Y”，否则为“N”。

---

有人能帮我吗？

VBA脚本有三个基本元素需要学习

循环参数开始->结束 在循环内部采取的措施 迭代如何移动到循环中的下一条记录，避免无限循环

Sub MarkComplete()

'Select first cell
Range("G2").Select

'Loop until no more values
While ActiveCell.Value <> ""

    'Print appropriate value
    If ActiveCell.Value = "Complete" Then

        ActiveCell.Value = "Y"

    Else

        ActiveCell.Value = "N"

    End If

    'Move to next cell
    ActiveCell.Offset(1, 0).Select

Wend

End Sub

---

从这里开始：特别是文档。请澄清您的问题好吗？欢迎来到Stack Overflow。你想要脚本还是公式？因为这可以解析为一个公式，比如=IfG1=Complete；YN粘贴在单独的列中，例如H列，然后向下拖动到表的末尾。如果您需要代码，请向我们展示您已有的代码，然后我们可以帮助您解决我不熟悉VBA的问题。所以我没有为此编写任何代码。我需要使用VBA自动化这个过程。如果G列中的行值包含Complete，如何将其更改为Y，否则在所有其他情况下为N。如果您不熟悉VBA，则需要熟悉它。堆栈溢出不是免费的编码服务，也不是教程服务。它旨在帮助程序员编写程序。你想写的东西可以只使用一些基础知识，这些基础知识可以在2到3个小时内通过教程学习。如果你这样做了，但又陷入困境，请编辑此问题以显示你的努力。