簡單的取代Sheet內的值

ffntldj

抱歉 卡關 又來詢問 ,請高手教我一下 麻煩了 謝謝

以下是我的部分code
EQP_FAB = cells(2,18).value '(值是TG)

File1=dir (path & "*.xls")
Workbooks.open  path & File1
set sh = activeworkbook.worksheets(shname)   ' 如以下的ex:

for each word in sh.range(sh.[A1],sh.[F1])
if word = "EQP_ID" Then      (當第一列讀到EQP_ID的時候,EQP_ID的下一列sampl1:TE@123或是sampl2:TF123 要換成TG@123)

CurrentCell= word.address  (想去抓Cell的位址,但這邊不會寫)

end if
next


ex:  兩種檔案,都是要去認 EQP_ID
1.                                                2.
  PDID      EQP_ID    ACTION                    PDID    RE_ID   EQP_ID    ACTION
  xxx         TE@123    xxx                         xxx      xx       TF@123    xxx
  xxx         TE@645    xxx                         xxx      xx       TF@645    xxx
  xxx         TE@124    xxx                         xxx      xx       TF@124    xxx

(往下還有資料 ,只列三筆)

結果:

1.                                                2.
  PDID      EQP_ID    ACTION                    PDID    RE_ID   EQP_ID    ACTION
  xxx         TG@123    xxx                         xxx      xx       TG@123    xxx
  xxx         TG@645    xxx                         xxx      xx       TG@645    xxx
  xxx         TG@124    xxx                         xxx      xx       TG@124    xxx

ffntldj

回復 2# Hsieh


    謝謝版大! 抱歉明天才能試~謝謝你 每次都要你幫忙~

  請問是加在這裡嘛? 只需要一行? 太神奇了@@ 我想了好久~

  lookat:=xlPart 不太會使用 他是只會往下找 還是整張SHEET都會去改?

  因為怕改到別的資料~ 謝謝

if word = "EQP_ID" Then      (當第一列讀到EQP_ID的時候,EQP_ID的下一列sampl1:TE@123或是sampl2:TF123 要換成TG@123)

這裡

end if

ffntldj

回復 4# Hsieh


    Set a = sh.Rows(1).Find("EQP_ID").EntireColumn '找到標題的整欄範圍

  有了這行 我又進步了 謝謝!! 非常感謝~