没问题，这个调整很容易实现，我们只需要把原来指定单个单元格的数组遍历方式，改成直接遍历目标单元格区域即可，具体修改如下：

修改后的完整代码 #

Sub Insert2() 
    Const fPath = "C:\path" 
    Dim cel As Range, picPath As String 
    ' 直接遍历F4:F12区域的每个单元格
    For Each cel In Sheets("Medium").Range("F4:F12")
        ' 跳过空单元格（可选，避免生成无效的图片路径）
        If cel.Value <> "" Then
            picPath = fPath & "\" & cel.Value & ".jpg" 
            If Not Dir(picPath, vbDirectory) = vbNullString Then 
                With cel.Parent.Pictures.Insert(picPath) 
                    With .ShapeRange 
                        .LockAspectRatio = msoFalse 
                        .Width = 70 
                        .Height = 70 
                    End With 
                    .Left = cel.Offset(, 1).Left 
                    .Top = cel.Offset(, 1).Top 
                End With 
            End If
        End If
    Next cel 
End Sub

关键改动说明 #

• 替换遍历逻辑：把原来的For Each a In Array("F4", "F5", "F6")改成For Each cel In Sheets("Medium").Range("F4:F12")，无需手动列出每个单元格地址，直接遍历整个目标区域，后续要调整范围也只需修改括号内的单元格地址即可。
• 简化单元格引用：去掉了原来的Set cel = Sheets("Medium").Range(a)，现在cel直接就是区域内的当前单元格，代码更简洁直观。
• 新增空单元格判断（可选）：添加了If cel.Value <> "" Then的判断，避免当F列单元格为空时生成无效的图片路径，让代码运行更稳定。

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