在VBA中，如果你想获取某个单元格所在行的列号，可以使用该单元格的`Column`属性。以下是一个简单的示例，它展示了如何获取活动单元格（当前选中的单元格）的列号：
```vba
Sub GetColumnNumber()
Dim columnNumber As Integer
columnNumber = ActiveCell.Column
MsgBox "The column number is: " & columnNumber
End Sub
```
这段代码定义了一个名为`GetColumnNumber`的子程序，它会获取活动单元格的列号，并通过消息框显示出来。
如果你需要获取特定行的列号，你可以指定该行的单元格，如下所示：
```vba
Sub GetColumnNumberForSpecificRow()
Dim columnNumber As Integer
columnNumber = ThisWorkbook.Sheets("Sheet1").Range("A2").Column
MsgBox "The column number for cell A2 is: " & columnNumber
End Sub
```
在这个例子中，我们获取了名为"Sheet1"的工作表上A2单元格的列号。
请注意，列号是从1开始的，而不是从0开始，这是Excel中列号的常规表示方式。
