yen956

回復 8# missbb
試試看結果如下(我試過了, 應該沒問題)：

1. Option Explicit
   
2. Private Sub CommandButton1_Click()
   
3.     Dim blankRow, endRow As Long
   
4.     Dim i As Integer
   
5.    
   
6.     '[A65536].End(xlUp)→由下往上找, 直到找到非空白格為止
   
7.     endRow = [A65536].End(xlUp).Row
   
8.    
   
9.     'FYxxxx 可能不只一個
   
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

複製代碼

missbb

回復 11# yen956
如用函數可以嗎? 有些同事對VBA不熟識, 要稍作更改會困難一點.:'(

yen956

回復 12# missbb
深感抱歉, 我也正在會學公式. 幫不上忙.

missbb

回復 13# yen956


    不緊要, 謝你的幫忙.

Hsieh

回復 8# missbb
試試看附檔，注意名稱x,y
course3.zip (21.47 KB)

下載次數: 9

2014-3-13 15:45

yen956

回復 8# missbb
大大你好:
你的course3.xlsx檔案第43行, 如下:
FY13M2                                          FY13M2                          10.01.2013          C75                  E40
是不是忘了標示為Employee No.120008的顏色,
或是第三筆不用處理?

is681003

其中一些方式

J3陣列公式
=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陣列公式
=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),)),"")
向右向下複製

missbb

回復 17# is681003

多謝賜教.