[已解决]VBA-编写序号到对应列最后一个有数据的单元格

yjwdjfqb

VBA-编写序号到对应列最后一个有数据的单元格


VBA-编写序号到对应列最后一个有数据的单元格.rar (4.89 KB, 下载次数: 14)

2012-2-19 12:16 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

windimi007

2012-2-19 12:33

中间断开（空着）该怎么处理呢？应该不继续编号吧！请测试！

1. Option Explicit
   
2. Sub xh()
   
3.     Dim arr, brr()
   
4.     Dim i&, j&
   
5.     arr = Range("D3:D" & Cells(Rows.Count, 4).End(3).Row)
   
6.     ReDim brr(1 To UBound(arr), 1 To 1)
   
7.     For i = 1 To UBound(arr)
   
8.         If Not IsEmpty(arr(i, 1)) Then
   
9.             j = j + 1
   
10.             brr(i, 1) = j
    
11.         End If
    
12.     Next i
    
13.     Columns(3).ClearContents
    
14.     Cells(3, 3).Resize(UBound(brr)) = brr
    
15. End Sub
    

复制代码

跳转到最佳答案楼层

windimi007

中间断开（空着）该怎么处理呢？应该不继续编号吧！请测试！

1. Option Explicit
   
2. Sub xh()
   
3.     Dim arr, brr()
   
4.     Dim i&, j&
   
5.     arr = Range("D3:D" & Cells(Rows.Count, 4).End(3).Row)
   
6.     ReDim brr(1 To UBound(arr), 1 To 1)
   
7.     For i = 1 To UBound(arr)
   
8.         If Not IsEmpty(arr(i, 1)) Then
   
9.             j = j + 1
   
10.             brr(i, 1) = j
    
11.         End If
    
12.     Next i
    
13.     Columns(3).ClearContents
    
14.     Cells(3, 3).Resize(UBound(brr)) = brr
    
15. End Sub
    

复制代码

happym8888

看附件看附件，点击按钮。

yjwdjfqb

happym8888 发表于 2012-2-19 12:42
看附件看附件，点击按钮。

都是高手，非常的感谢

yjwdjfqb

happym8888 发表于 2012-2-19 12:42
看附件看附件，点击按钮。

今天有空不，朋友，帮我做下那个