软件:EXCEL
版本:97-2003
Private Sub Worksheet_Calculate()
For Each E In Worksheets("Sheet1").Range("E1:E100")
If E.Value = 100 Then
Cells(E.Row, E.Column + 1).Value = "OK"
End If
Next E
电脑显示编译错误:For Each 控件变量必须是 Variant 或 Object
不知道怎么修正错误?

测试原文内的宏码并无错误要看原po是宣告变量E的类型了以原文来看宣告为object、variant、range或类型省略，测试上都是可行的

请问如果要宣告是 Dim C As Variant 这样吗?

宣告方式如原po上面回文所述宣告类型再以实际资料所准

Worksheet_Calculate()整个工作表有计算就会执行,能不能只针对E行有变动再执行?

那用worksheet_change针对e栏内运算到的储存格