excelvba重复录入上一组数据,excelvba统计重复项和个数

'获取最后一个非空单元格的行号，然后用输入框输入值，并循环

‘学习要点：第一步找到最后一个单元格的行号；第二步使用inputbox输入内容；第三步设定如果输入为空，则退出；第四步使用DO.....LOOP循环

Subgetdata()

Dim nextrow As Long

Dim entry1 As String

Dim entry2 As String

Do

nextrow =Sheets("sheet1").Range("a65536").End(xlUp).Row’找到sheet1中第一列的最后一个非空单元格

entry1 = InputBox("请输入第1个值") ‘使用INPUT函数输入值

If entry1 = "" Then Exit Sub '如果输入值为空，退出程序

entry2 = InputBox("请输入第2个值")

If entry1 = "" Then Exit Sub

Sheets("sheet1").Cells(nextrow 1, 1).Value = entry1 ‘将值写入第一列最后一个非空单元格后一行

Sheets("sheet1").Cells(nextrow 1, 2).Value = entry2’将值平行写入第二列

Loop

EndSub