Re: [算表] 用vba刪除整列數據
※ 引述《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
推
01/28 14:30, , 1F
01/28 14:30, 1F
推
12/01 15:28, , 2F
12/01 15:28, 2F
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章
