请教高手:需用宏命令制作报价单,按照图片和型号的顺序排列。_百度知 ...答:按住alt依次按f11,i,m 粘贴下面代码后按f5 Sub test() p = ThisWorkbook.Path & "\" For r = 2 To Range("b65536").End(xlUp).Row With Cells(r, 1) ActiveSheet.Shapes.AddPicture(p & Cells(r, 2).Value & ".jpg", msoFalse, msoCTrue, .Left, .Top, .Width, ....