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

请问，我在某列中选择多个单元格后，在焦点单元格中输入数据，该数据同时填充其他单元格。代码如何写啊？

此主题相关图片如下：快速输入.jpg

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

老师，本列引用字典数据或自定义项目数据均出错，请问是怎么了？

此主题相关图片如下：代码错误.jpg

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

非常感谢