Excel如何使用ByVal

Question

在代码评审中有人正在帮助优化我的代码，并说我应该使用下面的代码来避免重复代码。我不知道如何使用它，properly...From，我可以告诉您，当我想要运行代码时，我必须输入ConvertToNumeric，但是我不知道如何更改变量，比如哪一张表或哪一列来查找最后一个单元格。不过，这个概念对我来说是有意义的。

    Private Sub ConvertToNumeric(ByVal sheetToUse As Worksheet, ByVal columnToFindLastCellOn As String)
        Dim helperCell As Range
        Set helperCell = sheetToUse.Range("AK1")
            helperCell.Value = "1"
            helperCell.Copy

        Dim lastCell As Range
        Set lastCell = sheetToUse.Cells(Rows.Count, columnToFindLastCellOn).End(xlUp)

        Dim modifyRange As Range
        Set modifyRange = sheetToUse.Range(lastCell, lastCell.End(xlUp))
        modifyRange.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False

        helperCell.ClearContents
    End Sub

Answer 1

要使用Code Review中提到的潜艇，您可以这样称呼它

ConvertToNumeric Worksheets(2), "A"

或

ConvertToNumeric Worksheets("Sheet1"), 3

• sheetToUse是您想要处理的工作表
• columnToFindLastCellOn是上一次使用的单元格所基于的列字母(或数字)。