ÁÙ­ì»P³Æ¥÷

myleoyes

¦U¦ì«e½ú§A­Ì¦n!
¡@¡@      «e½ú!°ÝÃD¦pªþÀÉ®×»¡©ú¡@
            ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

GBKEE

¦^´_ 1# myleoyes

1. Sub ÁÙ­ì()
   
2.     Dim F As Range
   
3.     With ActiveSheet
   
4.         Set F = .Rows(1).Cells.Find(.Cells(1, ActiveCell.Column))
   
5.         If F = "" Then
   
6.             MsgBox "¨S¦³¼ÐÃD"
   
7.             Exit Sub
   
8.         End If
   
9.         Set F = .Range(F.Offset(2), F.Offset(, 20).End(xlDown))
   
10.     End With
    
11.     Sheets("¤ÀªR").Select
    
12.     Range("A3:U" & Range("A3").End(xlDown).Row).Clear
    
13.     F.Copy Range("A3")
    
14. End Sub

½Æ»s¥N½X

myleoyes

GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!!«z¤Ó´ÎÅo!!±µµÛ³Æ¥÷µ{¦¡½Ð¦A¨¯­WÅo!
              ¦pªþÀÉ®×»¡©ú½Ð¦A¨¯­WÅo!ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 3# myleoyes

1. Sub ¤ñ¹ï³Æ¥÷()
   
2.     Dim d As Object, Rng As Range, E As Range, M%, R, i%
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With Sheets("¤ñ¹ï³Æ¥÷")
   
5.         If .Range("iv1").End(xlToLeft).Column > 1 Then '¤w¦³³Æ¥÷¸ê®Æ
   
6.             Set Rng = .Range("B1", .Range("iv1").End(xlToLeft))  '³Æ¥÷¸ê®ÆÄæ¦ì½d³ò
   
7.             Set E = Rng(1, Rng.Columns.Count + 1)   '³]¥ß­n¥[¤J³Æ¥÷¸ê®ÆÄæ¦ìªº¦ì¸m
   
8.             M = Application.Max(Rng)                '¨ú±o¤w¦³³Æ¥÷¸ê®Æ¤¤²Ä1¦C¤º¬Û¦P¶µ¥Øªº³Ì¤j¼Æ
   
9.         Else                                        '¨S¦³³Æ¥÷¸ê®Æ
   
10.             Set E = .Range("B1")
    
11.             M = 0
    
12.         End If
    
13.     End With
    
14.     Set Rng = Range("A1").CurrentRegion
    
15.     Set Rng = Range("C1", Rng(Rng.Rows.Count, Rng.Columns.Count)) '³Æ¥÷¸ê®Æªº½d³ò
    
16.     i = 1
    
17.     For Each R In Rng.Rows(1).Cells
    
18.         If Not d.Exists(R.Value) Then
    
19.             d(R.Value) = i   '³]©w½Æ»s¸ê®Æ¤º²Ä1¦C¬Û¦P¶µ¥Øªº¼Æ­È
    
20.             i = i + 1
    
21.         End If
    
22.     Next
    
23.     Rng.Copy E
    
24.     i = 0
    
25.     Do While E.Offset(, i) <> ""
    
26.         If d.Exists(E.Offset(, i).Value) Then E.Offset(, i) = d(E.Offset(, i).Value) + M
    
27.         '­×§ï½Æ»s¸ê®Æ«á ²Ä1¦C¬Û¦P¶µ¥Ø·s¼Wªº¼Æ­È
    
28.         '->³]©w½Æ»s¸ê®Æ¤º²Ä1¦C¬Û¦P¶µ¥Øªº¼Æ­È + ¤w¦³³Æ¥÷¸ê®Æ¤¤²Ä1¦C¤º¬Û¦P¶µ¥Øªº³Ì¤j¼Æ
    
29.         i = i + 1
    
30.     Loop
    
31. End Sub

½Æ»s¥N½X

myleoyes

¦^´_ 4# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!!µ{¦¡ªº½s¸¹¦³¥X¤J...
              ¦pªþÀÉ®×»¡©ú½Ð¦A¨¯­WÅo!ÁÂÁ¦A¤T!!
              ±ß¦w!!

GBKEE

¦^´_ 5# myleoyes
½Ð¥[¤W¬õ¦â³¡¤À
Do While E.Offset(, i) <> ""
        If d.Exists(E.Offset(, i).Value) Then E.Offset(, i) = d(E.Offset(, i).Value) + M
        '­×§ï½Æ»s¸ê®Æ«á ²Ä1¦C¬Û¦P¶µ¥Ø·s¼Wªº¼Æ­È
        '->³]©w½Æ»s¸ê®Æ¤º²Ä1¦C¬Û¦P¶µ¥Øªº¼Æ­È + ¤w¦³³Æ¥÷¸ê®Æ¤¤²Ä1¦C¤º¬Û¦P¶µ¥Øªº³Ì¤j¼Æ
        i = i + 1
    Loop

myleoyes

¦^´_ 6# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!!¤£¦n·N«ä½Ð¦AÀ°¦£³o­Ó§R°£¶s
                  ¦pªþÀÉ®×»¡©ú½Ð¦A¨¯­WÅo!ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 7# myleoyes

1. Sub §R°£()
   
2.     Dim F As Range, i%
   
3.     With ActiveSheet
   
4.         Set F = .Rows(1).Cells.Find(.Cells(1, ActiveCell.Column))
   
5.         i = 1
   
6.         Do
   
7.             If F.Offset(, i) <> F Then
   
8.                 Set F = .Range(F, F.Offset(, i - 1))
   
9.                 Exit Do
   
10.             End If
    
11.             i = i + 1
    
12.         Loop
    
13.     End With
    
14.     F.EntireColumn.Delete
    
15. End Sub

½Æ»s¥N½X

myleoyes

¦^´_ 8# GBKEE
  
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!!µ{¦¡¦³°ÝÃD
            ¦pªþÀÉ®×»¡©ú½Ð¦A¨¯­WÅo!ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 9# myleoyes
§Ú°õ¦æ¨S¦³°ÝÃDªº ¿ï¾Ü¨º¤@­Ó½s¸¹ ´N§R±¼¨º¤@­Ó½s¸¹ªº½d³ò¨S¿ù
¬°¨¾¤î¿ù»~­×§ï¦p¤U

1. Sub §R°£()
   
2.     Dim F As Range, i%
   
3.     If ActiveCell.Column <= 2 Then Exit Sub
   
4.     With ActiveSheet
   
5.         Set F = .Rows(1).Cells.Find(.Cells(1, ActiveCell.Column))
   
6.         If F = "" Then Exit Sub
   
7.         i = 1
   
8.         Do
   
9.             If F.Offset(, i) <> F Then
   
10.                 Set F = .Range(F, F.Offset(, i - 1))
    
11.                 Exit Do
    
12.             End If
    
13.             i = i + 1
    
14.         Loop
    
15.     End With
    
16.     F.EntireColumn.Delete
    
17. End Sub

½Æ»s¥N½X