怎么批量给表格内容里面最后一列旁边加上序号

woniu3721

有若干表格文件，这些表格里面内容都没有序号字段，没有像数据库里面的id号，给很多操作带来不便，要进行下一步的很多操作，必须要在最后一列加上临时序号，才搞得到事。要求是在不打开原文件的情况下只点一下本工具表的按钮就搞定。序号从1开始，左边内容有多少行，序号就加到多少。列标题就叫序号。

加序号.zip (34.49 KB, 下载次数: 6)

2022-12-25 18:58 上传

点击文件名下载附件

gwjkkkkk

请楼主解压后使用。。。

tiger1976

Sub lll()      '代码请参考一下

    Dim fos As New FileSystemObject
    Dim str As String
    Dim wj
    Dim sht As Worksheet
    Dim i As Integer
    Dim k As Integer
    Dim m As Integer
    Dim wb As Workbook
   
    str = "D:\360MoveData\Users\Lenovo\Desktop\新建文件夹\"
   
    For Each wj In fos.GetFolder(str).Files
        If wj.Name <> "加序号.xlsx" Then
            On Error Resume Next
            Set wb = Workbooks.Open(str & wj.Name)
            For Each sht In Sheets
                i = sht.Cells(Rows.Count, 1).End(xlUp).Row
                k = sht.Cells(1, Columns.Count).End(xlToLeft).Column
                Cells(1, k + 1) = "序号"
                For m = 2 To i
                    Cells(m, k + 1) = m - 1
                Next
            Next
            wb.Save
            wb.Close
        End If
    Next

End Sub

woniu3721

gwjkkkkk 发表于 2022-12-25 19:47
请楼主解压后使用。。。

这么快就写出来了，很牛掰，解决了实际运用中不少困扰的问题！

woniu3721

tiger1976 发表于 2022-12-25 20:26
Sub lll()      '代码请参考一下

    Dim fos As New FileSystemObject

这是何原因，测试不了

woniu3721

gwjkkkkk 发表于 2022-12-25 19:47
请楼主解压后使用。。。

出现一个问题就是经插入序号以后的表，在用sql 导入表数据的时候要弹出“外部表不是预期格式”，看来没有在表格里面编辑保存的，采用直接写入的，他这个文件格式要跑偏