ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¶}±ÒÀÉ®×§äÃöÁä¦r

¶}±ÒÀÉ®×§äÃöÁä¦r

¦p¦ó¨Ï¥Î CreateObject("Scripting.Dictionary") °µ¨ì
¶}±ÒD¼Ñ©³¤Uaa.xlsx ÀÉ®×-->§ä´M¨C­Ó¤u§@ªíªº·Ó¤ùÀɸ̪ºÃöÁä¦r-->¦p¦³§ä¨ì¥t¶}·sÀɧâ¸ê®Æ¦s©ñ©ó¦¹

Set dict = CreateObject("Scripting.Dictionary")
Workbooks.Open Filename:=D:\aa.xlsx
sFind = InputBox("½Ð¿é¤J­n§ä´MÃöÁä¦r")
For i = 1 To Worksheets.Count
For Each shp In ActiveSheet.Shapes
Workbooks.Add
.
.
.

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD