VBA帮助。 简单的代码帮助。 使活动单元格的值> 100的第一个单元格

我创build了一个简单的Excel文件，1列200行。 每个单元格包含一个整数值。

我试图创build一个VBA代码，将自动使第一个单元格的整数值超过100活动单元格。

这是我想出的代码。 我的问题是，它什么也没有:(

Sub test1() Dim trial As Range Dim cell As Range Set trial = Range("A1:A100") For Each cell In trial If cell > 100 Then End If Next cell End Sub 

Answer 1

尝试这个。

在使用Range时总是使用.Value ，而您想要使用Cell Value。 正如在@gizlmeier下面的评论中提到的那样。 当你在稍后的阶段开始编程以实现更清晰的编码时，很好的方法是让小事情得到解决。

你也会运行，然后停止不改变任何东西，但它确实工作。 所以你只需要将Activate添加到If语句中，然后决定结束For循环或End Sub

  Sub test1() Dim trial As Range Dim cell As Range Set trial = Range("A1:A100") For Each cell In trial If cell > 100 Then cell.Activate 'Exit For will exit the For Loop Exit For 'End will stop the code from running End End If Next cell End Sub 

Answer 2

没有循环：

 Dim rng1 As Range Dim lngPos As Long Set rng1 = [a1:a100] lngPos = Evaluate("=MIN(IF(" & rng1.Address & ">100,ROW(" & rng1.Address & "),1000))") If lngPos < rng1.cells.count Then Application.Goto rng1.Cells(lngPos)