12
返回列表 上一主題 發帖

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

jsc0518

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
11# 跳轉到 »
發表於 2021-6-30 20:26 | 只看該作者
回復 10# ML089
Hi 晚上好！
感謝您的熱心指導及回覆
是過了VBA，TEST OK，速度超快
感謝您囉！
Just do it.

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
354 
主題
5 
精華
0 
積分
387 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-8-2 

論壇榮譽勳章論壇贊助勳章
12#
發表於 2021-7-1 13:34 | 只看該作者
回復 11# jsc0518

給jsc0518大參考
幫M大補充一下
Sub Macro2()
     Columns( "P:P").ClearContents  '<--加這行可重複使用 因AdvancedFilter 的貼上位置須為空
    Columns("D:D").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Columns( "P:P"), Unique:=True
    [P1].Delete Shift:=xlUp '如果不要表頭 加上這行
End Sub

TOP

jsc0518

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
13#
發表於 2021-7-1 20:15 | 只看該作者
回復 12# singo1232001

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

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
12
返回列表 上一主題