Excel在列的所有行中添加带增量的URL

时间:2016-05-18 13:00:42

标签: excel excel-vba vba

我想知道怎样才能运行一个函数来为每一行添加一个url,其中每行只有图像,每行中文件名末尾的数字将增加2并从excel文件的当前目录中获取文件,如下所示:

'currdir\imagenes\image001.png' 
'currdir\imagenes\image003.png' 
'currdir\imagenes\image005.png' 

等等......

感谢。

1 个答案:

答案 0 :(得分:2)

您可以使用公式:

="'currdir\imagenes\image" & text((2*row())-1, "000") & ".png'"

然后将其复制到您的行中(假设我们从第1行开始,否则您必须调整该公式。

要使其动态使用当前工作簿的路径,您可以使用Cell()公式进行一些Left()Find()字符串操作:

="'" & LEFT(CELL("filename", A1), FIND("[",CELL("filename",A1))-1) & "imagenes\image" & text((2*row())-1, "000") & ".png'"