標題: [發問] 關於刪除重複該如何只讓他刪除重複~但是空格例外! [打印本頁]

---

作者: av8d    時間: 2011-9-2 15:58     標題: 關於刪除重複該如何只讓他刪除重複~但是空格例外!

巨集如下
        Columns("A:W").Select
        Application.CutCopyMode = False
        ActiveSheet.Range("$A$1:$W$1000").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, _
        6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23), Header:=xlNo

巨集有的時候有Application.CutCopyMode = False有的時候沒有
想知道一下這個是什麼?

關於刪除重複該如何只讓他刪除重複~但是空格例外!也就是說空格不用特地去刪除他~

---

作者: oobird    時間: 2011-9-3 10:24

多看幫助文件。
Application.CutCopyMode
傳回或設定 [剪下] 或 [複製] 模式的狀態。可為 True、False 或一個 XLCutCopyMode 常數，如下列表格所示。讀/寫 Long。

傳回值 描述
False 不處於 [剪下] 或 [複製] 模式
xlCopy 處於 [複製] 模式
xlCut 處於 [剪下] 模式

設定值 描述
False 取消 [剪下] 或 [複製] 模式並移除移動框線。
True 取消 [剪下] 或 [複製] 模式並移除移動框線。

---

作者: GBKEE    時間: 2011-9-3 11:08

本帖最後由 GBKEE 於 2011-9-3 11:09 編輯

回復 1# av8d
Application.CutCopyMode = False有的時候沒有

1. Sub Ex()
   
2.     Selection.Cut            '方法->剪下
   
3.     MyCutCopyMode
   
4.    
   
5.     Selection.Copy           '方法->複製
   
6.     MyCutCopyMode
   
7.    
   
8.     Application.CutCopyMode = xlCopy
   
9.     MyCutCopyMode
   
10.    
    
11.     Application.CutCopyMode = xlCut
    
12.     MyCutCopyMode
    
13.    
    
14.     Application.CutCopyMode = True
    
15.     MyCutCopyMode
    
16.    
    
17.     Application.CutCopyMode = False
    
18.     MyCutCopyMode
    
19. End Sub
    
20. Private Sub MyCutCopyMode()
    
21.     Select Case Application.CutCopyMode
    
22.         Case Is = False
    
23.             MsgBox "Not in Cut or Copy mode"
    
24.         Case Is = xlCopy
    
25.             MsgBox "In Copy mode"
    
26.         Case Is = xlCut
    
27.             MsgBox "In Cut mode"
    
28.     End Select
    
29. End Sub

複製代碼

---

作者: av8d    時間: 2011-9-5 13:12

雖然不太瞭解意思~但是也多學了一樣~謝謝兩位!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)