如何吧符合条件的行删除，病重新排序导出新的表格，新表格全是文本格式

nongminku125

最左边的排序 从0开始重新排序   0/1/2---


下面表格  从第5行排序，如果上面的表格删除了3行，则是从第1序号排序 1/2/3----
如何吧符合条件的行删除，病重新排序导出新的表格，新表格全是文本格式
劳烦大神们，帮忙解答写，非常感谢了！

psxk3535

符合条件的删除，你的条件是什么？

3190496160

Sub 删除排序()
Dim ar As Variant
Dim br()
With Sheets("sheet1")
    r = .Cells(Rows.Count, 13).End(xlUp).Row
    y = .Cells(2, Columns.Count).End(xlToLeft).Column
    If r < 3 Then MsgBox "数据表为空！": End
    ar = .Range(.Cells(2, 1), .Cells(r, y))
End With
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
For i = 1 To UBound(ar)
    If Trim(ar(i, 15)) <> "" Then
        n = n + 1
        If n = 1 Then
            br(n, 1) = ar(i, 1)
        Else
            br(n, 1) = n - 1
        End If
        For j = 2 To UBound(ar, 2)
            br(n, j) = ar(i, j)
        Next j
    End If
Next i
With Sheets("导出")
    .UsedRange = Empty
    .[a2].Resize(n, UBound(br, 2)) = br
End With
MsgBox "ok!"
End Sub

3190496160

3190496160

猜的，仅供参考
例子.rar (24.54 KB, 下载次数: 3)

2023-4-17 09:33 上传

点击文件名下载附件

nongminku125

符合条件 删除，删除行

nongminku125

导出的文件，以表格中的日期排序，谢谢！！！各位大神老师！！！