作者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/cn.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