n7822123

¦^´_ 4# s7659109

§Ú¼gªº¤ñ¸ûªø¤@¨Ç¡A¦ý¬O§ó¦³"¼u©Ê"¡A¾Ç¸¹¤£³sÄò¤]µL©Ò¿×

1. Sub test()
   
2. Dim tt$, Rn&, Cn&, Ri&, Ci&
   
3. Dim ¸ê®Æ½d³ò As Range, ¶ñ¼g½d³ò As Range
   
4. Set d = CreateObject("scripting.dictionary")
   
5. Sheets("data").Activate
   
6. Rn = Cells(Rows.Count, 1).End(xlUp).Row
   
7. Cn = Cells(1, Columns.Count).End(xlToLeft).Column
   
8. Set ¸ê®Æ½d³ò = [b2].Resize(Rn - 1, Cn - 1)
   
9. '¿é¤J¸ê®Æ¨ì¦r¨å
   
10. For Each rg In ¸ê®Æ½d³ò
    
11.   tt = Cells(1, rg.Column).Value
    
12.   tt = tt & "," & Cells(rg.Row, 1).Value
    
13.   d(tt) = rg.Value
    
14. Next
    
15. '==========§Ú¬O¤À®æ½u==========
    
16. Sheets("test").Activate
    
17. Ri = Cells(Rows.Count, 1).End(xlUp).Row
    
18. Ci = Cells(1, Columns.Count).End(xlToLeft).Column
    
19. Set ¶ñ¼g½d³ò = [b2].Resize(Ri - 1, Ci - 1)
    
20. '±q¦r¨å¿é¥X¸ê®Æ
    
21. For Each rg In ¶ñ¼g½d³ò
    
22.   tt = Cells(1, rg.Column).Value
    
23.   tt = tt & "," & Cells(rg.Row, 1).Value
    
24.   rg.Value = d(tt)
    
25. Next
    
26. End Sub

½Æ»s¥N½X

¨Ï¥Î数组©M¦r¨å1070929.rar (13.22 KB)

¤U¸ü¦¸¼Æ: 7

2018-9-29 03:19

n7822123

¦^´_ 5# n7822123

ªøÂkªø¡A¦ý¬OÀ³¸Ó«Ü¦n²z¸Ñ
¦]¬°§AªºÀɮ׬O·sª©ªº".xlsm"¡A
¤£µM·Ç¤jÀ³¸Ó¦­´N¦^§A¤F¡A

³o¸Ì«Ü¦h°ª¤â³£ÁÙ¦b¥Îª©excel¡A
¤U¦¸­n§ÖÂI±o¨ìµª®×®É¡A«Øij¤W¶ÇªºÀÉ®×¥Î".xls"
¥H¤W¬O¤ß±o¤À¨É
:D

¥t¦sª©excel ¦p¤U¡A³o¼Ë´N¦³§ó¦h¤H¥[¤J°Q½×!
¨Ï¥Î数组©M¦r¨å1070929.rar (8.73 KB)

¤U¸ü¦¸¼Æ: 5

2018-9-29 03:43

n7822123

¦^´_ 13# s7659109


   ¨Ó·½¸ê®Æ»P­n¶K¤Jªº¸ê®Æ¡A»Ý­n«Ø¥ß1-1¹ïÀ³Ãö«Y

   ¦pªG¨S¦³³W«ßªº¸Ü¡AÀ³¸Ó¬O¨S¿ìªk¥ÎÅܼƨú¥Nªº

  °£«D­n¼g§PÂ_¦¡§ä¥X2­Ó¤u§@ªíªº¹ïÀ³Ãö«Y¡A³o¼Ë´N¸ò§Aªº©RÃD:¤£»Ý§PÂ_½Ä¬ð¤F¡C

n7822123

¦^´_ 14# n7822123


ÆF¥ú¤@°{¡A³o¼ËÀ³¸Óº¡·N¤F§a!?
µ{§Ç:test2

1. Sub test2()
   
2. Set d = CreateObject("scripting.dictionary")
   
3. Dim Rn&, Cn&, arr
   
4. Sheets("data").Activate
   
5. Rn = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
   
6. Cn = Cells(1, Columns.Count).End(xlToLeft).Column
   
7. For C = 2 To Cn: d(Cells(1, C).Value) = Cells(2, C).Resize(Rn - 1, 1): Next C
   
8. Sheets("test").Activate: Cn = Cells(1, Columns.Count).End(xlToLeft).Column
   
9. For C = 2 To Cn: Cells(2, C).Resize(Rn - 1, 1) = d(Cells(1, C).Value): Next C
   
10. End Sub

½Æ»s¥N½X

¨Ï¥Î数组©M¦r¨å1071002+.rar (12.29 KB)

¤U¸ü¦¸¼Æ: 2

2018-10-2 23:25

n7822123

¦^´_ 16# s7659109


½Ð¨Ï¥Î§Aªþ¥ó¸Ì­±ªº "test2"µ{§Ç!

test1 »P test2 ³£¥i¥H²Å¦X§Aªº»Ý¨D¡A¤£¦P¼gªk
test1 ³Ì¼u©Ê¡A¾Ç¸¹¤]¤£³sÄò¤]¥i¥H!

sheet2.test µ{§Ç¬O§A¦Û¤v­ì¥»ªº!
¦³ÂIµL¨¥.....

«öAlt+F8

¤U¸ü (22.87 KB)

2018-10-4 01:25

n7822123

¦^´_ 18# s7659109

À³¸Ó¤£¬O·í¤F¡A3¸Uµ§­n°õ¦æ¤@¬q®É¶¡!
¦r¨åª«¥óªºkey¿é¤J¦r¦ê«¬ºA¥i´£¤É³t«×(³o¤]¬O¸ò·Ç¤j¾Ç²ßªº)
test1 ¤£»Ý­×§ï
µ{§Ç test2­×§ï¦p¤U

Sub test2()
Set d = CreateObject("scripting.dictionary")
Dim Rn&, Cn&, arr, tt$
Sheets("data").Activate
Rn = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
Cn = Cells(1, Columns.Count).End(xlToLeft).Column
For C = 2 To Cn
  tt = Cells(1, C).Value
  d(tt) = Cells(2, C).Resize(Rn - 1, 1)
Next C
Sheets("test").Activate
Cn = Cells(1, Columns.Count).End(xlToLeft).Column
For C = 2 To Cn
  tt = Cells(1, C).Value
  Cells(2, C).Resize(Rn - 1, 1) = d(tt)
Next C
End Sub

¨Ï¥Î数组©M¦r¨å1071004.rar (8.64 KB)

¤U¸ü¦¸¼Æ: 8

2018-10-4 11:25