请老师用VBA，把超出200行的1行或多行数，向上移到200行为止，谢谢！

ykcbf1100

求助时的说明不太好理解，我也是看了上面楼层的解释才写的。
附件供参考。。。

ykcbf1100

代码供参考。。。

1. Sub ykcbf()  '//2024.2.18
   
2.     num = 200   '//固定行数
   
3.     r = Cells(Rows.Count, "h").End(3).Row  '//最大行号
   
4.     t = r - num
   
5.     If t > 0 Then   '//只对超过num行的情况处理
   
6.         arr = Cells(t + 1, "h").Resize(num, 8)
   
7.         Cells(1, "h").Resize(num, 8) = arr
   
8.         Cells(num + 1, "h").Resize(t, 8) = ""
   
9.     End If
   
10.     MsgBox "OK！"
    
11. End Sub
    

复制代码