本帖最后由 qh8600 于 2014-4-5 12:17 编辑
For k = .Range("e65536").End(xlUp).Offset(2).Row To 4 Step -1
因为 ”制表:“所在的单元格在 D列
所以应改为
For k = .Range("d65536").End(xlUp).Row To 4 Step -1
循环变量K 从
.Range("d65536").End(xlUp).Row 'D列从65536行开始往上搜索,第一个非空单元个所在的行
开始往上循环到 4 ’ 就是第四行
Step -1是步长值为-1
意思就是循环从D列最后一个非空单元格所在的行开始,到第4行循环结束,步长值为-1(比如从600行开始,每次减1,599,588)
-2话就是600,598,596.....