[算表] 請問關於EXCEL的VBA移行如何更快執行有碼
軟體:EXCEL
各位大神們好 新春快樂!!
請問各位大神
以下這段VBA該怎麼讓他執行起來更快
因為是用錄製寫的 每次執行起來都會有點卡卡的感覺
要跑一兩秒才能執行完畢
主要功能是
把目前點選的這儲存格的這一列(比如8列)，整列複製
然後移到A欄最下面資料的下一列空白列
(比如A欄最下面的資料是100列，就是把資料貼上到101列)
然後再把原本的列(8列)整列砍掉
這樣就執行完畢
以下是目前的程式碼
Sub 移行()
'
' 移行 巨集
'
' 快速鍵: Ctrl+Shift+X
'
Dim X As Integer
Dim LastRow As Integer
X = ActiveCell.Row 'ActiveCell.Row 作用中的儲存格的列號
Rows(X).Select '選擇X行
Selection.Copy '複製X行
LastRow = Cells(Rows.Count, 1).End(xlUp).Row '抓A欄最後一行的行數
LastRow = LastRow + 1
Rows(LastRow).Select '選擇最後一行+1
ActiveSheet.Paste '貼上
Rows(X).Select
Application.CutCopyMode = False '清空剪貼板
Selection.Delete Shift:=xlUp '刪除選擇的X行
End Sub
感激大神協助 謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 118.169.114.219 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1675495816.A.F46.html
→
02/04 22:43,
3年前
, 1F
02/04 22:43, 1F
推
02/05 08:37,
3年前
, 2F
02/05 08:37, 2F
→
02/05 14:56,
3年前
, 3F
02/05 14:56, 3F
→
02/08 11:50, , 4F
02/08 11:50, 4F
→
02/08 11:52, , 5F
02/08 11:52, 5F
→
02/08 11:52, , 6F
02/08 11:52, 6F
→
02/10 06:57, , 7F
02/10 06:57, 7F
→
02/10 06:57, , 8F
02/10 06:57, 8F
→
02/15 23:32, , 9F
02/15 23:32, 9F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
