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

我想知道如何运行一个函数，在每行中只包含图像的列的每行中添加一个url，其中每行文件名末尾的数字将增加2，并从excel文件的当前目录中获取文件，如下所示：

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

等等

---

谢谢。

您可以使用以下公式：

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

然后把它复制到你的行中（假设我们从第一行开始，否则你必须调整公式）

要动态使用当前工作簿的路径，可以使用

Cell（）

公式和一些

Left（）

和

Find（）

字符串操作：

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

---

您可以使用以下公式：

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

然后把它复制到你的行中（假设我们从第一行开始，否则你必须调整公式）

要动态使用当前工作簿的路径，可以使用

Cell（）

公式和一些

Left（）

和

Find（）

字符串操作：

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

---

通过从当前目录获取文件，我的意思是，如果excel工作表位于文件夹中，我希望url像这样指向：“currentfolder\imagenes\image.png”，这样它可以在每台计算机上工作。我一直在尝试使用vbs宏将列中的每个图像更改为url，例如：Sub ReplacePictures（）对于ActiveSheet.Shapes中的每个wShape，如果（wShape.Type=13），则wShape.TopLeftCell=“url”wShape.Delete End If Next wShape End使用公式更新了答案以使用当前工作簿的路径您好，谢谢您的回答，但每当我尝试在单元格中使用公式时，excel都会在单元格上显示以下内容：####。如果将其分解为

=text（（2*row（））-1000”）

和

=LEFT（CELL），该怎么办(“filename”，A1），FIND（“[”，CELL（“filename”，A1））-1）

这些是否给您提供了合理的输出？从当前目录获取文件，我的意思是，如果excel工作表位于文件夹中，我希望url指向如下：“currentfolder\imagenes\image.png”“这样它可以在每台计算机上工作。我一直在尝试使用vbs宏将列中的每个图像更改为url，如下所示：ActiveSheet.Shapes中每个wShape的Sub ReplacePictures（），如果（wShape.Type=13），则wShape.TopLeftCell=“url”wShape.Delete End If Next wShape End使用公式更新了答案以使用当前工作簿的路径您好，谢谢您的回答，但每当我尝试在单元格中使用公式时，excel都会在单元格上显示以下内容：####。如果将其分解为

=text（（2*row（））-1000”）

和

=LEFT（CELL），该怎么办(“filename”，A1），FIND（“[”，CELL（“filename”，A1））-1）

这些是否为您提供了合理的输出？