在EXCEL中的图片，能按条件显示，前提是先要将图片的名字先变号。然后用下面的函数：注：引号里面的为条件。PrivateSubWorksheet_Change(ByValTargetAsRange)DimrngAsRange,ML,MT,MW,MHOnErrorResumeNextActiveSheet.DrawingObjects.DeleteIfCells(1,1)="亚特兰大"Then'Cells(1,1)：括号前面数字表示行号、后面数字表示列号；Sheets(2).Shapes(1).Copy'Sheets(2)表示工作表“Sheet2”；Shapes(1)表示工作表“Sheet2”里的第一个插入的图片，即“图片1”Setrng=Cells(1,2)WithrngML=.LeftMT=.TopMW=.WidthMH=.Height.SelectActiveSheet.PasteEndWithEndIfWithSelection.ShapeRange.LockAspectRatio=msoFalse'取消锁定纵横选项.Left=ML.Top=MT.Width=MW.Height=MHEndWithIfCells(2,1)="博洛尼亚"Then'要继续增加，就从这里复制Sheets(2).Shapes(2).CopySetrng=Cells(2,2)WithrngML=.LeftMT=.TopMW=.WidthMH=.Height.SelectActiveSheet.PasteEndWithEndIfWithSelection.ShapeRange.LockAspectRatio=msoFalse'取消锁定纵横选项.Left=ML.Top=MT.Width=MW.Height=MHEndWith'到这里结束，里面的图片名和行号、列号自己改就是了。EndSub