1、首先需要建立表格，并设置简单的表格格式，这样在说明ActiveCell.Column属性的时候可以简单直接，如下图所示：
2、进入到vba的project项目模式下，可以在sheet1中点击右键，找到查看代码，点击进入vba编程窗体，如下图所示：
3、或者可以 直接使用键盘，Alt+F11按键，直接进入到vba的project模式下，如下图所示：
1、接下来需要在窗体中找到下拉菜单，查询到Worksheet_BeforeDoubleClick以便双击鼠标左键后，执行代码，如下所示：
2、编写代码，如下图所示：
3、代码：
Sheet1.Range("A2") = Application.ActiveCell.Column
将结果显示到sheet1中的单元格A2中。
1、最后就是双击鼠标左键，执行代码，如下图所示：
2、明确得知，显示的数值为活动单元格的列数，如下所示：
3、ActiveCell.Column 活动单元格所在的列数。
