for 循环排除指定行

闲闲zzm · 发表于 2023-12-27 23:00

本帖最后由闲闲zzm 于 2023-12-27 23:17 编辑

k=行号

for i= 1 to 100
-----------------------------
next

在这个语句中，怎么让i不对第K行进行循环捏？

效果：
for i= 1 to k-1 加上 k+1 to 100
--------------------------
next

liulang0808 · 发表于 2023-12-28 07:54

增加一行if判断、
if i<>k then
.......
endif

嘞马踏 · 发表于 2023-12-28 09:22

刚开始学VBA,借助版主的回复，写了一部分代码，如下
Sub NextRow()
Dim k，i, EndRow
EndRow  = cells(rows.count, "A").end(xlup).row '假设第一行为基准计算最大行，
k = 1 ' 设置要跳过行号，这里假设是1
For i = 1 To EndRow
      If i <> k Then
         ' 写入你需要的代码
      End If
Next
End Sub

yjh_27 · 发表于 2023-12-28 11:01

在循体第一行:If i = k Then ⅰ=i+1

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

[讨论] for 循环排除指定行