返回列表 上一主題 發帖

[發問] 關於刪除重複該如何只讓他刪除重複~但是空格例外!

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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有的時候沒有
想知道一下這個是什麼?

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

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
4#
發表於 2011-9-5 13:12 | 只看該作者
雖然不太瞭解意思~但是也多學了一樣~謝謝兩位!

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 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
複製代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-9-3 10:24 | 只看該作者
多看幫助文件。
Application.CutCopyMode
傳回或設定 [剪下] 或 [複製] 模式的狀態。可為 True、False 或一個 XLCutCopyMode 常數，如下列表格所示。讀/寫 Long。

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

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

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題