如何简化根据单元格值控制形状显示隐藏的VBA冗长代码？

可以通过循环遍历的方式大幅简化代码，避免重复编写20段几乎相同的逻辑：

Sub UpdateShapes()
    Dim wsActive As Worksheet
    Dim wsItem As Worksheet
    Dim i As Integer
    Dim shp As Shape
    Dim cellValue As String
    
    ' 定义工作表对象，减少重复调用开销
    Set wsActive = ActiveSheet
    Set wsItem = ThisWorkbook.Worksheets("ITEM")
    
    ' 循环处理1到20的形状与对应单元格
    For i = 1 To 20
        Set shp = wsActive.Shapes("Item-" & i)
        cellValue = wsItem.Range("F" & i + 1).Value ' F2对应i=1，因此索引为i+1
        
        If cellValue = "" Then
            shp.Visible = msoFalse ' 单元格为空则隐藏形状
        Else
            shp.Visible = msoTrue ' 显示形状
            shp.TextFrame2.TextRange.Text = cellValue ' 写入单元格内容到形状
        End If
    Next i
End Sub

代码说明： #

• 提前定义工作表对象，避免重复查找工作表的冗余操作
• 用For循环自动关联Item-i形状与F(i+1)单元格，彻底消除重复代码块
• 统一处理形状显示/隐藏逻辑和文本赋值，逻辑清晰易维护
• 若形状为非文本框类型，可根据实际需求调整文本赋值方式（比如修改shp.AlternativeText等属性）

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