麻辣家族討論版版 » Excel程式區 » 請教VBA刪除A欄指定"中文"字元(列)

返回列表下一主題上一主題發帖

請教VBA刪除A欄指定"中文"字元(列)

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2017-3-2 17:17 | 顯示全部帖子

請教VBA刪除A欄指定"中文"字元(列)

各位大大，
之前有請教大家使用下列語法可以刪除指定字元
For Each x In Split("TPD.TPD-both.TPD-viewing.GSA", ".")
我想把這一段改成刪除類別: 以及會計科目:

我改成
For Each x In Split("類別:"."會計科目:", ".")
但出現錯誤

是否語法須修訂

Sub Step1()
Dim d As Object
Dim arr
st = Timer
Set d = CreateObject("Scripting.Dictionary")
For Each x In Split("TPD.TPD-both.TPD-viewing.GSA", ".")
d(x) = ""
Next x
arr = Range("A1:A" & ActiveSheet.UsedRange.Rows.Count)
For I = 1 To UBound(arr)
If d.exists(arr(I, 1)) Then arr(I, 1) = ""
Next I
[A1].Resize(UBound(arr), 1) = arr
Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Set d = Nothing
arr = ""
End Sub

樓主熱帖

收藏

Just do it.

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

2^#

發表於 2017-3-2 19:06 | 顯示全部帖子

回復 2# bobomi

Hi bobomi,

它出現

Sub DelBlank2()
Dim d As Object
Dim arr
st = Timer
Set d = CreateObject("Scripting.Dictionary")
For Each x In Split("類別:.會計科目:", ".")
d(x) = ""
Next x
arr = Range("A1:A" & ActiveSheet.UsedRange.Rows.Count)
For I = 1 To UBound(arr)
If d.exists(arr(I, 1)) Then arr(I, 1) = ""
Next I
[A1].Resize(UBound(arr), 1) = arr
Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Set d = Nothing
arr = ""
End Sub

Just do it.

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

3^#

發表於 2017-3-3 08:31 | 顯示全部帖子

回復 4# bobomi

Test OK,太感謝你了

原來是改了這一段
    arr = Range("A1:A" & ActiveSheet.UsedRange.Rows.Count + 1)

Thanks!

Just do it.

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

4^#

發表於 2017-3-3 09:01 | 顯示全部帖子

回復 4# bobomi

您好，這語法可以刪除指定的中文字，但我是想刪除這中文字的"列"，全刪除

Just do it.

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

5^#

發表於 2017-3-4 08:39 | 顯示全部帖子

回復 7# bobomi

抱歉我弄錯了，測試是可以整列移除的
感謝你的回覆!

Just do it.

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

6^#

發表於 2017-3-4 19:04 | 顯示全部帖子

回復 7# bobomi

我終於知道為何不能刪除關鍵的中文字的原因

程式依照您所提供的語法
但若巨集名稱
為 Sub DelBlank2() --> 正常可以移除
為 Sub 移除中文() --> 只可移除空白，但中文仍無法移除

差在巨集名稱的定義

Just do it.

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

7^#

發表於 2017-3-4 21:35 | 顯示全部帖子

回復 7# bobomi

您好，想跟您請教一個問題，
我將巨集的名稱更改為英文後，在該工作表上執行是正常的
但我在另一個工作表做了一個按鈕，去執行該VBA時
這時指定刪除中文的列就無法清除掉，而只會刪除空白列

若有跨工作表執行時，要怎麼做?

Just do it.

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

8^#

發表於 2017-3-5 06:49 | 顯示全部帖子

回復 11# lpk187

謝謝您的回覆，我再試試

Just do it.

靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。

返回列表下一主題上一主題