¤j¤j¦n¡A 
 
¤p§Ì·Q§âsheet1ªº¸ê®Æ¨Ì§ÇÅã¥Ü¦blistbox1¤W 
 
¡isheet1¸ê®Æ¬°¡j 
¡@A1¡@A2 
½s¸¹¡@1 
²£¦a¡@¤é¥» 
³W®æ¡@7S5G 
¤Ø¤o¡@1.2 
§å¸¹¡@3F094E 
¡m®æ¦¡¤@ª½«ÂФU¥h¡A¦ý¸ê®Æ¤£¤@¼Ë¡n 
 
¡i¤p§Ì½s¼gªº½s½X¬°¡j 
For i = 1 To 2000 
¡@If Sheet1.Cells(5 * i, 2).Value = "" Then 
¡@¡@Exit Sub 
¡@Else 
¡@¡@ListBox1.AddItem "³W®æ¡G" & Sheet1.Cells(-2+5 * i, 2) & "¡@¤Ø¤o¡G" & Sheet1.Cells(-1 + 5 * i, 2) & "¡@§å¸¹¡G" & Sheet1.Cells(5 * i, 2)    
¡@End If 
Next 
 
 
¦ý¬Oµo²{¦pªGsheet1¸ê®Æ¤£¤@¼Ëªø«hÅã¥Ü°_¨Ó·|¦³ªø¦³µu¡A 
 
½Ð±Ð¦U°ª¤â¡A½Ð°Ý¸Ó«ç»ò³]©w¯à°÷¡A³W®æ¤@±Æ¡B¤Ø¤o¤@±Æ¡B§å¸¹¤@±Æ©O¡H 
 
(°²³]¸ê®Æ³Ì¦h³£¬O10words¡C) |