yen956

¦^´_ 8# missbb
¸Õ¸Õ¬Ýµ²ªG¦p¤U(§Ú¸Õ¹L¤F, À³¸Ó¨S°ÝÃD)¡G

1. Option Explicit
   
2. Private Sub CommandButton1_Click()
   
3.     Dim blankRow, endRow As Long
   
4.     Dim i As Integer
   
5.    
   
6.     '[A65536].End(xlUp)¡÷¥Ñ¤U©¹¤W§ä, ª½¨ì§ä¨ì«DªÅ¥Õ®æ¬°¤î
   
7.     endRow = [A65536].End(xlUp).Row
   
8.    
   
9.     'FYxxxx ¥i¯à¤£¥u¤@­Ó
   
10.     [O3] = "=MATCH(R2C15,R1C17:R1C50)+15"
    
11.     i = 1
    
12.     Do
    
13.         i = i + 1
    
14.         If Cells(i, 1) = "Employee No." Then
    
15.             blankRow = [P65536].End(xlUp).Row + 1
    
16.             Cells(blankRow, 16) = Cells(i, 6)
    
17.             Do
    
18.                 i = i + 1
    
19.                 If Left(Cells(i, 1), 2) = "FY" Then
    
20.                     [O2] = Cells(i, 1)
    
21.                     Cells(blankRow, [O3]) = Cells(i, 10)
    
22.                     Cells(blankRow, [O3] + 1) = Cells(i, 12)
    
23.                     
    
24.                 End If
    
25.             Loop Until i >= endRow Or Cells(i + 1, 1) = "Employee No."
    
26.             If i >= endRow Then Exit Sub
    
27.         End If
    
28.     Loop Until i >= endRow
    
29. End Sub

½Æ»s¥N½X

missbb

¦^´_ 11# yen956
¦p¥Î¨ç¼Æ¥i¥H¶Ü? ¦³¨Ç¦P¨Æ¹ïVBA¤£¼ôÃÑ, ­nµy§@§ó§ï·|§xÃø¤@ÂI.:'(

yen956

¦^´_ 12# missbb
²`·P©êºp, §Ú¤]¥¿¦b·|¾Ç¤½¦¡. À°¤£¤W¦£.

missbb

¦^´_ 13# yen956


    ¤£ºò­n, Á§AªºÀ°¦£.

Hsieh

¦^´_ 8# missbb
¸Õ¸Õ¬ÝªþÀÉ¡Aª`·N¦WºÙx,y
course3.zip (21.47 KB)

¤U¸ü¦¸¼Æ: 9

2014-3-13 15:45

yen956

¦^´_ 8# missbb
¤j¤j§A¦n:
§Aªºcourse3.xlsxÀɮײÄ43¦æ, ¦p¤U:
FY13M2                                          FY13M2                          10.01.2013          C75                  E40
¬O¤£¬O§Ñ¤F¼Ð¥Ü¬°Employee No.120008ªºÃC¦â,
©Î¬O²Ä¤Tµ§¤£¥Î³B²z?

is681003

¨ä¤¤¤@¨Ç¤è¦¡

J3°}¦C¤½¦¡
=IFERROR(LOOKUP(2,1/(OFFSET($A$1,MATCH($I3,$B:$B,0),,MATCH(1,1/(OFFSET($A$1,MATCH($I3,$B:$B,0),,1000,)=""),0),)=J$2),OFFSET($A$1,MATCH($I3,$B:$B,0),1,MATCH(1,1/(OFFSET($A$1,MATCH($I3,$B:$B,0),,1000,)=""),0),)),"")
K3°}¦C¤½¦¡
=IFERROR(LOOKUP(2,1/(OFFSET($A$1,MATCH($I3,$B:$B,0),,MATCH(1,1/(OFFSET($A$1,MATCH($I3,$B:$B,0),,1000,)=""),0),)=J$2),OFFSET($A$1,MATCH($I3,$B:$B,0),4,MATCH(1,1/(OFFSET($A$1,MATCH($I3,$B:$B,0),,1000,)=""),0),)),"")
¦V¥k¦V¤U½Æ»s

missbb

¦^´_ 17# is681003

¦hÁ½ç±Ð.