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

cartel

请老师用VBA，把超出200行的1行或多行数，向上移到200行为止，谢谢！.zip (49.84 KB, 下载次数: 9)

2024-2-17 11:51 上传

点击文件名下载附件

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, Rng As Range, iEndRow&
   
    Application.ScreenUpdating = False
    With Range("H1", Cells(Rows.Count, "O").End(xlUp))
        ar = Intersect(.Offset(), .Offset(1))
        iEndRow = IIf(UBound(ar) > 200, 200, UBound(ar))
        [H1].CurrentRegion.ClearContents
        [H1].Resize(iEndRow, UBound(ar, 2)) = ar
    End With
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考。。。

cartel

gwjkkkkk 发表于 2024-2-17 12:19
请参考。。。

gwjkkkkk老师，你好！
我要超出的行向上移，最后行到200行为止
比如，有205行，那就把205整个行向上移动到200行为止，
实际是最上面5行自动没了，
谢谢老师！

gwjkkkkk

cartel 发表于 2024-2-17 13:26
gwjkkkkk老师，你好！
我要超出的行向上移，最后行到200行为止
比如，有205行，那就把205整个行向上移 ...

如果不超出，怎么处理，不处理吗？

cartel

gwjkkkkk 发表于 2024-2-17 13:40
如果不超出，怎么处理，不处理吗？

gwjkkkkk老师，你好！
我的表达没说清楚，
比如，以200行为准，不管多几行，就把整个行向上移，直到200行为止，
再比如，有205行，整个列向上移，前面1-到5行自动消失，第6行到205行，就是在200行位置
谢谢老师！

gwjkkkkk

cartel 发表于 2024-2-17 14:04
gwjkkkkk老师，你好！
我的表达没说清楚，
比如，以200行为准，不管多几行，就把整个行向上移，直到200 ...

模拟一下结果吧，理解不了。。。

准提部林

r = cells( rows.count, "h").end(3).row - 200
if r>0 then [h1:o1].resize( r ).Delete Shift:=xlUp

sunya_0529

也就是保留最后200行数据的意思，用WPS里的JSA练习一下——

lizhipei78

8楼思路最好