主题：在列中快速输入数据

changeEdit事件，或者afterEdit事件

If e.Col.name = "第二列" Then
    For i As Integer = e.Table.TopRow  To e.Table.BottomRow
        e.Table.Rows(i)(e.Col) = e.text
    Next
End If