麻辣家族討論版版 » Excel程式區 » 請問儲存格資料比對

返回列表下一主題上一主題發帖

[發問] 請問儲存格資料比對

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-11-24 20:13 | 只看該作者

[發問] 請問儲存格資料比對

NN.rar (1.43 KB)
如C欄料號，將出現相同料號之儲存格填滿黃色標示。
謝謝

樓主熱帖

收藏

100 字節以內
不支持自定義 Discuz! 代碼

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2011-11-25 10:20 | 只看該作者

回復 6# b9208

NN.zip (2.27 KB)

學海無涯_不恥下問

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

6^#

發表於 2011-11-25 08:44 | 只看該作者

回復 5# GBKEE

今早搭車上班途中，已想到加入計數器，就可解決了。
看到版大熱心的幫忙完成。
就甘心
謝謝版大

100 字節以內
不支持自定義 Discuz! 代碼

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2011-11-25 07:54 | 只看該作者

回復 4# b9208

Option Explicit
Sub Ex()
Dim E As Range, S As Integer
For Each E In Range("c2", [c2].End(xlDown))
If Application.CountIf([c:c], E) > 1 Then
E.Interior.ColorIndex = 6
S = S + 1
Else
E.Interior.ColorIndex = xlNone
End If
Next
If S > 0 Then MsgBox "重複項目計 : " & S
End Sub

複製代碼

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

4^#

發表於 2011-11-24 23:33 | 只看該作者

回復 2# GBKEE
再請教比對結束後，
統計C欄中黃色儲存格數量。
謝謝

100 字節以內
不支持自定義 Discuz! 代碼

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

3^#

發表於 2011-11-24 22:15 | 只看該作者

回復 2# GBKEE
非常感謝 GBKEE 大大
程式碼可以使用
:)
:P

100 字節以內
不支持自定義 Discuz! 代碼

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-11-24 20:40 | 只看該作者

本帖最後由 GBKEE 於 2011-11-24 20:53 編輯

回復 1# b9208
工作表中選擇C欄後
工作表指令格式->設定格式化的條件
公式=COUNTIF(C:C,C1)>1
如圖

Sub Ex()
Dim E As Range
For Each E In Range("c2", [c2].End(xlDown))
If Application.CountIf([c:c], E) > 1 Then
E.Interior.ColorIndex = 6
Else
E.Interior.ColorIndex = xlNone
End If
Next
End Sub

複製代碼

靜思自在 : 看別人不順眼，是自己修養不夠。

返回列表下一主題上一主題