如果包含一定数量的数字，则跳过行

Question

我将此代码删除并将字段移动到正确的位置。如果我添加更多信息，我应该如何删除已完成的行？

Range(Range("B2"),Range("B2").End(xldown)).Select
    Selection.Cut
Columns("H:H").Select
    ActiveSheet.Paste
Range(Range("C2"),Range("C2").End(xldown)).Select
    Selection.Cut
Range(Range("B2"),Range("B2").End(xldown)).Select
    ActiveSheet.Paste
Columns("C:F").Select
Range(Range("C2:F2"),Range("C2:F2").End(xldown)).Select
    Selection.Delete Shift:=xlToLeft

Columns("B:B").Select
    Selection.NumberFormat = "0"


End Sub

Answer 1

此结构不仅可以让您添加条件，还可以提高代码速度并减少闪烁效果，同时仍然显示部分进度。

$('.te_editor').jqte({
});

<style>
.jqte_editor{height:350px;max-height:500px;}
</style>