※ 引述《yzhsage (Marx, Karl)》之銘言： : 簡略說明一下: : 就是每一筆R值都要跟I值和T值做比較， : R-I>0時判斷R-T是否小於零， : 若小於零則在該隔寫上Rm in An， : 並記錄An裡有幾個R； : R-T=1時則寫上Rm behind An； : 都不是就回到迴圈2。 : R-I<0時則寫上Rm in Bn； : R-I=0時就是定義錯誤 : 接下來跳到下一列寫上Cn值。 : (因為這個我不會寫就沒放進去) : 之後再跳到下一列做另一個R值的運算。 : 而在n+1時會跳到下一欄做運算。 : 不知道Excel能否完成這樣的事情， : 若不能那應該要怎麼寫VB呢？ : 因為事情很急，買書來翻似乎有點太慢， : 希望有高手可以幫忙。感恩。 : http://www.badongo.com/file/5575871 : 這是上面的範例，希望能幫助大家了解。 : 在Sheet3有一些說明，再感謝。 根據你給的檔案 寫的程式如下： ======================== Sub test() Dim m As Integer Dim n As Integer Dim R As Integer Dim I As Integer Dim T As Integer For m = 1 To 9 R = Worksheets("Sheet2").Cells(m + 1, 2).Value For n = 1 To 104 I = Worksheets("Sheet1").Cells(n + 1, 2).Value T = Worksheets("Sheet1").Cells(n + 1, 3).Value If R > I Then If R < T Then Worksheets("Sheet4").Cells(m + 1, 2).Value = "A" & n Exit For ElseIf R = T + 1 Then Worksheets("Sheet4").Cells(m + 1, 2).Value = "behind A" & n Exit For End If ElseIf R < I Then Worksheets("Sheet4").Cells(m + 1, 2).Value = "B" & n - 1 Exit For End If Next Next End Sub =========== 按Alt+F11出現編輯器後， 在左邊專案的地方按滑鼠右鍵，插入→模組，然後把上面的程式貼上去， 再按執行就好了 不過...跑出來的結果跟你的範例有差@@" 至於Sheet4的An跟S出現的個數，用Countif就可以算出來了 請先試用，有問題再問吧 -- 沒事多灌水... 多灌水沒事... --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 221.169.7.130