用VBA再改不用goto语句+哪里改错了

laoau123 · 发表于 2016-8-31 22:17

zjdh · 发表于 2016-9-1 09:32

Sub 不用真假改goto语句()
c = 0
For i = 10 To 13
      For j = 11 To 16
         For k = 20 To 25
            If Cells(i, j) = Cells(i, k) Then c = c + 1: Exit For
         Next k
         If k <= 25 Then Exit For
      Next j
Next i
[r15] = c
End Sub

laoau123 · 发表于 2016-9-1 09:39

zjdh 发表于 2016-9-1 09:32
Sub 不用真假改goto语句()
c = 0
For i = 10 To 13

你这样改完全错误，这个计算最大连续，你这个不是计算连续

删除第12行右边 7和25 正确最大连续为2，你改了之后不是计算连续，错误结果变为3

zjdh · 发表于 2016-9-1 09:53

本帖最后由 zjdh 于 2016-9-1 10:00 编辑

没懂你的意思

zjdh · 发表于 2016-9-1 09:59

本帖最后由 zjdh 于 2016-9-1 10:13 编辑

laoau123 发表于 2016-9-1 09:39
你这样改完全错误，这个计算最大连续，你这个不是计算连续

删除第12行右边 7和25 正确最大连 ...

你没说是要统计连续的，我以为有多少个了。

laoau123 · 发表于 2016-9-1 10:00

zjdh 发表于 2016-9-1 09:53
你还可用Find方法
Sub 用find方法()
For I = 10 To 13

在原来基础改不用goto, find有何关系

zjdh · 发表于 2016-9-1 10:16

Sub 不用真假改goto语句()
c = 0
cc = 0
For i = 10 To 13
      For j = 11 To 16
         For k = 20 To 25
            If Cells(i, j) = Cells(i, k) Then c = c + 1: Exit For
         Next k
         If k <= 25 Then Exit For
      Next j
      If j > 16 Then
         If c > cc Then cc = c
         c = 0
      End If
100:
Next i
If c > cc Then cc = c
[r15] = cc
End Sub

zjdh · 发表于 2016-9-1 10:19

本帖最后由 zjdh 于 2016-9-1 10:28 编辑

laoau123 发表于 2016-9-1 10:00
在原来基础改不用goto, find有何关系

不是没有GOTO了吗？不过那个过程结果不是你的连续。

pengyx · 发表于 2016-9-1 10:49

把c=c+1,改成c=1就什么都不要了

ppp710715 · 发表于 2016-9-1 11:50

为什么不能用Goto?

		自动登录	找回密码
密码			注册

[VBA] 用VBA再改不用goto语句+哪里改错了

本帖子中包含更多资源