返回列表 上一主題 發帖

請益「搜尋關鍵字資料並累加…」

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2013-1-9 20:55 | 顯示全部帖子
回復 1# gkld
1. 先確定2~8表都有這4個關鍵字?
     因為你的寫法Find若找不到會傳回Nothing , 就沒辦法用後面offset方法就會出錯
2. Cells.Find 的Cells沒指定工作表會自動用ActiveWorksheet
     建議改成如下試看看(注意Cells前面都要多一點)
     For i=2 to 8
     With Sheets(i)
         .Range("bb10") = .Cells.Find(What:="大股東合計1", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
         xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
         中略
     End With
     Next

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2013-1-9 21:13 | 顯示全部帖子
回復 3# gkld
喔  對了 , 不用VBA可用公式  
=IFERROR(VLOOKUP("大股東合計1",AY:BB,4,FALSE),0)+IFERROR(VLOOKUP("大股東合計2",AY:BB,4,FALSE),0)+IFERROR(VLOOKUP("經理人合計",AY:BB,4,FALSE),0)+IFERROR(VLOOKUP("董監事合計",AY:BB,4,FALSE),0)
找不到可不計

TOP

        靜思自在 : 不要隨心所欲，要隨心教育自己。
返回列表 上一主題