请教老师，用VBA把超出的200行，就自动向上移到200行为止，谢谢！

cartel

请教老师，用VBA把超出的200行，就自动向上移到200行为止，谢谢！.zip (37.7 KB, 下载次数: 9)

2024-1-17 15:33 上传

点击文件名下载附件

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, i&, j&
   
    Application.ScreenUpdating = False
   
    ar = Range("H1", Cells(Rows.Count, "O").End(xlUp)).Value
    If UBound(ar) > 200 Then
        For i = 2 To UBound(ar)
            For j = 1 To UBound(ar, 2)
                ar(i - 1, j) = ar(i, j)
            Next j
        Next i
    End If
   
    [AB1].CurrentRegion.Clear
    [AB1].Resize(UBound(ar) - 1, UBound(ar, 2)) = ar
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考附件。。。

cartel

gwjkkkkk 发表于 2024-1-17 19:17
请参考附件。。。

gwjkkkkk老师，您好！
感谢您的公式，问题已解决，谢谢！
还想请教下，
计算结果，字体比原来变大了，想要字体不变

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim Rng As Range
   
    Application.ScreenUpdating = False
    With Range("H1", Cells(Rows.Count, "O").End(xlUp))
        Set Rng = Intersect(.Offset(), .Offset(1))
        If Rows.Count > 200 Then
            [AB1].CurrentRegion.Clear
            Rng.Copy [AB1]
        End If
    End With
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考。。。