play9091

¬Ý§¹¾ã¬q«á¡K¡K³oÀ³¸Ó¬O¦b¤£¦PªºÀɮסA¹ï¤£¦Pªº°Ï°ì¡A°µ¬Û¦Pªº¨Æ±¡¡K¡K

³o©Î³\¥i¥H¥Îarray
§â"°Ï°ì"¡A"Àɮ׸ôÍß"¡A¦U§O³Ð«Øarray¡AµM«á¥Î°j°éªº¤è¦¡¨ú¥Xarray¸Ì¬Û¹ïÀ³ªº­È¡A°µ¬Û¦Pªº°Ê§@¡K¡K

´£¨ÑÂI·Qªk¡K¡K¸ÕµÛ°µ°µ¬Ý¡I

play9091

¦^´_ 3# luke


    ¸Õ¸Õ¬Ý³o¼Ë¤l¥i¤£¥i¥H§a¡I§Ú¤£ª¾¹D¦bª«¥ó¸Ì­±¥i¤£¥i¥H©ñarr()¡A¤£¦æªº¸Ü¦A§â¥¦®³¥X¨Ó¦n¤F¡I¥ý¸Õ¸Õ¬Ý³o¼Ë¤l¡I

1. Sub CC()
   
2. Dim arr1, arr2, arr3, arr4
   
3. arr1 = Array("D:\TEST\TEST20\TT.txt", "D:\TEST\TEST20\TEST\TT.txt", "D:\TEST\TEST20\UU.csv")
   
4. arr2 = Array("TT", "TT", "UU")
   
5. arr3 = Array("A:B", "G:H", "C")
   
6. arr4 = Array("A:B", "A:B", "A")
   
7. Set fd = CreateObject("Scripting.FileSystemObject")
   
8. Application.ScreenUpdating = False
   
9. For I = 1 To 3
   
10. Set FT = ActiveWorkbook
    
11. FS = arr1(I)
    
12. With Workbooks.Open(FS).Sheets(arr2(I))
    
13.      FT.Sheets("Sheet2").Columns(arr3(I)) = .Columns(arr4(I)).Value
    
14.     .Parent.Close False
    
15. End With
    
16. Next I
    
17. End Sub
    
18. 
    
19. 
    
20. Sub DD()
    
21. Dim arr1, arr2, arr3, arr4
    
22. arr1 = Array("D:\TEST\TEST20\TT.txt", "D:\TEST\TEST20\TEST\TT.txt", "D:\TEST\TEST20\UU.csv")
    
23. arr2 = Array("TT", "TT", "UU")
    
24. arr3 = Array("D:E", "G:H", "F")
    
25. arr4 = Array("A:B", "A:B", "A")
    
26. Application.ScreenUpdating = False
    
27. Set FT = ActiveWorkbook
    
28. For I = 1 To 3
    
29. Set FT = ActiveWorkbook
    
30. FS = arr1(I)
    
31. With Workbooks.Open(FS).Sheets(arr2(I))
    
32.      FT.Sheets("Sheet2").Columns(arr3(I)) = .Columns(arr4(I)).Value
    
33.     .Parent.Close False
    
34. End With
    
35. Next I
    
36. sheet2.[f1:f5] = [c1:c5].Value
    
37.     Range("F6").FormulaR1C1 = "=""Count=""&COUNT(R[-5]C[-2]:RC[-2])"
    
38.     Range("F7").FormulaR1C1 = "=""Lan""&R[-6]C[-2]&""=""&R[-6]C[-1]"
    
39.     Range("F7").Copy Range("F8:F9")
    
40.     Range("F6:F9").Copy
    
41.     Selection.PasteSpecial Paste:=xlPasteValues
    
42. End Sub

½Æ»s¥N½X