ArcGIS行业解决方案

liuming · 发表于 2016-10-24 09:40

dfgdsfgdsgsdgdsg

啊母楞 · 发表于 2016-11-22 23:55

感谢楼主分享很好的资料

杨侃 · 发表于 2016-11-23 20:42

实在是难得一见的好贴啊！

hwx · 发表于 2016-11-23 20:57

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