请教大佬帮忙根据附件帮忙做下。

骑驴上高速1

需求在表格中了。

hxj119

建议发VBA版块

limonet

哪位下载后解压缩——打开——选择——复制——再粘贴上来。

扑腾

需求说的不是很清楚，如果第二次点击，那笑脸左边的数据是追加到记录呢还是更新到记录？

ynzsvt

1. Sub 笑脸1_Click()
   
2. Dim Rng As Range
   
3. Set Rng = [a1].CurrentRegion.Offset(1)
   
4. Rng.Copy
   
5. Sheets("记录").Select
   
6. Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
   
7. ActiveSheet.Paste
   
8. Application.CutCopyMode = False
   
9. Sheets("Sheet2").Select
   
10. Rng.ClearContents
    
11. End Sub

复制代码

无关岁月

1. Sub 笑脸1_Click()
   
2. Dim r, c
   
3. r = [a1].End(4).Row
   
4. c = [a1].End(2).Column
   
5. With [a2].Resize(r, c)
   
6.     .Copy Sheets("记录").[a2]
   
7.     .ClearContents
   
8. End With
   
9. End Sub

复制代码

扑腾

还有日期，到底是要"=G2"呢还是“A”列中的数呢？

扑腾

，，，，，，，，，，

骑驴上高速1

扑腾 发表于 2024-8-9 11:47
需求说的不是很清楚，如果第二次点击，那笑脸左边的数据是追加到记录呢还是更新到记录？

追加到记录里