获取范围的列索引

Question

在以下子代码中，我想限制它的作用（将超链接中的子字符串替换为）到特定列。我写了'*我的想法是快速修复。但我似乎无法找到一个很好的方式来获取一个单元格的列值保存为一个范围变量。

Dim MyDoc As Worksheet 
Dim MyCell As Range 
    ... 
     For Each MyCell In MyDoc.UsedRange 
      If MyCell.Hyperlinks.Count > 0 Then 
       '* if mycell's columnnumber = 1 then 
        LinkURL = MyCell(1).Hyperlinks(1).Address 
        FindPos = InStr(1, LinkURL, FindString) 
        If FindPos > 0 Then 'If FindString is found 
         ReplaceLen = Len(FindString) 
         URLLen = Len(LinkURL) 
         PreStr = Mid(LinkURL, 1, FindPos - 1) 
         PostStr = Mid(LinkURL, FindPos + ReplaceLen, URLLen) 
         NewURL = PreStr & ReplaceString & PostStr 
         MyCell(1).Hyperlinks(1).Address = NewURL 'Change the URL 
        End If 
       '* End if 
      End If 
     Next MyCell 

Answer 1

您可以直接拨打Column属性：

If MyCell.Column = 1 Then ... 

这是绝对列（电子表格的A列），而不是范围的第一列。

如果你想检查它是否在范围的第一列，可以先计算出它：

firstCol = yourRange.Cells(1, 1).Column 
If MyCell.Column = firstCol Then ...