[µo°Ý] [¤w¸Ñ¨M]¼Æ¦r±Æ¦C

jiuhtsair

¦U¦ì¤j¤j¦n¡G ¼Æ¦r±Æ¦C.zip (7.58 KB)

¤U¸ü¦¸¼Æ: 4

2012-2-7 23:06

    §Ì¦³¤@­Ó4*5ªº°}¦C¡A·Q±N¥L¨Ì§Ç©ñ¦b¦ì¸m¤W¡C
    ¸ê®Æ¦pªþÀÉ
    ¨Ò¦p¡A03 ´N©ñ¦A3¨º¤@Äæ¡A12´N©ñ¦b12¨º¤@Äæ..
      §Ìªº·Qªk¬O§Q¥Î°j°é¨Ó§¹¦¨..
      ¦ý¬O¼gµ{¦¡ªº¹Lµ{¡A¸õ¥X°õ¦æ¶¥¬q¿ù»~¡§1004¡¨¡AÀ³¥Îµ{¦¡©Îª«¥ó¤Wªº¿ù»~¡C
    ·Q½Ð¤j¤jÀ°§Ì¬Ý¬Ý¬O­þ¸Ì»Ý­n­×§ï¡CÁÂÁ¡I

jiuhtsair

¦^´_ 4# GBKEE
·PÁÂGBKEE¤j¤j´£¨Ñªº¨â­Ó¤è¦¡¡I
Åý¤p§Ì¥i¥H¾Ç²ß¨ì§ó¦hªº¸Ñªk¡I
ÁÂÁ¡I·P®¦¡I

GBKEE

¦^´_ 1# jiuhtsair

1. Sub Ex()
   
2.     Dim k As Integer                    '«Å§i¬°¼Æ¦r«¬ºA
   
3.     [h1].Offset(1).Resize(3, 20) = ""   '[h1]ªº¤U¤@¦C¦ì¸m: ÂX¥R 3¦C20Ä檺¦ì¸m
   
4.     For i = 2 To 4                      '²Ä2¦C - ²Ä4¦C
   
5.         For j = 3 To 7                  '²Ä3Äæ - ²Ä7Äæ
   
6.             k = Sheets(1).Cells(i, j)   'Sheets(1).Cells(i, j)ªº¤º®e¬°¦r¦ê«¬ºA
   
7.             'k ¤w«Å§i¬°¼Æ¦r: ±N¦r¦ê«¬ºAÂà´«¬°¼Æ¦r«¬ºA
   
8.             'Sheets(1).[h1].Cells(i, k) = k '[h1]ªº²Ä i ¦C,²Ä k Äæ=k
   
9.             
   
10.             Sheets(1).[h1].Cells(i, k) = "'" & k '[h1]ªº²Ä i ¦C,²Ä k Äæ=k
    
11.             ' "'" & k  ¼Æ¦rÂà´«¬°¤å¦r
    
12.         Next j
    
13.    Next i
    
14. End Sub
    
15. Sub Ex1()
    
16.     Dim E As Range
    
17.     [h1].Offset(1).Resize(3, 20) = ""
    
18.     For Each E In [C2:G4]                       '             '¨Ì§Ç¦b[C2:G4] ªº¨C¤@Àx¦s®æ
    
19.             Sheets(1).[h1].Cells(E.Row, E) = E        '=­ì¥»ªº¤å¦r«¬ºA
    
20.             'Cells(E.Row, E)   E.Row : Àx¦s®æªº¦C¸¹ ,  E : Àx¦s®æªº¤º®e( ¤º®e¦p¬°¦r¦ê  ¨t²Î ¦Û°ÊÂà´«¬°¼Æ¦r )
    
21.             'Sheets(1).[h1].Cells(E.Row, E) = E.Value '=¼Æ¦r«¬ºA
    
22.    Next
    
23. End Sub

½Æ»s¥N½X

jiuhtsair

¦^´_ 2# register313
·PÁÂregister313¤j¤j¸Ñ´b¡I
¹ï©óCellsªºÀ³¥Î¤S¦h¾Ç·|¤F¤@¶µ¡C·PÁ¡I

register313

¦^´_ 1# jiuhtsair

¨Ï¥Î¤½¦¡
H2=IF(COUNTIF($C2:$G2,H$1)>0,H$1,"")

¤U¸ü (44.83 KB)

2012-2-7 23:27

¨Ï¥ÎVBA

1. Sub AA()
   
2. Range("H2:AA4") = ""
   
3. For I = 2 To 4
   
4.   For J = 3 To 7
   
5.     Cells(I, J).Copy Cells(I, 7 + Cells(I, J))
   
6.   Next J
   
7. Next I
   
8. End Sub

½Æ»s¥N½X