下面的VBA宏可以遍历指定列的所有单元格，提取每个单元格内嵌入图片的Alt Text，并批量写入相邻列。针对单元格内的图片（而非浮动在单元格外的图片），我们需要通过Shape对象的TopLeftCell属性来判断其所属单元格：

Sub ExtractCellImageAltText()
    Dim ws As Worksheet
    Dim targetCol As String
    Dim cell As Range
    Dim shp As Shape
    Dim altTextList As String
    
    ' 设置目标工作表和列（例如处理A列的图片）
    Set ws = ActiveSheet
    targetCol = "A" ' 替换为你的目标列
    
    ' 遍历目标列的所有非空单元格
    For Each cell In ws.Range(targetCol & "1:" & ws.Cells(ws.Rows.Count, targetCol).End(xlUp).Address)
        altTextList = ""
        ' 遍历工作表内的所有形状
        For Each shp In ws.Shapes
            ' 判断形状是否嵌入在当前单元格内
            If shp.TopLeftCell.Address = cell.Address Then
                ' 收集Alt Text，多个图片用逗号分隔
                If altTextList <> "" Then
                    altTextList = altTextList & ", "
                End If
                altTextList = altTextList & shp.AlternativeText
            End If
        Next shp
        ' 将收集到的Alt Text写入相邻列
        cell.Offset(0, 1).Value = altTextList
    Next cell
End Sub

代码说明 #

• targetCol：指定要处理的列（比如"A"列），根据你的需求修改。
• 遍历目标列的每个非空单元格，再逐个检查工作表内的Shape对象，通过TopLeftCell.Address匹配形状所属的单元格。
• 如果一个单元格内有多个图片，会将它们的Alt Text用逗号分隔后写入相邻单元格。
• 最终结果会写入目标单元格的右侧相邻列（比如A列的图片Alt Text写入B列）。

使用步骤 #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器。
2. 在左侧项目窗口中右键点击当前工作簿，选择插入 > 模块。
3. 将上述代码粘贴到模块窗口中。
4. 修改代码中的targetCol为你需要处理的列（比如要处理C列就改成"C"）。
5. 按下F5运行宏，或者回到Excel界面通过开发工具 > 宏选择ExtractCellImageAltText执行。

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