循环输入但跳过特定值

cdyiyezhiqiu · 发表于 2024-11-1 19:54

本帖最后由 cdyiyezhiqiu 于 2024-11-1 20:51 编辑

各位老师，请帮忙指导，谢谢

Range("h1").Select
      ActiveCell.FormulaR1C1 = "1"
      For h1 = 1 To 1000
      Range("h1") = Range("h1") + 1
      VBA.DoEvents
   Next

在h1 中输入变量，但我希望输入的时候跳过能被7整除的值，比如6过后下一个则输入8，13输入后跳过14 输入15

quqiyuan · 发表于 2024-11-1 20:26

仅供参考，，

quqiyuan · 发表于 2024-11-1 20:27

代码如下。。。。
Sub test()
Range("h1").Select
ActiveCell.FormulaR1C1 = "1"
For h1 = 1 To 1000
If (Range("h1") + 1) Mod 7 Then Range("h1") = Range("h1") + 1 Else Range("h1") = Range("h1") + 2
VBA.DoEvents
Next
End Sub

cdyiyezhiqiu · 发表于 2024-11-1 20:51

quqiyuan 发表于 2024-11-1 20:27
代码如下。。。。
Sub test()
Range("h1").Select

问题已解决，非常感谢quqiyuan老师

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

[已解决] 循环输入但跳过特定值