Excel填充句柄-如何设置迭代计数器？

是否可以通过excel填充句柄，将索引包含在字符串中

i、 e: 请注意：

catalog/images/1/5start.jpg

catalog/images/1/sta5rt.jpg

你需要得到这个：

catalog/images/1/6start.jpg
catalog/images/1/7start.jpg
catalog/images/1/8start.jpg

catalog/images/1/sta6rt.jpg
catalog/images/1/sta7rt.jpg
catalog/images/1/sta8rt.jpg

或

请注意：

catalog/images/1/5start.jpg

catalog/images/1/sta5rt.jpg

你需要得到这个：

catalog/images/1/6start.jpg
catalog/images/1/7start.jpg
catalog/images/1/8start.jpg

catalog/images/1/sta6rt.jpg
catalog/images/1/sta7rt.jpg
catalog/images/1/sta8rt.jpg

---

不可能直接实现，但使用辅助列非常简单：

在

A1

put

catalog/images/1/5

在

B1

put

start.jpg

在

C1

中输入公式

=A1和B1

选择这三个单元格，然后向下拖动：

---

不可能直接实现，但使用辅助列非常简单：

在

A1

put

catalog/images/1/5

在

B1

put

start.jpg

在

C1

中输入公式

=A1和B1

选择这三个单元格，然后向下拖动：

---

这就是我如何使用UDF和公式的组合来实现的。如果您愿意，可以将其仅转换为VBA

首先将此代码放入模块：

Public Function DigitsOnly(sStr As String) As Variant
    Dim oRegExp As Object

    Set oRegExp = CreateObject("VBScript.RegExp")

    With oRegExp
        .IgnoreCase = True
        .Global = True
        oRegExp.Pattern = "\D"
        DigitsOnly = oRegExp.Replace(sStr, vbNullString)
    End With
End Function

将此公式放在单元格

A2

中，并向下拖动，直到您想要增加数字

此公式假定您在单元格A1中有数据

---

这就是我如何使用UDF和公式的组合来实现的。如果您愿意，可以将其仅转换为VBA

首先将此代码放入模块：

Public Function DigitsOnly(sStr As String) As Variant
    Dim oRegExp As Object

    Set oRegExp = CreateObject("VBScript.RegExp")

    With oRegExp
        .IgnoreCase = True
        .Global = True
        oRegExp.Pattern = "\D"
        DigitsOnly = oRegExp.Replace(sStr, vbNullString)
    End With
End Function

将此公式放在单元格

A2

中，并向下拖动，直到您想要增加数字

此公式假定您在单元格A1中有数据

---

完全有可能做到这一点。你们试过什么了吗？约翰·科尔曼仍然是最好的解决方案，但在复制excel行并添加制表符后，在某些情况下可能会出现问题。完全有可能做到这一点。你们试过什么了吗？约翰·科尔曼仍然是最好的解决方案，但在复制excel行并添加制表符后，在某些情况下可能会出现问题。