求助VBA中怎么将对应的sheet1的整行数据剪切到sheet2中

gxp1986

潜行诡瀛 发表于 2019-10-4 16:53
大佬.......有一个小问题，能实现剪切吗？  Rows(k).Delete  ？？

.Rows(k).Delete

潜行诡瀛

gxp1986 发表于 2019-10-4 17:24
.Rows(k).Delete

感谢大佬！。。。。。有个问题还想请教一下，Private Sub Worksheet_Change(ByVal Target As Range)和Private Sub CommandButton1_Click()怎么合并？，数据量太过庞大，我想弄一个按钮运行宏，是wps

dushaguo

Sheet1.Range("a" & i).Resize(, 9).Cut Sheet2.Range("a" & j).Resize(, 9)
CUT就是剪切

gxp1986

潜行诡瀛 发表于 2019-10-4 18:19
感谢大佬！。。。。。有个问题还想请教一下，Private Sub Worksheet_Change(ByVal Target As Range)和Pri ...

Private Sub Worksheet_Change(ByVal Target As Range)是自动触发的事件
Private Sub CommandButton1_Click() 只要给L列赋值,就会自动触发上面的事件

dushaguo

潜行诡瀛 发表于 2019-10-4 16:53
大佬.......有一个小问题，能实现剪切吗？  Rows(k).Delete  ？？

.copy 改成.cut 就是剪切

潜行诡瀛

dushaguo 发表于 2019-10-4 16:29
Sub copy1() Dim r, x  r = Sheet1.UsedRange.Rows.Count  x = Sheet2.UsedRange.Rows.Count  arr = Sheet2 ...

感谢，感谢大佬帮助，等一下，我就开电脑试试，研究一下

潜行诡瀛

dushaguo 发表于 2019-10-5 16:24
.copy 改成.cut 就是剪切

VBA，还能用cut啊？？？学习了，学习了，谢谢，谢谢

潜行诡瀛

gxp1986 发表于 2019-10-5 15:20
Private Sub Worksheet_Change(ByVal Target As Range)是自动触发的事件
Private Sub CommandButton1_Cl ...

感谢大佬回复！录入自动触发，先进啊！大佬，那如果我想先录入L列数据，再触发事件，最好能有一个按钮，该怎么改呐？数据好几百行，一个人录入L列，太累了

潜行诡瀛

dushaguo 发表于 2019-10-5 16:24
.copy 改成.cut 就是剪切

大佬，你这个就是非自动的，我前几天一直没改好的那种，我放在模块1里，运行没问题，但是为什么我插入了个按钮，指定宏到cut1（copy改cut），按了没反应呢？

dushaguo

潜行诡瀛 发表于 2019-10-5 20:12
大佬，你这个就是非自动的，我前几天一直没改好的那种，我放在模块1里，运行没问题，但是为什么我插入了 ...

我的没有问题啊，你插入的是什么模块，是类模块，还是模块，你用我的附件还是不行的话截图给我