菜鸟学习中，求助呆瓜问题

菜小包同学

求助大家



在sheet1 中填表格，按保存按钮

一旦按下保存，sheet 1中的信息会被保存在sheet2

sheet1 中的数据删除， 重新输入，按保存， 在sheet 2 中生成第二条信息


预先谢谢大家

longwin

Sub test()
    If Sheet1.[b1].Value <> "" Then
        arr = Sheet1.Range("B1:B3").Value
        lastrow = Sheet2.[a1].CurrentRegion.Rows.Count
        Sheet2.Cells(lastrow + 1, 1).Resize(1, 3) = WorksheetFunction.Transpose(arr)
        Sheet1.Range("B1:B3").Value = ""
    End If
End Sub

limonet

关键字：arr+clear

菜小包同学

limonet 发表于 2024-8-15 12:44
关键字：arr+clear

谢谢帮助，非常感谢

Qs18

Sub qs()
Dim arr
arr = Sheet1.Range("b1:b3").Value
Sheet2.Range("a" & Sheet2.Cells(Rows.Count, 1).End(3).Row + 1).Resize(1, 3) = Application.Transpose(arr)
Sheet1.Range("b1:b3") = ""
MsgBox "保存成功！"
End Sub

Qs18

试试..........

菜小包同学

limonet 发表于 2024-8-15 12:44
关键字：arr+clear

您好，请问为什么会显示不出来？

Qs18

请测试..........

菜小包同学

Qs18 发表于 2024-8-15 14:08
请测试..........

谢谢，我试试

ykcbf1100

每按一次保存，就保存一条记录！