求脚本，自动获取excel里图片地址，下载到制定图片文件夹

Sub test()

Dim HLK As Hyperlink, Rng As Range

For Each HLK In ActiveSheetHyperlinks  '循环活动工作表中的各个超链接

    If HLKAddress Like "jpg" Or HLKAddress Like "gif" Then  '如果链接的位置是jpg或gif(此处仅针对此两种类型,更多类型可以通过建立数组或字典或正则来判断)

        Set Rng = HLKParentOffset(, 1)  '设定插入目标的位置

        With ActiveSheetPicturesInsert(HLKAddress)  '插入链接地址中的

            If Height / Width > RngHeight / RngWidth Then  '判断纵横比与单元格纵横比的比值以确定针对单元格缩放的比例

                Top = RngTop

                Left = RngLeft + (RngWidth - Width  RngHeight / Height) / 2

                Width = Width  RngHeight / Height

                Height = RngHeight

            Else

                Left = RngLeft

                Top = RngTop + (RngHeight - Height  RngWidth / Width) / 2

                Height = Height  RngWidth / Width

                Width = RngWidth

            End If

        End With

    End If

Next

举个例子吧，如果想在A1:B5范围内查找15，返回这个单元格地址，可以输入公式

=ADDRESS(SUMPRODUCT((A1:B5=15)ROW(1:5)),SUMPRODUCT((A1:B5=15)COLUMN(A:B)),4)

就行了。

在用excel进行办公时，经常要用到各种函数功能。比如可能经常要用到获取行号、列号、列标和单元格地址的函数，具体如何获取呢？下面就来看看。

工具/材料

excel2007

01

首先，我们来看看如何获取当前单元格的行号，如图在B1单元格中输入=row()，确定后就返回了B1格所在的行为1。

02

如果要获取指定单元格的行号，则在返回结果的单元格中输入=row(指定单元格)，如图获取f9格所在的行，括号里就输入f9，确定后就返回了f9格所在的行为9。

03

如果要获取当前单元格的列号，则如图输入=column()，即可返回公式所在单元格的列号。

04

如果要获取指定单元格的列号，则输入=column(指定的单元格)，如图获取f9的列号为6。

05

如果要获取指定行、列的单元格地址，则输入=ADDRESS(指定的行号,指定的列号)，如图获取第9行，第5列的单元格地址为绝对地址E9

可以用左键单击单元格超链接进入该网址得到其中的地址；也可以用右键单击单元格超链接，选“编辑超链接”，在显示的对话框下面的“地址”框里可以得到。

直接复制有链接的列粘贴到另外一列不就行了，也可以通过录制宏来实现。

以上就是关于求脚本，自动获取excel里图片地址，下载到制定图片文件夹全部的内容，包括:求脚本，自动获取excel里图片地址，下载到制定图片文件夹、Excel 怎样查找某值获得该值所在的单元格地址、excel获取行号、列号、列标和单元格地址等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！