stillfish00

¦^´_ 1# jasonwu0114
ªþ¤W¤£¦æªºµ{¦¡½X¬Ý¬Ý

stillfish00

¦^´_ 4# jasonwu0114

1. Sub nn4()
   
2.   With Sheets("¤u§@ªí1")
   
3.     With .Range(.[D3], .Cells(.Rows.Count, "D").End(xlUp))
   
4.       .FormulaR1C1 = "='X:\­·ºÞ³øªí\¥æ´«³¡¦ìµû»ùªí\[IRS³¡¦ìµû»ùªí" & .Parent.[A3].Value & ".xls]³¡¦ìµû»ùªí'!R1C13"
   
5.       .Value = .Value
   
6.     End With
   
7.   End With
   
8. End Sub

½Æ»s¥N½X

stillfish00

¦^´_ 6# jasonwu0114

1. Sub nn4()
   
2.   With Sheets("¤u§@ªí1")
   
3.     With .Range(.[A3], .Cells(.Rows.Count, "A").End(xlUp)).offset(,3)
   
4.       .FormulaR1C1 = "='X:\­·ºÞ³øªí\¥æ´«³¡¦ìµû»ùªí\[IRS³¡¦ìµû»ùªí" & .Parent.[A3].Value & ".xls]³¡¦ìµû»ùªí'!R1C13"
   
5.       .Value = .Value
   
6.     End With
   
7.   End With
   
8. End Sub

½Æ»s¥N½X

.Rows.Count  :  Excel³Ì¤j¦æ¼Æ
.Cells(.Rows.Count, "A")  :  AÄæ³Ì¤U­±¤@®æ
.Cells(.Rows.Count, "A").End(xlUp)  :  ±qAÄæ³Ì¤U­±¤@®æ©¹¤W§ä¨ì¦³¸ê®ÆªºÀx¦s®æ
.Range(.[A3], .Cells(.Rows.Count, "A").End(xlUp))  :  ±qA3¨ìAÄæ³Ì«á¤@µ§¸ê®Æ§Î¦¨ªº½d³ò
.Range(.[A3], .Cells(.Rows.Count, "A").End(xlUp)).offset(,3)  :  ±qA3¨ìAÄæ³Ì«á¤@µ§¸ê®Æ§Î¦¨ªº½d³ò¡A³o½d³ò¦A©¹¥k²¾°Ê¤TÄæ

stillfish00

¦^´_ 8# jasonwu0114
§Ú¦n¹³»~·|§Aªº·N«ä¤F¡A¬O³o¼Ë¶Ü?

1. Sub nn5()
   
2.   Dim x
   
3.   With Sheets("¤u§@ªí1")
   
4.     For Each x In .Range(.[A3], .Cells(.Rows.Count, "A").End(xlUp)).Offset(, 3)
   
5.       x.Value = ExecuteExcel4Macro("'X:\­·ºÞ³øªí\¥æ´«³¡¦ìµû»ùªí\[IRS³¡¦ìµû»ùªí" & x.Offset(, -3).Value & ".xls]³¡¦ìµû»ùªí'!R1C13")
   
6.     Next
   
7.   End With
   
8. End Sub

½Æ»s¥N½X

stillfish00

¦^´_ 2# bqwangs
¸ê®Æ>¨ú±o¥~³¡¸ê®Æ>±q¤å¦rÀÉ