这段代码如何在vb中实现操作excel

Sub dygsa()

    Set xlApp = GetObject(, "Excel.Application")  '取得Excel实例
  
  Set rng_A = xlApp.Cells.Find(what:="A", after:=ActiveCell, LookIn:=xlComments, LookAt:= _
                                 xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
              , SearchFormat:=False)
    C_A = rng_A.Column
  End Sub

注释：我想在vb中写一个程序，能够在vba中使用，去查找批注中是A的单元格所在列，请指点如何修改上述代码 --------------------编程问答-------------------- 请指点如何修改上述代码 --------------------编程问答--------------------

引用楼主 xuzhancheng 的回复:

注释：我想在vb中写一个程序，能够在vba中使用，去查找批注中是A的单元格所在列，请指点如何修改上述代码

神马意思？VBA里直接写不就完了。for each 遍历所有comments对象，如果comments(x).text="A"，那么直接取comments(x).parent.column，就得到第几列了。

补充：VB ,  VBA