麻辣家族討論版版 » Excel程式區 » 關於移除重複額外加上一段判斷

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

[發問] 關於移除重複額外加上一段判斷

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-2-17 13:07 | 顯示全部帖子

[發問] 關於移除重複額外加上一段判斷

本帖最後由 av8d 於 2012-2-17 13:11 編輯

我忘記在某板大大所提供的程式如下

Dim Rng As Range, Ar, i%
Set Rng = [C1:C10]
Ar = Application.Transpose(Rng)
For i = UBound(Ar) To 1 Step -1
If Application.CountIf(Rng, "=" & Ar(i)) > 1 Then Rng(i) = ""
Next ''
''''''''''上面程式碼將重複資料的位置為空白 ''''''''''''''''''''''''
Rng.SpecialCells(xlCellTypeBlanks).Delete xlUp '空白位置刪除的動作

複製代碼

當沒有重複的時候，程式會跑錯誤
Rng.SpecialCells(xlCellTypeBlanks).Delete xlUp '空白位置刪除的動作
我該如何改寫判斷呢?謝謝!

我剛改寫了一下，好像是這樣就可以了，不知道對不不對，如下

Dim Rng As Range, Ar, i%
Set Rng = [C1:C10]
Ar = Application.Transpose(Rng)
For i = UBound(Ar) To 1 Step -1
If Application.CountIf(Rng, "=" & Ar(i)) > 1 Then
Rng(i) = ""
Rng.SpecialCells(xlCellTypeBlanks).Delete xlUp '空白位置刪除的動作
End If
Next ''

複製代碼

樓主熱帖

收藏

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

2^#

發表於 2012-2-23 16:03 | 顯示全部帖子

回復 2# GBKEE

大大您好~如果是要把
If Msg Then Rng.SpecialCells(xlCellTypeBlanks).Delete xlUp '空白位置刪除的動作

更改成空白列~

如果是C2就是第2列~B3就是第三列~該如何修改?

靜思自在 : 甘願做、歡喜受。

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