vba编号

hwx

编号为6位前两位代表组别
中间两位每组从按户主01开始
后面两位每户按地块从01开始
例如：第一组第八户第二块地010802
           第二组第三户第一块地020301（这里的第三户是第二组的第三户）

编号.rar (90.45 KB, 下载次数: 25)

2016-11-23 12:35 上传

点击文件名下载附件

hwx

Sub 编号()
Set sjb = ActiveSheet
Application.DisplayAlerts = False
zhubie = sjb.Range("b" & 2)
xingming = sjb.Range("c" & 3)
m = 10000
n = 100
l = 1
For i = 2 To sjb.Cells(Rows.Count, 2).End(xlUp).Row   
    If sjb.Range("b" & i) = zhubie Then
        If sjb.Range("c" & i) = xingming Then   
        sjb.Range("a" & i).Value = m + n + l
        xingming = sjb.Range("c" & i)
        zhubie = sjb.Range("b" & i)
        Else
        n = n + 100
        l = 1
        sjb.Range("a" & i).Value = m + n + l
        xingming = sjb.Range("c" & i)
        zhubie = sjb.Range("b" & i)   
        End If     
        l = l + 1              
    Else
    zhubie = sjb.Range("b" & i)
    xingming = sjb.Range("c" & i)   
    m = m + 10000
    n = 100
    l = 1
    sjb.Range("a" & i).Value = m + n + l
    l = l + 1  
    End If  
Next i
Application.ScreenUpdating = True
End Sub


虽然写的比较乱    不够够优化    但是能用

18730306029

这个是干什么用的

hwx

18730306029 发表于 2016-11-23 17:28
这个是干什么用的

做地块编号用的

gzbccy

看上去很不错的样子

lip030586

下载下来研究一下:zt

sim111

很实用，可以节省不少时间。

zhewin

感谢楼主分享