帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-6-3 09:56 | 只看該作者

[發問] vba特定格式刪除

如何把清冊中的特定格式刪除(標是顏色部份)，在資料往上遞補，因為每一階段的資料有所不同，所以表格上的每列資料不相同(沒有固定)，請老師幫忙，謝謝!
附檔解題:

20160603.rar (21.62 KB)

樓主熱帖

man65boy

中學生 Rank: 2

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

18^#

發表於 2016-6-6 11:06 | 只看該作者

回復 16# GBKEE

感謝GBKEE板大的回答，非常的符合表單的需求，因為原始檔牽涉到物件機密，致使不敢上傳真正的問題格式，真的只能稍佳修改上傳發問，但沒想到問題不是普通雜，經2位老師的幫忙，也給小弟有更多的學習知識，真的感謝你們，感恩!

TOP

man65boy

中學生 Rank: 2

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

17^#

發表於 2016-6-6 11:00 | 只看該作者

回復 15# c_c_lai

謝謝c_c_lai大大的幫忙，給小弟有更多可應用的範本與方法，
c_c_lai大大說的:每個人均有自己的思考方向，
只要是好的詮釋、或是更佳的技巧處理都是值得我們學習的。
所言甚是阿，牢記在心底。謝謝你!!!

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

16^#

發表於 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元的贊助,人人有能力.

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

15^#

發表於 2016-6-5 20:48 | 只看該作者

回復 14# man65boy
你認為處理的思考方向 OK 的話，就以你的想法去達成它。
論壇只是一個釋疑與學習的場合，每個人均有自己的思考方向，
只要是好的詮釋、或是更佳的技巧處理都是值得我們學習的。

TOP

man65boy

中學生 Rank: 2

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

14^#

發表於 2016-6-5 13:41 | 只看該作者

回復 13# c_c_lai

謝謝大大和版主的回覆，那如果改用固定列的刪除法要如何用，意思是，工作表上的1~3列刪除，41~45列刪除，82~86，123~127刪除......以此類推，(資料我看大致上除了第一頁的資料是37列外，其餘都是36列)
然後再把資造整合在一起，這樣可能比較單純，謝謝老師們幫忙，附檔

刪除特定格式cc.rar (22.94 KB)

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

13^#

發表於 2016-6-5 07:02 | 只看該作者

回復 9# man65boy
就如 GBKEE 大大的提示 (#12) 做修正，
便 OK 了！

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

12^#

發表於 2016-6-5 05:55 | 只看該作者

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

Set Rng(1) = Sh.Cells.Find(Sh.Range("a4"), Sh.Range("a4"), LookAt:=xlWhole)
' 加上這參數 , XlLookAt 常數之一：xlWhole 或 xlPart。

複製代碼

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

11^#

發表於 2016-6-4 20:19 | 只看該作者

回復 9# man65boy
如果你想要將 A4 的儲存格文字 (物品編號) 改為 (日期)，
理論上是 OK 的。
但是在你的 A3 欄位的值是 Rng(1) = " 製表日期: " : Range/Range
程式在最後一次執行 Set Rng(1) = Sh.Cells.FindNext(Rng(1)) 時，
回頭搜尋 (FindNext()) 卻抓到了A3 欄位的值，而非 A4 的儲存格文字 (日期)。

接著程式繼續往下執行到
Set Rng(2) = Union(Rng(2), Rng(1).Offset(-3).Resize(4).EntireRow)
在 Rng(1).Offset(-3) 便產出了錯誤訊息 ('1004')；因為此時
Rng(1).Address(0, 0) = "A3" : String，而 Rng(1).Offset(-3) 的位址為 A0，
已經超出表單的範圍。

TOP

Kubi

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

10^#

發表於 2016-6-4 20:11 | 只看該作者

回復 9# man65boy
另外一種解法，請參考

刪除特定格式BB-1.rar (20.44 KB) 。

TOP