VBA根据B列(B列不为空)自动生成序号

2021-07-02 13:25:38  阅读 446 次 评论 0 条

Sub 自动生成序号() 
   Dim i%, Lnum%, num%
         Lnum = 1 '自动生成序号
        num = ThisWorkbook.ActiveSheet.Range("B65536").End(xlUp).Row - 2 '返回B列最大非空行数
   For i = 1 To num
        Sheet1.Cells(i + 2, 1) = Lnum '在表1中第1列第3行开始自动生成序号
        Lnum = Lnum + 1
   Next i
End Sub



根据表1中B列最后一个空值,在A 列生成序号

Sub 自动生成序号()

   Dim i%, Lnum%, num%

         Lnum = 1 '自动生成序号

        num = ThisWorkbook.Sheets("sheet1").Range("B65536").End(xlUp).Row - 1 '返回B列最大非空行数

   For i = 1 To num

        Sheet1.Cells(i + 1, 1) = Lnum '在表2中第1列第3行开始自动生成序号

        Lnum = Lnum + 1

   Next i

End Sub


WPS达师专注于免费分享WPS Office使用教程、PPT、word模板及办公常用软件等资源,欢迎大家收藏和分享本站。
WPS表格数据付费处理请加QQ:3247742

发表评论


表情

还没有留言,还不快点抢沙发?