为什么我的宏中不存在 row() 函数？

Question

该宏因编译错误而停止：

“子函数或函数未定义”

并且 Row 突出显示。

我正在使用 Microsoft Excel for Microsoft 365。

Sub test()
    Range(Address(Row(), Column()) & ":" & Address(Row(), Column() + 5)).Select
End Sub

Answer 1

ROW 函数...如果省略引用，则假定为 ROW 函数所在单元格的引用。行函数

作为您的子例程， test 不在电子表格中，因此不会定义该函数。您可能对行属性感兴趣范围。

Answer 2

这样的东西也许。

Sub GetRowNumberFromCellAddress()
Range("A10").Select ' example

Dim col, row
col = Split(Selection.Address, "$")(1)
row = Split(Selection.Address, "$")(2)

MsgBox "Column is : " & col
MsgBox "Row is : " & row
 
End Sub

请查看下面的链接，以获取更多信息。

https://www.thespreadsheetguru.com/blog/2014/7/7/7/5-different-ways-ways-to-find-to-find-the-the-last-the-last-the-last-row----------------------------------------vba < /a>

Answer 3

谢谢大家！研究您的评论非常有教育意义。尤其是 CBasic2008 的提示让我走上了正确的道路。我想做的是：

Sub test()
    Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 5)).Select
End Sub