¼B¤j­G

For Each shpPicChk In ActiveSheet.Shapes                                              ' ´M§ä½d³ò:[T1:V100]¤º¦³µL¹Ï¤ù(¥B¤£¬°¤U©Ô«ö¶s), ¦pªG¦³ªº¸Ü, «h§R°£.
           If Left(shpPicChk.Name, 4) <> "Drop" Then
              If (shpPicChk.TopLeftCell.Column >= 20 And shpPicChk.TopLeftCell.Column <= 21 And shpPicChk.TopLeftCell.Row >= 1 And shpPicChk.TopLeftCell.Row <= 100) Then
                 shpPicChk.Delete
              End If
           End If
       Next shpPicChk