这样改的问题在哪里?
Dim idx As Integer = 1
For k As Integer = 0 To Tables("("窗口1_Table2").rows.count -1 Step 3
k.Filter = Tables("窗口1_Table2").filter
Tables("("窗口1_Table2").rows(k)("页号") = idx
If k+1 < Tables("("窗口1_Table2").rows.count Then Tables("("窗口1_Table2").rows(k+1)("页号") = idx
If k+2 < Tables("("窗口1_Table2").rows.count Then Tables("("窗口1_Table2").rows(k+2)("页号") = idx
idx+= 1
Next
[此贴子已经被作者于2020/4/1 18:23:05编辑过]