軟體: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
感激大神協助 謝謝