推 zchien:真感謝..我想破頭..原來只要這麼簡單的方式... 07/30 11:52
※ 引述《zchien (小建)》之銘言：
錯的地方明顯是COUNT計算的地方
不過你根本不需要COUNT這參數
: count = 1
: For n = 2 To Sheet2_Row
: For m = 1 To Sheet1_Row
: If Sheet2資料(n) = Sheet1資料(m) Then
: For k = 1 To i - 1
: If Sheet2時間(k) = Sheet1時間(m) Then
: Worksheets("sheet2").Cells(n, k + 1) = count
改成 sheet2.cells(n, k + 1)=sheet2.cells(n, k + 1)+1
COUNT拿掉 簡單不會出錯
: count = count + 1
: End If
: Next k
: End If
: Next m
: count = 1
: Next n
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 1.162.162.142