柚茶短裙:
需要编写程序,结果产生在新的sheet里在另1个Sheet,复制vba,假设图片的sheet名为表1,试试Sub无铅喷锡()Range("A2:T5000")=""Dimix=Sheets("表1").Range("A65536").End(xlUp).RowFori=2ToxIfSheets("表1").Cells(i,"a")="无铅喷锡"AndSheets("表1").Cells(i,"T")="Red"ThenY=Range("A65536").End(xlUp).RowSheets("....