使用vba獲取特定文本的單元格列號

Question

嗨，我需要獲取單元格的文本列作爲操作。

我現在的代碼如下。

Option Explicit 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim rngDV As Range 
Dim oldVal As String 
Dim newVal As String 
Dim actionColName As String 
If Target.Count > 1 Then GoTo exitHandler 

On Error Resume Next 
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation) 
On Error GoTo exitHandler 

If rngDV Is Nothing Then GoTo exitHandler 

If Intersect(Target, rngDV) Is Nothing Then 
    'do nothing 
Else 
    Application.EnableEvents = False 
    newVal = Target.Value 
    Application.Undo 
    oldVal = Target.Value 
    Target.Value = newVal 
    If Target.Column = 3 Then 
    If oldVal = "" Then 
     'do nothing 
     Else 
     If newVal = "" Then 
     'do nothing 
     Else 
     Target.Value = oldVal _ 
     & "+ " & newVal 
     End If 
    End If 
    End If 
End If 

exitHandler: 
    Application.EnableEvents = True 
End Sub 

在上面的代碼有如下的條件 如果Target.Column = 3然後

而不是硬編碼與3的值我想應用此邏輯爲含有完整的列值ACTION在該列的其​​中一個單元格中。

Answer 1

使用Find確定包含行動

Sub GetAction() 
Dim rng1 As Range 
Set rng1 = ActiveSheet.UsedRange.Find("Action", , xlValues, xlWhole) 
If Not rng1 Is Nothing Then 
MsgBox "Found in column " & rng1.Column 
Else 
MsgBox "Not found", vbCritical 
End If 
End Sub