主题：[求助]关于用右键快捷键批量修改指定列内的内容!

请教下如何编写只要点一下上面的右键快捷菜单,把选定列的内容批量成指定的内容的代码!

参考：

http://www.foxtable.com/help/topics/1597.htm

例如：

With Tables("订单")
    If .TopPosition > -1 Then '如果选定区域包括数据行
        For i As Integer = .TopPosition To .BottomPosition
            .Rows(i)("列名") = “某个值”
        Next
    End If
End With