Re: [算表] 用vba刪除整列數據

[soyoso (Amon)]

※ 引述《topgunguy (上面的槍手)》之銘言：
: 軟體:word, excel
: 版本:2010
: 各位OFFICE版友大家好，我想請教一個用VBA刪除數據的問題，
: 我的數據長這樣↓
: .
: .
: .
: .
: 20101117   ,  CBO  ,    36 ,  201011  ,  C     ,    12340900  ,  .01 ,    5
: 20101117   ,  CBO  ,    36 ,  201011  ,  C     ,    12340900  ,  .01 ,    5
: 20101117   ,  CCO  ,    10 ,  201011  ,  P     ,    09211800  ,  .01 ,    5
: 20101117   ,  CCO  ,    10 ,  201011  ,  P     ,    09211800  ,  .01 ,    5
: .
: .
: .x
: 一整行是一個字串，裡面空白的部分都是空格，沒有tab，
: 在excel裡只佔一格。
: 請問如果我要刪除所有CBO的那一行(格)，我可以怎麼做呢？
: 感謝~

初學可試試
=====================================
Sub test()
    Dim myRng As Range
    Dim myUnion As Range
    Dim i As Boolean
    On Error Resume Next
    For Each myRng In ActiveSheet.UsedRange
        If IsNumeric(Application.Find("CBO", myRng)) Then
            If i Then
                Set myUnion = Application.Union(myUnion, myRng.EntireRow)
            Else
                Set myUnion = myRng.EntireRow: i = True
            End If
        End If
    Next
    myUnion.Delete
End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 223.138.166.4
推 topgunguy:刪得很乾淨，感謝~
推 thethirdfoot: GOOD