Hsieh

¦^´_ 1# dodocho


   

¤U¸ü (175.96 KB)

2011-4-29 00:06

Hsieh

¦^´_ 8# ann


    ­n²Ä¤@­ÓÀx¦s®æÅã¥Ü©Ò¦³­È¡A²Ä2­ÓÀx¦s®æ¥H«áªº­È«O¯d?

¤U¸ü (141.64 KB)

2011-5-2 19:30

1. Private Sub CommandButton1_Click() '¦X¨Ö
   
2. Dim ar()
   
3. Application.ScreenUpdating = False
   
4. With Selection
   
5. adr = .Address
   
6. For Each a In .Cells
   
7. ReDim Preserve ar(s)
   
8. ar(s) = a
   
9. s = s + 1
   
10. Next
    
11. .ClearContents
    
12. For Each a In .Cells
    
13. a.Value = ar(i)
    
14. i = i + 1
    
15. Next
    
16. .Cells(1, 1).Value = Join(ar)
    
17. With Sheets.Add
    
18. Set ns = ActiveSheet
    
19. .Range(adr).Merge
    
20. .Range(adr).Copy
    
21. End With
    
22. .PasteSpecial Paste:=xlPasteFormats
    
23. Application.DisplayAlerts = False
    
24. ns.Delete
    
25. Application.DisplayAlerts = True
    
26. End With
    
27. Application.ScreenUpdating = True
    
28. End Sub
    
29. 
    
30. Private Sub CommandButton2_Click() '¤À¸Ñ
    
31. With Selection
    
32. r = 1
    
33. mystr = .Cells(1)
    
34. .UnMerge
    
35. .Cells(1) = Split(mystr, " ")(0)
    
36. End With
    
37. End Sub

½Æ»s¥N½X