返回列表 上一主題 發帖

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

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-2-17 13:07 | 顯示全部帖子

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

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

我忘記在某板大大所提供的程式如下
  1.     Dim Rng As Range, Ar, i%
  2.     Set Rng = [C1:C10]
  3.     Ar = Application.Transpose(Rng)
  4.     For i = UBound(Ar) To 1 Step -1
  5.         If Application.CountIf(Rng, "=" & Ar(i)) > 1 Then Rng(i) = ""
  6.     Next    ''
  7.     ''''''''''上面程式碼  將重複資料的位置為空白 ''''''''''''''''''''''''
  8.     Rng.SpecialCells(xlCellTypeBlanks).Delete xlUp    '空白位置刪除的動作
複製代碼
當沒有重複的時候，程式會跑錯誤
Rng.SpecialCells(xlCellTypeBlanks).Delete xlUp    '空白位置刪除的動作
我該如何改寫判斷呢?謝謝!

我剛改寫了一下，好像是這樣就可以了，不知道對不不對，如下
  1.     Dim Rng As Range, Ar, i%
  2.     Set Rng = [C1:C10]
  3.     Ar = Application.Transpose(Rng)
  4.     For i = UBound(Ar) To 1 Step -1
  5.         If Application.CountIf(Rng, "=" & Ar(i)) > 1 Then
  6.         Rng(i) = ""
  7.         Rng.SpecialCells(xlCellTypeBlanks).Delete xlUp    '空白位置刪除的動作
  8.         End If
  9.     Next    ''
複製代碼
收藏 分享

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
2#
發表於 2012-2-23 16:03 | 顯示全部帖子
回復 2# GBKEE


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

更改成空白列~


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

TOP

        靜思自在 : 不怕事多，只怕多事。
返回列表 上一主題