excel同一个单元格输入多个数值时在另一个单元格的其中一列同时按顺序显示出来

更新时间2021-08-17 10:05:24

比如在表1的A1中第一次输入30，第二次输入50，如何在表2的B列中逐一显示出来，怎么用VBA代码显示，请资深的你告知，急，谢谢呐

表1中写如下代码：

Private Sub Worksheet_Change(ByVal Target As Range)    

Dim i As Integer

'关闭事件响应

Application.EnableEvents = False

'如果是表1的A1单元格失去焦点，响应事件

If Target.Address = "$A$1" Then

    '表2中B列最大行号

    i = Sheets("表2").Range("B65536").End(xlUp).Row

    '如果表2中B1还没有数据,将A1的值写入B1

    If i=1 and Sheets("表2").Range("B1").Value="" Then i=i-1

    '否则将A1的值写入表2最大行的下一行

    Sheets("表2").Cells(i+1, 2) = Range("A1").Value    

End If

'打开事件响应

Application.EnableEvents = True 

End Sub

相关标签:excel