返回列表 上一主題 發帖

請問VBA 尋找資料的問題

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
175  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-7-19 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2011-11-24 21:40 | 顯示全部帖子
回復 1# tonycho33
  1. Sub nn()
  2. Range([J7], [J7].End(xlToRight)).ClearContents
  3. Set a = [F:F].Find([I7], lookat:=xlWhole)
  4. i = i + 1
  5. [I7].Offset(, i) = a.Offset(, 1)
  6. Do Until a.Offset(i) <> "" Or a.Offset(i, 1) = ""
  7.   [I7].Offset(, i) = a.Offset(i, 1)
  8.   i = i + 1
  9. Loop
  10. End Sub
複製代碼
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
175  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-7-19 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-11-25 10:02 | 顯示全部帖子
回復 4# tonycho33
  1. Sub nn()
  2. Range([H5], [H5].End(xlToRight)).ClearContents '清除之前內容
  3. Set a = [B:B].Find([G5], lookat:=xlWhole) '找到G5在B欄的位置
  4. i = i + 1
  5. [G5].Offset(, i) = a.Offset(, 1) 'G5向右寫入
  6. Do Until a.Offset(i) <> "" Or a.Offset(i, 1) = "" '執行迴圈直到B欄不等於空白或C欄不等於空白
  7.   [G5].Offset(, i) = a.Offset(i, 1) 'G5向右寫入
  8.   i = i + 1
  9. Loop
  10. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題