Excel 2013：Base ID重复时递增Image Position，否则重置为1？

完全可以通过VBA实现这个分组递增计数的需求，以下是具体实现方案：

核心逻辑 #

1. 从图片URL中提取Base ID：以URL最后一个-为分隔符，取左侧的文本（比如foobar-8.jpg提取为foobar）
2. 遍历URL列，对比当前行的Base ID与上一行是否相同：
   • 相同则Position列数值在上一行基础上+1
   • 不同则重置为1

VBA代码实现 #

Sub CalculateImagePosition()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim currentBaseID As String
    Dim previousBaseID As String
    Dim positionCount As Integer
    
    ' 设置目标工作表，根据实际情况修改Sheet名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 获取URL列的最后一行（假设URL在A列，Position在B列）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 初始化计数和上一个BaseID（假设表头在第1行，数据从第2行开始）
    positionCount = 1
    previousBaseID = GetBaseID(ws.Cells(2, "A").Value)
    ws.Cells(2, "B").Value = positionCount
    
    ' 遍历数据行
    For i = 3 To lastRow
        currentBaseID = GetBaseID(ws.Cells(i, "A").Value)
        
        If currentBaseID = previousBaseID Then
            positionCount = positionCount + 1
        Else
            positionCount = 1
            previousBaseID = currentBaseID
        End If
        
        ws.Cells(i, "B").Value = positionCount
    Next i
End Sub

' 自定义函数：从URL中提取BaseID
Function GetBaseID(url As String) As String
    Dim dashPos As Integer
    ' 找到最后一个"-"的位置
    dashPos = InStrRev(url, "-")
    If dashPos > 0 Then
        GetBaseID = Left(url, dashPos - 1)
    Else
        ' 如果没有"-"，直接返回整个URL作为BaseID
        GetBaseID = url
    End If
End Function

使用步骤 #

1. 按Alt + F11打开VBA编辑器
2. 在左侧工程窗口中右键点击当前工作簿，选择插入→模块
3. 将上述代码粘贴到模块窗口中
4. 修改代码中的工作表名称（Sheet1）和列号（A列是URL，B列是Position），匹配你的实际数据结构
5. 按F5运行CalculateImagePosition宏，即可自动计算Position列数值

注意事项 #

• 确保URL列的格式统一，若存在无-的URL，会将整个URL视为BaseID
• 数据需按BaseID的顺序排列（若未排序，需先对URL列按BaseID排序，否则计数会混乱）

内容的提问来源于stack exchange，提问作者HelloWorld