（我想做个EXCEL的VBA，详细要求如下：用VBA代替一个数据公式（详细的有点复杂）下面的简单点的，做好后套

右击工作表标签>查看代码>粘贴下面的代码> 右击A1或A列其它单元格,即可得到结果. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) With ActiveCell If .Column > 1 Then Exit Sub Cancel = True .Value = "表"