如何递增循环而不从1重新启动

Question

我正在尝试从外部来源复制元素­，并且来源有1页以上。现在，我可以复制页面中的所有数据，但是当我从页面1切换到页面2时，它会将页面2中的所有数据复制到页面1中的数据上。

Do While Sess0.Screen.GetString(24, 2, 55) <> "10001-3 LA CLE UTILISEE SUR 
L'ECRAN N'EST PAS SUPPORTEE"
j = 1

For i = 8 To 17
  serv1 = Sess0.Screen.GetString(i, 63, 6)
  rab1 = Sess0.Screen.GetString(i, 77, 4)
  Cells(j, 1).Value = serv1 + "-" + rab1
  j = j + 1
Next i

Sess0.Screen.SendKeys ("<PF8>")'changes the page
OIAWait

Loop

Sess0.Screen.SendKeys (PF8)是我更改页面的时间。更改页面后，我想从（10，1）而不是（1,1）开始该单元格。

谢谢