vba特定格式刪除 - Excel程式區 - 麻辣家族討論版版

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2016-6-4 06:11 | 顯示全部帖子

回復 3# man65boy

試試看

Option Explicit
Sub Ex()
Dim Rng(1 To 2) As Range, Sh As Worksheet
For Each Sh In Sheets ' Sheets 物件: 活頁簿Sheet的物件集合
Set Rng(1) = Sh.Cells.Find(Sh.Range("a4"), Sh.Range("a4")) ' [物品編號 ]所在列:為所有工作表表單上的共通點
If Not Rng(1) Is Nothing Then '工作表上有尋找到 [物品編號 ]
Set Rng(2) = Nothing
Do
If Rng(2) Is Nothing Then
Set Rng(2) = Rng(1).Offset(-3).Resize(4).EntireRow '[物品編號 ]所在列 ,往上4列儲存格的整列
Else
Set Rng(2) = Union(Rng(2), Rng(1).Offset(-3).Resize(4).EntireRow) ''整合:[物品編號 ]所在列 ,往上4列儲存格的整列
End If
Set Rng(1) = Sh.Cells.FindNext(Rng(1))
Loop Until Rng(1).Address(0, 0) = "A4"
If Not Rng(2) Is Nothing Then Rng(2).Delete '刪除
End If
Next
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2016-6-5 05:55 | 顯示全部帖子

回復 11# c_c_lai
8#的程式碼修改搜尋完全一樣的字串

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2016-6-6 08:48 | 顯示全部帖子

回復 14# man65boy
試試看

Sub Ex()
Dim Sh As Worksheet, Rng As Range
On Error Resume Next '程式有錯誤不理會,繼續執行下去
For Each Sh In Worksheets
Set Rng = Sh.UsedRange.Columns("I:I").Offset(4) 'Columns("I:I") 工作表資料的最後一欄 ,Offset(4) 資料第五列開始
Rng.MergeCells = False '取消合併的儲存格
Rng.Value = Rng.Value '儲存格的格式設為數字
Set Rng = Union(Rng.SpecialCells(xlCellTypeBlanks), Rng.SpecialCells(xlCellTypeConstants, xlTextValues))
'xlCellTypeBlanks 空白的儲存格, SpecialCells(xlCellTypeConstants, xlTextValues) '文字的儲存格
'UsedRange.Columns("I:I").Offset(4) 儲存格中沒有 [空白的],[文字的] 程式會錯誤
If Err = 0 Then Rng.EntireRow.Delete
If Err > 0 Then Err.Clear
Next
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

[發問] vba特定格式刪除