代码完善请求

梦醒人

各位老师大神，下面这段代码是点击添加按钮，实现了奖本表中指定区域的内容，追加复制到本表指定区域。

Sub 按钮2_Click()
n = 7 ’追加到第几行
Do While Cells(2, 1) <> ""
If Cells(n, 1) <> "" Then
n = n + 1
Else:
Range("A1:F1").Copy Destination:=Range(Cells(n, 1), Cells(n, 6))
Exit Do
End If
Loop
End Sub
现在，我想把这面这段代码增加拓展两个功能，
1、将现有的追加到本表指定位置，变更为追加到其它表的指定区域中，如：现在是在sheet1自身中追加，拓展为追加到sheet2.
2、点击按钮追加完成后，自动清空sheet1表格中已经追加走的数据，方便二次输入追加。
谢谢各位老师、大神了。

梦醒人

紧急需要，在线等！

梦醒人

大神们，
我已经研究解决第二个问题，完成了追加后，清空已经追加走数据的清除。
第一个需求还未解决，寻求大家帮忙。实现第二个功能后的代码如下：
Sub 按钮2_Click()
n = 7 '追加到第几行
Do While Cells(2, 1) <> ""
If Cells(n, 1) <> "" Then
n = n + 1
Else:
Range("A2:F2").Copy Destination:=Range(Cells(n, 1), Cells(n, 6))
Range("A2:F2").ClearContents '清除A2～F2的数据
Exit Do
End If
Loop
End Sub
再重复一下功能 需求。
就是现有代码的前提下，通过完善实现将sheet1指定区域的数据，追加到sheet2的指定位置。

梦醒人

对不起，回复发帖需要审核，我误会为未发出，所以重复发了一下

心的启点

梦醒人 发表于 2024-2-23 10:14
大神们，
我已经研究解决第二个问题，完成了追加后，清空已经追加走数据的清除。
第一个需求还未解决，寻 ...

不上附件别人怎么给你写代码，难不成还要帮你的人再给你做个模拟表来测试代码?有空看下发帖需知吧。

梦醒人

心的启点 发表于 2024-2-23 10:59
不上附件别人怎么给你写代码，难不成还要帮你的人再给你做个模拟表来测试代码?有空看下发帖需知吧。

谢谢！我马上上传附件

半百

梦醒人

听取“心的启点”老师提示，现在把调试的文件上传给大家。

梦醒人

半百 发表于 2024-2-23 11:15

太谢谢您了！两方法都可以成功。

梦醒人

半百 发表于 2024-2-23 11:15

追问一下：
您 的两段代码都可以实现，
我马上脑蒙， 我把sheet2.设置成中文标签了如“收入明细”，
然后我将：with sheets("sheet2")，改成：with sheets("收入明细!")
代码执行不过去了