帖子: 87
主題: 26
精華: 0
積分: 119
點名: 0
作業系統: win 7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2010-5-7
最後登錄: 2020-9-28

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-6-26 16:08 | 只看該作者

刪除列之vba寫法

求較各位先進
在 Sheet1內想刪除 column c 內非屬於 cat  之各列應如何寫
      A    B       C    D
1    23 34 cat    34
2    12 23 dog 23
3    34 12    yy    12
4    45 34 cat    45
5    23 23 dog 23
刪除  2 3 5 Rows  只剩
      A    B       C    D
  1    23 34 cat    34
  2    45 34 cat    45
thanks

樓主熱帖

ssooi

中學生 Rank: 2

帖子: 37
主題: 15
精華: 0
積分: 72
點名: 0
作業系統: win10
軟體版本: 0
閱讀權限: 20
註冊時間: 2020-7-23
最後登錄: 2022-5-27

27^#

發表於 2020-12-19 22:35 | 只看該作者

原來如此
物件裡面一堆數值
看的眼都花了
謝謝

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

26^#

發表於 2020-12-18 23:38 | 只看該作者

本帖最後由 luhpro 於 2020-12-19 00:02 編輯

回復 GBKEE

請問.......
如果我用「區域變數」來觀察他的變化
我該看rng裡面哪個數值？
裡面大概 ...
ssooi 發表於 2020-12-18 13:26

關於７＃
要看的關鍵在那一行 : Rng = Union(Rng, R)
結果是個 "儲存格集合(即Range Union)".
儲存格本身是個 "物件" 組成元素太多了,
而我們要看的是該集合中變化(加減)了哪個儲存格,
所以只需要了解Union組成中儲存格的 "位址" 變化就夠了,
運算式用 :  Rng.address

關於２１＃
要看的關鍵在那一行 : Set xU = Union(xU, xR)
運算式用 :  xU.address

在 "即時運算視窗" 中打上 ?(上述的運算式)
例如 :  ?Rng.address
再按 Enter 就可以知道集合中儲存格物件的增減(觀看顯示的位址群變化).

若不想F8跑一步就要按Enter看一次,
也可以在 "新增監看式" 中監看 : (上述的運算式) .
例如 :  Rng.address

TOP

ssooi

中學生 Rank: 2

帖子: 37
主題: 15
精華: 0
積分: 72
點名: 0
作業系統: win10
軟體版本: 0
閱讀權限: 20
註冊時間: 2020-7-23
最後登錄: 2022-5-27

25^#

發表於 2020-12-18 13:26 | 只看該作者

回復 7# GBKEE

請問.......
如果我用「區域變數」來觀察他的變化
我該看rng裡面哪個數值？
裡面大概有30項跑不掉吧

抱歉
問了個很基礎的問題⋯⋯
但是我真的不曉得range裡面的各個數值代表的意義是什麼

TOP

ABK

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 2
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-11-15

24^#

發表於 2020-7-22 13:14 | 只看該作者

回復 23# 准提部林

感謝准堤大 !
OK了!

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

23^#

發表於 2020-7-22 09:47 | 只看該作者

回復 22# ABK

加一右斜線~~
If InStr("//cat/dog/", "/" & xR & "/") < 2 Then

TOP

ABK

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 2
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-11-15

22^#

發表於 2020-7-21 22:01 | 只看該作者

回復 21# 准提部林

謝謝准堤大 !
cat 的列也被刪除了!

column_delete.jpg (13.8 KB)

column_delete.zip (15.45 KB)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

21^#

發表於 2020-7-19 12:02 | 只看該作者

回復 20# ABK

沒檔案, 盲寫:
Sub TEST()
Dim xA As Range, xR As Range, xU As Range
Set xA = Sheets("Sheet1").UsedRange.Offset(1, 0)
For Each xR In xA.Columns(3).Cells
If InStr("/cat/dog/", "/" & xR & "/") < 2 Then
If xU Is Nothing Then Set xU = xR Else Set xU = Union(xU, xR)
End If
Next
If Not xU Is Nothing Then xU.EntireRow.Delete
End Sub

=====================

TOP

ABK

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 2
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-11-15

20^#

發表於 2020-7-18 22:08 | 只看該作者

[借題發問]
請教各位大大!  若第一列為表頭標題列( 需要保留),
在 Sheet1內想刪除 column c 內非屬於 cat 和 dog 之各列  程式要如何修改呢?

         A       B          C       D
  1 編號位置    名稱    天數
  2    23       34       cat       34
  3    12       23    dog       23
  4    34       12       yy       12
  5    45       34    cat       45
  6    23       23    dog       23
  7    13       18       xx       32

刪除  4 、7 Rows  只剩

         A       B       C       D
  1 編號位置    名稱    天數
  2    23       34       cat       34
  3    12       23    dog       23
  5    45       34       cat       45
  6    23       23    dog       23

TOP

jim

中學生 Rank: 2

帖子: 87
主題: 26
精華: 0
積分: 119
點名: 0
作業系統: win 7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2010-5-7
最後登錄: 2020-9-28

19^#

發表於 2011-7-24 13:20 | 只看該作者

oobird 先進
謝謝你的解說  試一下可行

請教一個問題在純空格上執行完全沒問題
若是再用 copy 貼上則無法執行是否在4這個指令尚有問題?
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False

TOP