恳请高手帮忙这个指定光标移动的难题

qiongmei6

我希望求得一个代码，当我在“录入”表格内鼠标停留在有数据的某行，然后点移动按钮，则该行的b：z则“移动休产事假职工名单”名单内b6：z列的空白行处，并且清除掉“录入”表格内该行的数据，例如我把鼠标的光标停留在“录入”表格内点到张6，当我点移动按钮，“录入”表格内b9：z9的内容就会移动到休产事假职工名单”名单内b7：z7行，并且“录入”表格内b9：z9则清除掉，谢谢各位高手师傅的帮忙。

ericxzhou

1. Sub test()
   
2.     Dim i%, rng
   
3.     Application.ScreenUpdating = 0
   
4.     With Sheet7
   
5.         If .Cells(Selection.Row, 3) <> "" Then
   
6.             Set rng = .Range(.Cells(Selection.Row, 2), .Cells(Selection.Row, 26))
   
7.             rng.Copy
   
8.             Sheet9.[b65536].End(3).Offset(1).PasteSpecial xlValue
   
9.             rng.ClearContents
   
10.         End If
    
11.     End With
    
12.     Application.ScreenUpdating = 1
    
13. End Sub

复制代码

fanyoulin

代码就是模拟复制粘贴的过程。

需要把最后两列调换一下，这样两个表的格式才是完全一致，复制粘贴才好顺利进行；