利用循环插入若干行之后，下标改变了，但是下标往下的行还没有循环，怎么办

向日葵you信仰

拜托各位大神帮帮忙
  利用循环在一组数据插入若干行，我的一维数组的下标没有改变，但是因为插入了若干行，下标以下的行就没法条件循环了，该怎么办

活在理想的世界

你需要实时找到你的最新行号
假设你的数据在Sheet1里，A列是你数据的主键。
Dim K As Long
Dim ARR()
K=Sheet1.Range("A1048576").End(xlUp).Row
ARR=Sheet1.Range("A1:A"&K)

wang-way

逆序循环 ，for i=末行 to 起始行 step-1