求助大神烧脑，如何在Excel建立输入数据点击确定按钮，自动填充到数据列最后一行

lzyonlay

求教各位大神，如何实现：在输入数字旁 插入确认按钮，自动填充到数据列最后一行

短腿小居居。

Sub 写入E列最后()
Range("e" & Range("e1").End(4).Row + 1) = [a2]
End Sub

lzyonlay

短腿小居居。 发表于 2022-5-22 08:48
Sub 写入E列最后()
Range("e" & Range("e1").End(4).Row + 1) = [a2]
End Sub

大神，我搞不定，求带

hdx3000

Sub 确定()
Set wb = ThisWorkbook.Sheets(1) '定义文件表格

ha = wb.Range("E65536").End(3).Row '计算行数

If Range("A2") <> "" Then
   wb.Range("E" & ha+1) = Range("A2").Value '最后一行等于输入数字
End If
wb.Range("A2:B3").ClearContents '自动清零
End Sub

hdx3000

Sub 确定()
Set wb = ThisWorkbook.Sheets(1) '定义文件表格

ha = wb.Range("E65536").End(3).Row '计算行数

If Range("A2") <> "" Then
   wb.Range("E" & ha + 1) = Range("A2").Value '最后一行等于输入数字
End If
wb.Range("A2:B3").ClearContents '自动清零
End Sub

hdx3000

lzyonlay 发表于 2022-5-22 09:50
大神，我搞不定，求带

Range("e" & Range("e65536").End(3).Row + 1) = [a2]

guobaojin

e:\1.gif

lzyonlay

hdx3000 发表于 2022-5-22 10:22
Range("e" & Range("e65536").End(3).Row + 1) = [a2]

只能确认，不能清除，点赞

lzyonlay

短腿小居居。 发表于 2022-5-22 08:48
Sub 写入E列最后()
Range("e" & Range("e1").End(4).Row + 1) = [a2]
End Sub

谢谢了，不过只能确定

hdx3000

也不用自己清除，每次算完了，自动清除里面内容，看我全部代码，后面有标注，还有输入单元格尽量不要合并，不利于做程序，，下次记得不要合并的