采用cc - Int(cc) = 0方法，不是目标需求。

ning84 · 发表于 2023-7-25 11:23

目标需求，2到20，重复得到1,2,3如图示。

Sub ll()
Dim ii, aa, bb, cc
For ii = 2 To 20
aa = ii / 2
bb = ii / 3
cc = ii / 4
'Debug.Print aa, bb, cc,
If aa - Int(aa) = 0 Then
Debug.Print ii, 1
ElseIf bb - Int(bb) = 0 Then
Debug.Print ii, 2
ElseIf cc - Int(cc) = 0 Then
Debug.Print ii, 3
End If
Next ii
End Sub

复制代码

运行结果不是目标需求。

2          1
3          2
4          1
6          1
8          1
9          2
10          1
12          1
14          1
15          2
16          1
18          1
20          1

半百 · 发表于 2023-7-25 11:41

吴中泉 · 发表于 2023-7-25 11:42

如图

ning84 · 发表于 2023-7-25 20:02

半百发表于 2023-7-25 11:41

谢谢解答

Sub ll()
Dim oNum, oNum1
Dim Rr, Cc
oNum = 6
oNum1 = oNum - 2
Cc = 3
For oNum = 3 To 10
Rr = 1
Sheet1.Cells(Rr, Cc) = oNum
oNum1 = oNum - 2
Rr = Rr + 2
For ii = 2 To 20
Sheet1.Cells(Rr, Cc) = (ii + oNum + oNum1) Mod oNum + 1
Rr = Rr + 1
Sheet1.Cells(Rr, 1) = ii
Next ii
Cc = Cc + 1
Next oNum
End Sub

复制代码

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

[求助] 采用cc - Int(cc) = 0方法，不是目标需求。

评分