用ArcGIS绘制一幅完整的地图(附赠ArcGIS 数字化操作步骤）

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

hhwww919

讲解的很细致啊 还有具体的内容不错

空空空

感谢分享，学习学习

kiss咪咪

学习一下，谢谢分享！!!

qiuwen321578

还没真正意义上使用过ARCGIS软件呢

满上开遍映山红

好东西，顶

看海的蜗牛啊

学习学习~！

550834

:bq:bq:bq:bq:bq:bq:bq:bq:bq:bq:bq

薄荷清风

谢谢分享

sangkaijun

谢谢楼主！！！