请高手帮我看一下这段程序为啥错误了。

王永峰

Sub test()
Dim n As Integer, m As Integer
For n = 1 To 18, m= 1to 3
Range("a1:c18").Select
If Cells(n, m) > 0 Then Cells(n, m) = "正数"
Next n, m
End Sub

zyouong

Sub test()
Dim n As Integer, m As Integer
For n = 1 To 18
For m = 1 To 3
Range("a1:c18").Select
If Cells(n, m) > 0 Then Cells(n, m) = "正数"
Next m
Next n
End Sub

ws278106483

Sub test()
Dim n As Integer, m As Integer
For n = 1 To 18, m= 1to 3
Range("a1:c18").Select
If Cells(n, m) > 0 Then Cells(n, m) = "正数"
Next n, m
End Sub
可以这样写。。
Sub test()
     Dim rg As Range
         For Each rg In Range("a1:c18")
           If rg.Value > 0 Then
              rg = "正数"
           End If
   
        Next rg
        
   
   
   
End Sub

ws278106483

你可以试试。。。你那样循环太多了。

sliang28

for 不可以循环两个变量，只能一个一个写

vonnour

代码逻辑很混乱啊