Question

如何向此函数添加工作表名称，以便从调用该函数的代码的其他部分传递？必须有一种方法，除了确保我要评估的表格被选中＆＃39;在调用函数之前。

Function LastRow()

    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).row
    End With

End Function

Answer 1

像这样，包括一个可选参数，以便在需要时专注于特定列

Function LastRow(targetSheet as Worksheet, _
                 Optional targetCol as String = "A")
    With targetSheet
        LastRow = .Cells(.Rows.Count, targetCol).End(xlUp).row
    End With    
End Function

将工作表名称传递给LastRow函数

1 个答案: