作者pickchulin (空白)
看板Office
标题[算表] 如何用VBA删除指定条件
时间Thu Jan 23 17:29:42 2020
软体:Office
版本:Excel 2010
在网路上有查询到使用VBA删除指定数字或文字整列的语法
但这只能用在当下使用SHEET的删除
可假设我有50个SHEET，我就要重复做50次一样的动作
所以想请教版上大大，该如何修改以下巨集？
然後可以变成只要按一次，所有框选的sheet都会做删除指定行的动作呢？
(PS.要做删除的EXCEL内的每个SHEET格式在未删除行之前都会一样)
谢谢!!
-------------------以下为网路搜询到的VBA语法-----------------
Sub 删除资料1()
Dim YY
ReKey:
YY = Application.InputBox("请输入要删除的准则文字或值！")
If CStr(YY) = "False" Then Exit Sub
If YY = "" Then MsgBox "〔准则文字或值〕未输入！ ": GoTo ReKey
For i = [a65536].End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Rows(i), YY) > 0 Then Rows(i).Delete
Next i
End Sub
---------------------------------------------------------------
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 180.218.148.64 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1579771784.A.1A4.html
1F：→ soyoso: 在内文回圈外再设个回圈来包，回圈for each..next於 01/23 17:33
2F：→ soyoso: sheets或worksheets集合，或for...next终止值为worksheets 01/23 17:34
3F：→ soyoso: .count 01/23 17:35
4F：→ soyoso: 回圈时要设为作用工作表的话worksheet.activate或select 01/23 17:39
5F：→ pickchulin: S大，抱歉，我不会写语法，所以看不是很懂，是指要在 01/28 09:38
6F：→ pickchulin: 最後一段再加上您讲的那个吗？谢谢 01/28 09:38
7F：→ soyoso: 不是最後一段再加上，回圈外再设个回圈来包方面，为巢状回 01/28 09:43
8F：→ soyoso: 圈 01/28 09:43
9F：→ soyoso: for each／for 01/28 09:45
10F：→ soyoso: 设为作用工作表的话worksheet.activate或select 01/28 09:45
11F：→ soyoso: for i =.... 01/28 09:45
12F：→ soyoso: next 01/28 09:45
13F：→ soyoso: next 01/28 09:45
14F：→ pickchulin: 谢谢S大，我再来试试看看:) 02/01 22:49