如何更改地址屬性的「列」部分

Question

我有一個名爲Search的代碼，可以找到搜索項目的單元格引用。從那以後，我想用得到的搜索值的範圍：

Search.Address

一旦VBA獲取地址，說$A$1，我想改變$A到$M，因此，返回值將是$M$1

這可能嗎？

謝謝！

Answer 1

Sub Main() 

    Dim rangeAddress As String 

    rangeAddress = Range("A1").Address 

    Debug.Print "Before conversion: " & rangeAddress 

    SwapColumn rangeAddress, "M" 

    Debug.Print "After conversion: " & rangeAddress 
End Sub 

Private Sub SwapColumn(ByRef r As String, ByVal newCol As String) 
    Dim arr As Variant 
    arr = Split(r, "$") 
    r = vbNullString 
    Dim i As Long 
    For i = LBound(arr) To UBound(arr) 
     If i = 1 Then 
      r = "$" & r & newCol & "$" 
     Else 
      r = r & arr(i) 
     End If 
    Next i 
End Sub 

運行Main()子，並檢查了立即窗口CTRL + ģ

---

或使用它作爲這樣

=SwapColumns(A1, "M") 

電子表格函數

的代碼添加到模塊

注：小組稱爲SwapColumn和功能SwapColumns用s在末端。

Function SwapColumnS(r As Range, newCol As String) As String 
    Dim rngAddress As String 
    rngAddress = r.Address 
    Dim arr As Variant 
    arr = Split(rngAddress, "$") 
    rngAddress = vbNullString 
    Dim i As Long 
    For i = LBound(arr) To UBound(arr) 
     If i = 1 Then 
      rngAddress = "$" & rngAddress & newCol & "$" 
     Else 
      rngAddress = rngAddress & arr(i) 
     End If 
    Next i 
    SwapColumnS = rngAddress 
End Function 

Answer 2

OK，我必須失去了一些東西，爲什麼不乾脆用REPLACE：

Sub Main() 
    Dim rangeAddress As String 

    rangeAddress = Range("A1").Address 

    Debug.Print "Before conversion: " & rangeAddress 

    rangeAddress = Replace(rangeAddress, "$A$", "$M$") 

    Debug.Print "After conversion: " & rangeAddress 
End Sub 

Answer 3

這裏是一個班輪？

Debug.Print Range("M" & Range(rangeAddress).Row).Address 

凡rangeAddress商店$A$1或任何其他地址。