麻辣家族討論版版 » Excel程式區 » 是否可以簡化錄製後的VBA 語法

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

[發問] 是否可以簡化錄製後的VBA 語法

高中生 Rank: 3 Rank: 3

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

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2021-6-27 18:59 | 顯示全部帖子

[發問] 是否可以簡化錄製後的VBA 語法

Dear all,
我使用錄製方式製作VBA
(1).選擇D欄，copy
(2).選擇U欄，選擇性貼上-值
(3).資料(點選工具列)-移除重複項
** ActiveSheet.Range("$U$1:$U$20000"). --> 這一段是我用手動改的，因為以後還會有多的資料產出
(4).選擇U欄，copy
(5).選擇P欄，選擇性貼上-值
(6).選擇U欄，清除該欄位資訊

下面是錄製的語法，是否可以再簡化呢？

Sub Repeat()

Columns("D:D").Select
Selection.Copy
Columns("U:U").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("$U$1:$U$20000").RemoveDuplicates Columns:=1, Header:=xlYes
Selection.Copy
Columns("P:P").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Columns("U:U").Select
Selection.ClearContents

Range("Q1").Select

End Sub

樓主熱帖

收藏

Just do it.

高中生 Rank: 3 Rank: 3

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

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

2^#

發表於 2021-6-28 21:08 | 顯示全部帖子

回復 2# singo1232001
Dear singo1232001,
您好！感謝您的熱心回復。
語法可以使用，但執行過程中速度很慢，另外只要刪除一欄位內資料，VBA也會跑
謝謝歐

Just do it.

高中生 Rank: 3 Rank: 3

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

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

3^#

發表於 2021-6-28 21:16 | 顯示全部帖子

回復 3# samwang
Dear samwang,

您好！感謝您的熱心回覆，語法可以使用。
請教一下
1.哪段是"刪除重複性資料"的語法呢？
2."用字典的寫法"是甚麼意思呢？

Thank you.

Just do it.

高中生 Rank: 3 Rank: 3

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

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

4^#

發表於 2021-6-29 21:33 | 顯示全部帖子

回復 7# singo1232001
Hi 感謝您的回覆歐，我試試看！

Just do it.

高中生 Rank: 3 Rank: 3

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

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

5^#

發表於 2021-6-29 21:33 | 顯示全部帖子

回復 6# samwang
Hi 謝謝您的資訊，我找看看資料

Just do it.

高中生 Rank: 3 Rank: 3

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

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

6^#

發表於 2021-6-30 20:26 | 顯示全部帖子

回復 10# ML089
Hi 晚上好！
感謝您的熱心指導及回覆
是過了VBA，TEST OK，速度超快
感謝您囉！

Just do it.

高中生 Rank: 3 Rank: 3

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

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

7^#

發表於 2021-7-1 20:15 | 顯示全部帖子

回復 12# singo1232001

Dear singo1232001,
感謝您的回覆及補充，測試OK，謝啦！

Just do it.

靜思自在 : 話多不如話少，話少不如話好。

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