vba - 在VBA中替换字符串中字符的最快方法

Question

我有一个字符串(一个 excel 范围)，例如“$A$1:$AB$1200”。

我需要将起始范围的行(此处为 1)替换为其他值，例如 6(因此字符串变为“$A$6:$AB$1200”)

我尝试使用下面的代码，但它似乎变得太复杂了

 Dim stRng As String
  stRng = Split(usdRange, ":")(0)

   Dim row2bRepl As Long
   row2bRepl = Right(stRng, Len(stRng) - InStr(2, stRng, "$"))

   usdRange = Replace(stRng, row2bRepl, hdrRow, InStr(2, stRng, "$"))

关于如何更简单地实现这一点的任何帮助？

蒂亚!

Answer 1

这是非常快速且非常直接的!

Sub test()
    Dim s1 As String, s2 As String

    s1 = "$A$1:$AB$1200"
    s2 = Intersect(Range(s1), Range(s1).Offset(5, 0)).Address 'evaluates to $A$6:$AB$1200
End Sub

根据您的评论，在这里您可以看到它在完全随机的范围内运行良好，仅在运行时确定

Sub test()
    Dim usdRange As String, usdRange2 As String
    Dim lastRow As Long, lastCol As Long
    lastRow = Application.WorksheetFunction.RandBetween(10, 100)
    lastCol = Application.WorksheetFunction.RandBetween(1, 100)

    usdRange = Range("A1", Cells(lastRow, lastCol)).Address
    usdRange2 = Intersect(Range(usdRange), Range(usdRange).Offset(5, 0)).Address

    Debug.Print usdRange, usdRange2
End Sub

输出以下内容，将所有范围偏移指定数量:

Old string    New string
$A$1:$CF$22   $A$6:$CF$22
$A$1:$AA$93   $A$6:$AA$93
$A$1:$N$82    $A$6:$N$82