ArcGIS中如何把img图层文件转成tif图层文件？

汉塞

看看楼主的杰作。

401019357

支持                =11111

杨侃

感谢楼主的辛苦付出，我一定好好研究研究，谢谢。

流浪神犬

进来学习一下

zjez126

很好很强大！

healthyken

ArcGIS中如何把img图层文件转成tif图层文件？

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

hanlingxi

学习一下，谢谢

zcc0

谢谢谢谢谢谢

shao-jb

谢谢分享，谢谢！