VBA - 循環遍歷一個表並使用列名更新另一列

Question

在Excel VBA中，我試圖通過Excel表循環，然後更新該行中的另一列。我希望通過其名稱來引用另一列，而不是在佈局更改的情況下使用偏移/數字。那可能嗎？

Dim rw As ListRow 
Dim cl As Range 

For Each rw In ActiveSheet.ListObjects("MasterData").ListRows 
    'Pseudo code: 
    if (rw[Notes] = "Test") then DO SOMETHING 'In this line I'd like to refer to the column called "Notes" but not sure how to do it. 
Next rw 

Answer 1

該Intersect function將做約90％的工作。其餘的是這樣的：

Option Explicit 

Sub TestMe() 

    Dim rw   As Range 
    Dim cl   As Range 
    Dim rngCell  As Range 

    For Each rw In [MyTable].Rows 
     Set rngCell = Intersect(rw, [MyColumnName]) 
     If Not rngCell Is Nothing Then 
      If rngCell = "Text" Then Debug.Print rngCell.Address 
     End If 
    Next rw 

End Sub 

---

• [MyTable的]是表的名稱。
• [MyColumnName]是該列的名稱。