返回列表 上一主題 發帖

請教比對工作表相同的項目

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-4-13 19:50 | 顯示全部帖子
回復 3# bhsm
  1. Sub YY()
  2. R = 1: C = 0
  3. Sheets("相同").Columns("A:B") = ""
  4. For Each Sh In Sheets
  5.   If Sh.Name <> "相同" Then
  6.      For Each Rng In Range(Sh.[A6], Sh.[A6].End(xlDown))
  7.        With Sheets("相同")
  8.          If Application.CountIf(.Columns("A"), Rng.Value) = 0 Then
  9.             .Cells(R, 1) = Rng.Value
  10.             .Cells(R, 2) = C + 1
  11.             R = R + 1
  12.          Else
  13.             x = Application.Match(Rng.Value, .Columns("A"), 0)
  14.             .Cells(x, 2) = .Cells(x, 2) + 1
  15.          End If
  16.        End With
  17.      Next
  18.   End If
  19. Next
  20. End Sub
複製代碼

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題