软件: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
感激大神协助 谢谢