作者ilf0121 (思想的崛起)
看板Office
標題[算表] 請問關於EXCEL的VBA移行如何更快執行有碼
時間Sat Feb 4 15:30:14 2023
軟體: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://webptt.com/m.aspx?n=bbs/Office/M.1675495816.A.F46.html
2F：推 amethystboy: ScreenUpdating 02/05 08:37
3F：→ ilf0121: 謝謝大神們 這兩種方式都可以執行!!! 02/05 14:56
4F：→ ilf0121: 請問大大 原本是抓A欄的最後一行的行數，若要要抓全部欄 02/08 11:50
5F：→ ilf0121: 現在要改抓 A欄或D欄 的最下面一行的資料的下一行 02/08 11:52
6F：→ ilf0121: 請問這樣要怎麼抓呢? 謝謝大大 02/08 11:52
7F：→ rafaiero: rows.count,1的1改4就D了、+1改+2就是最後一行次行的下 02/10 06:57
8F：→ rafaiero: 一行... 02/10 06:57
9F：→ ilf0121: 謝謝R大神！ 02/15 23:32