VBA代码，用于找出某个范围内的最大值，并将1添加到另一个单元格中的值

你可能会觉得这个问题有点奇怪，但我真的需要这个作为我的计算工作表

首先，我将发布我的要求，然后根据要求，我将分享我的VBA代码。然而，它的建筑很差

我需要一个VBA代码，它将在一个范围（I11到I21）内找到最大值，取这个值，我必须在另一个单元格“G2”中添加1（+1）

---

请帮我弄一个密码。非常感谢您的帮助。

这里是一个简单的单线解决方案：

Public Sub TestMe()
    Range("G2") =  WorksheetFunction.Max(Range("I11:I21")) + 1
End Sub

或

---

取决于您到底想做什么。

这里有一个简单的单线解决方案：

Public Sub TestMe()
    Range("G2") =  WorksheetFunction.Max(Range("I11:I21")) + 1
End Sub

或

---

取决于你到底想做什么。

在同事的帮助下，我刚刚绘制了几乎一页的代码，从网上搜索到的一些代码也用到了我的一些知识。它太大了，不能贴在这里。 但是，通过上面的代码，我添加了IF功能，现在它的工作绝对完美。谢谢你帮我

Public Sub TestMe()
If Range("G2") > WorksheetFunction.Max(Range("I11:I21")) Then
Range("G2") = WorksheetFunction.Max(Range("I11:I21")) + 1
End Sub

---

我只是在同事的帮助下绘制了几乎一页的代码，一些从网上搜索到的代码也用到了我的一些知识。它太大了，不能贴在这里。 但是，通过上面的代码，我添加了IF功能，现在它的工作绝对完美。谢谢你帮我

Public Sub TestMe()
If Range("G2") > WorksheetFunction.Max(Range("I11:I21")) Then
Range("G2") = WorksheetFunction.Max(Range("I11:I21")) + 1
End Sub

---

你能举个例子吗？a最好先问一下你的问题，然后再问。您应该至少包括您遇到问题的代码的大纲（但最好是a），然后我们可以尝试帮助解决特定问题。你也应该阅读。你能发布一个示例表吗？a最好先问一下你的问题，然后再问。您应该至少包括您遇到问题的代码的大纲（但最好是a），然后我们可以尝试帮助解决特定问题。你也应该读一读。嗨，维蒂亚塔，非常感谢你的快速反应。它工作得非常好，符合我的要求。我还需要这个代码的额外帮助，以便将来使用它。我希望在这个vba代码中有一个IF语句。如果最大值不大于范围G2，则应触发上述宏。有可能吗？@Sarathkumar-不客气。一般来说，如果您总是在问题中共享VBA代码，则效果更好。你认为它不好并不重要。你可以选择接受我的答案。我只是在同事的帮助下绘制了几乎一页的代码，一些从网上搜索到的代码也使用了我的一些知识。它太大了，不能贴在这里。但是，通过上面的代码，我添加了IF功能，现在它的工作绝对完美。谢谢你帮我。公共子TestMe（）如果范围（“G2”）>WorksheetFunction.Max（范围（“I11:I21”）），则范围（“G2”）=WorksheetFunction.Max（范围（“I11:I21”）+1结束Sub@Sarathkumar-竖起大拇指！：）嗨，维蒂亚塔，又是一个问题。我不太擅长使用VBA代码。但是你能不能告诉我。。为了在G2中输入值后在工作表中简单地运行此代码，在哪种情况下我可以将其放入？嗨，Vityta，非常感谢您的快速响应。它工作得非常好，符合我的要求。我还需要这个代码的额外帮助，以便将来使用它。我希望在这个vba代码中有一个IF语句。如果最大值不大于范围G2，则应触发上述宏。有可能吗？@Sarathkumar-不客气。一般来说，如果您总是在问题中共享VBA代码，则效果更好。你认为它不好并不重要。你可以选择接受我的答案。我只是在同事的帮助下绘制了几乎一页的代码，一些从网上搜索到的代码也使用了我的一些知识。它太大了，不能贴在这里。但是，通过上面的代码，我添加了IF功能，现在它的工作绝对完美。谢谢你帮我。公共子TestMe（）如果范围（“G2”）>WorksheetFunction.Max（范围（“I11:I21”）），则范围（“G2”）=WorksheetFunction.Max（范围（“I11:I21”）+1结束Sub@Sarathkumar-竖起大拇指！：）嗨，维蒂亚塔，又是一个问题。我不太擅长使用VBA代码。但是你能不能告诉我。。为了在G2中输入值后在工作表中简单地运行此代码，在哪种情况下我可以将其放入？