如何为工作簿中所有工作表倒序添加序号？？

超越2018

如何为工作簿中所有工作表倒序添加序号？在工作簿中依次从最后一个工作表的最后一个单元格倒序添加序号，如附件所示。

如何操作？哪位大侠请教下，谢谢！

liulang0808

Sub test()
    x = 0
    Application.ScreenUpdating = False
    For j = Sheets.Count To 1 Step -1
        With Sheets(j)
            c = .Cells(1, Columns.Count).End(xlToLeft).Column + 1
            For i = .Cells(Rows.Count, 1).End(3).Row To 2 Step -1
                x = x + 1
                .Cells(i, c) = x
            Next
        End With
    Next j
    Application.ScreenUpdating = True
End Sub

liulang0808

附件内容供参考。。。。。

wengjl

给你一个思路：
1、最外圈的循环是 for i=worksheets.count to 1 step -1
2、工作表上的循环  for j=Sheets(i).UsedRange.Rows.Count  to 2 step -1
3、是一个编号的计数处理

不过我很想知道，这样做的意义是什么？

wengjl

没坐到沙发

超越2018

谢谢关注，功能初步实现，还有一个问题：如果不设excel文件为宏文件的前提下怎么赋序号？就是想把EXCEL文件放在文件夹中（不更改文件格式为宏文件），使用vba语句把表格内的excel文件按上面要求倒序赋序列号怎么实现??

超越2018

wengjl 发表于 2022-12-2 08:00
没坐到沙发

谢谢关注，功能初步实现，还有一个问题：如果不设excel文件为宏文件的前提下怎么赋序号？就是想把EXCEL文件放在文件夹中（不更改文件格式为宏文件），使用vba语句把表格内的excel文件按上面要求倒序赋序列号怎么实现??

超越2018

wengjl 发表于 2022-12-2 07:58
给你一个思路：
1、最外圈的循环是 for i=worksheets.count to 1 step -1
2、工作表上的循环  for j=Shee ...

谢谢指导，这是工作中遇到的问题，每天都有这种工作簿（里面有多个工作表，没有序列索引项），导入到数据库可以方便查询操作，但最初的顺序被打乱了，所以想在导入数据库前加给原因文件加一列序列号，这样原始的序列就记录下来了，方便查询信息还能区分出单元格内容的前后关系。

超越2018

liulang0808 发表于 2022-12-2 07:56
附件内容供参考。。。。。

谢谢解答，还有一个问题：如果不设excel文件为宏文件的前提下怎么赋序号？就是想把EXCEL文件放在文件夹中（不更改文件格式为宏文件），使用vba语句把表格内的excel文件按上面要求倒序赋序列号如何实现??

超越2018

liulang0808 发表于 2022-12-2 07:55
Sub test()
    x = 0
    Application.ScreenUpdating = False

谢谢解答，还有一个问题：如果不设excel文件为宏文件的前提下怎么赋序号？就是想把EXCEL文件放在文件夹中（不更改文件格式为宏文件），使用vba语句把表格内的excel文件按上面要求倒序赋序列号怎么实现??