- توردا
- 3 سائەت
- ئاخىرقى قېتىم
- 2011-3-5
- تىزىملاتقان
- 2010-8-13
- شۆھرەت
- 80
- تىللا
- 72
- تۆھپە
- 52
- ھوقۇقى
- 30
- جۇغلانما
- 297
- ئالبوم
- 0
- بلوگ
- 0
- خاتىرە
- 0
- يازما
- 13
- تېما
- 5
- نادىر
- 0
- ھەمبەھر
- 0
- UID
- 225
 
- تۆھپە
- 52
- تىللا
- 72
- شۆھرەت
- 80
|
مەن excel دا قايتىلانغان مەزمۇننى تېپىش كودىنى يوللىدىم پايدىلىنىش قىممىتى بار دەپ قارىغۇچىلارنىڭ پايدىلىنىشىنى ئۈمىد قىلىمەن. (نۇرغۇنلىغان مەزمۇنلار ئىچىدىكى قايتىلانغان مەزمۇننى تاپقىلى بۇلىدۇ)
- num = ActiveSheet.Range("a65536").End(xlUp).Row
- For i = 1 To num
- a = 0
- For j = 1 To num
- If ActiveSheet.Cells(i, 1) = ActiveSheet.Cells(j, 1) And ActiveSheet.Cells(i, 1) <> "" Then
- a = a + 1
- If a > 1 Then
- ActiveSheet.Cells(j, 4) = "重复"
- End If
- End If
- Next j
- Next i
بۇ كودنى 视图 — 工具栏 — 窗体 ئارقىلىق بىر دانە كوماندا كۇنۇپكىسى قىستۇرغاندىن كىيىن كود رايۇنىغا كۈچۈرسىڭىز بۇلىدۇ.
تەكشۈرىدىغان مەزمۇن چۇقۇم A سىتوندا بۇلىشى كىرەك، Dسىتوندا 重复 دىگەن خەت كۈرۈنگەن مەزمۇننىڭ ھەممىسى قايتىلانغان مەزمۇن بۇلىدۇ. ئەگەر 重复 دىگەن خەت كۈرۈنگەن سىتوننى تەڭشىمەكچى بولسىڭىز
- ActiveSheet.Cells(j, 4) = "重复"
|
|
يوللانغان ۋاقتى 2010-8-13 19:39
يوللانغان ۋاقتى 2010-8-13 20:44
