将字符串转换回范围

Question

在下面的代码中，我将范围转换为字符串：

dCostCenter = Right(dCostCenter, Len(dCostCenter) - 1)

但是，我需要在行中再次使用dCostCenter作为范围：

Set DetailsTargetCell = forecastMain.Cells(dCostCenter.Row, dMonth.Column)

否则我收到“需要对象”错误。

但是可以将字符串转换为范围吗？或许还有另一种方法可以解决这个问题？

Public Function SetDetailsTarget(monthNumber As Integer, CCNumber As String)

Call SetWorkbooks
Call SetRanges

For Each dMonth In DetailsMonths 
    For Each dCostCenter In DetailsCostCenters
        If Left(dCostCenter, 1) = "0" And Not dCostCenter Like "*/*" Then
                dCostCenter = Right(dCostCenter, Len(dCostCenter) - 1)'range to string
        End If
        If monthNumber <> "0" Then
            If dMonth = MonthName(monthNumber) And dCostCenter = CCNumber Then
                Set DetailsTargetCell = forecastMain.Cells(dCostCenter.Row, dMonth.Column)' I need string to range here
            End If
        End If
    Next dCostCenter
Next dMonth

Answer 1

添加另一个变量，例如dCostCenterString。然后在将范围转换为字符串时使用此选项，保留原始范围可供使用。 也没有声明你的变量，例如

dim dCostCenterString as string

您正在使用变体，这会降低代码速度并产生错误，因为vba必须猜测变量是什么。

Answer 2

可能会使变量超载，但这样做非常困惑。说单元格 B9 包含 abc 。然后这段代码：

Sub OverLoad()
    Dim B9 As Range
    Set B9 = Range("B9")
    B9 = Right(B9, Len(B9) - 1)
    MsgBox B9 & vbCrLf & B9.Address
End Sub

产生

注意：

• 单元格的内容会被剪切（ a 被删除）
• 范围变量B9仍然存在，可以用作范围
• String变量B9存在且包含剪切的字符串

我建议改用单独的变量。