重新计算导出的表格，序号重新排序

nongminku125

一个excel工作表上有上下两个部分的数据，要求运行vb后两个部分都按照A列的序号排序是吗？

这个大佬说的 对，运行之后，A列的排序是重新排序，目前宏运行的编号  还是宏运行的表格所在的序号，

nongminku125

Sub ykcbf()    '//2023.4.12
    Dim arr, brr
    p = ThisWorkbook.Path & "\"
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim tm: tm = Timer
    arr = Sheet15.UsedRange
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
    For i = 2 To UBound(arr)
        If InStr(arr(i, 4), "删除") = 0 And InStr(arr(i, 15), "删除") = 0 And InStr(arr(i, 24), "删除") = 0 Then
            m = m + 1
            For j = 1 To UBound(arr, 2)
                brr(m, j) = arr(i, j)
            Next
        End If
    Next
    Set wb = Workbooks.Add
    Set sht = wb.Sheets(1)
    With sht
        .Columns("a:BW").NumberFormatLocal = "@"
        .[a1].Resize(UBound(brr), UBound(brr, 2)) = brr
    End With
    mFile = p & "文件另存.xlsx"
    wb.SaveAs Filename:=mFile, FileFormat:=51
    wb.Close True
    Application.ScreenUpdating = True
    MsgBox "另存完毕，共用时： " & Format(Timer - tm, "0.000秒"), , "提示"
End Sub

Sub 凭证生成()

End Sub



这是目前的宏代码，请问怎么增加，谢谢啊，各位大佬！！！！！

nongminku125

这是目前的宏代码，请问怎么增加，谢谢啊，各位大佬！！！！！

ykcbf1100

nongminku125 发表于 2024-1-11 09:56
各位大佬：
  这是我原来的宏代码，请问新的代码 如何添加进去，一起运行，
Sub ykcbf()    '//2023.4.12 ...

这是我写的代码，你是哪个帖子上的代码啊？

ykcbf1100

nongminku125 发表于 2024-1-11 22:22
这是目前的宏代码，请问怎么增加，谢谢啊，各位大佬！！！！！

如果是序号重排，可以对A列单独再写一个序号就行了。

nongminku125

大佬，我之前请教的您，当时问题一直么有解决，现在还想着怎么解决，您看在原有宏代码上，如何对A列进行排序，谢谢！！！！

ykcbf1100

nongminku125 发表于 2024-1-12 09:37
大佬，我之前请教的您，当时问题一直么有解决，现在还想着怎么解决，您看在原有宏代码上，如何对A列进行排 ...

你1楼的表述有问题啊，从表述看，就是排序的问题，又没有另存的事情的。

nongminku125

大佬，是的，另存的表格在表格保存前，对A列的上半段进行从排序，下半段也排序，不过下半段也排序，（特殊的就是原表格上半段的0-5参与排序，下半段的0-5不参与排序，或者也就是下半段根据上半段的总数进行倒数排序），下面表格是我手动显示的排序，多谢，各位大佬了！！！！