作者:乔山办公网日期:
返回目录:excel表格制作
Sub test()
Dim r As Range
Dim r1 As String
For Each r In Seet1.Cells
If r.Value = r1 Then
r.Offset(0, 1) = -r.Offset(0, 1)
r.Offset(0, 2) = -r.Offset(0, 2)
END IF '要加这一句
Next r ‘程zd序运行到这个位版置提示“Next没有For”权
End Sub
用 & 号连起来
左边懒得打字了。。。=Application.Average(Range("b" & j & ":b" & i ))
Dim i
For i = 1 To 100
If Range("O" & i) = "" Then ‘不等“”就直知接跳到end if后的代码了道。内
’等于空值要容执行的代码写在这里就行了。
End If
Next