复制时自动增加字符串的数字元素

时间:2014-12-19 08:43:00

标签: excel vba excel-formula excel-2010 concatenation

我在Excel中的第一行是"http://somepath/001.jpg",我有2000张图片。我想要那个:

我的第一行是"http://somepath/001.jpg"
我的第二行是"http://somepath/002.jpg"
..
..
我的第2000行是"http://somepath/2000.jpg"

如何以简单的方式在Excel中添加这些内容?

3 个答案:

答案 0 :(得分:0)

您可以使用Excel宏代码执行此操作。

Sub Macro()
    For i = 1 To 2000
        'in place of 1 specify which column you want to insert the image
        Cells(i, 1).Select
        ActiveSheet.OLEObjects.Add(Filename:= _
            "path\image" & i & ".jpg", Link:=False, DisplayAsIcon:= _
            True, IconFileName:= _
            "C:\Program Files (x86)\Internet Explorer\iexplore.exe", _
            IconIndex:=1, IconLabel:="path\image" & i & ".jpg").Select
    Next i
End Sub

答案 1 :(得分:0)

我找到了自己问题的答案。

以下是我遵循的步骤:

  1. 我在第1行编写路径,直到数字为"http://somepath/001"
  2. 我点击单元格的右上角并拖动它直到2000行
  3. 现在我有2000行,最后一行是"http://somepath/2000",因此我选择了另一列,即B并使用Excel CONCATENATE函数。恩。 =CONCATENATE(A1, ".jpg")
  4. 再次单击单元格的右上角(即B1)并将其拖动到2000行。
  5. 现在我们有"http://somepath/001.jpg""http://somepath/2000.jpg"的行,因此选择列即B右键单击
  6. 右键单击选择另一列,然后从粘贴
  7. 中选择值选项

答案 2 :(得分:0)

更简单:

="http://somepath/"&TEXT(ROW(),"0000")&".jpg"