返回列表 上一主題 發帖

將工作表1、工作表2符合條件資料以find整合到工作表3問題

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2017-4-14 17:13 | 只看該作者

將工作表1、工作表2符合條件資料以find整合到工作表3問題

各位大哥好：
有個問題請教:
我要將符合工作表3表單內容由工作表1、工作表2帶入問題。
我史以find去寫但是在切換功過表時會出錯。請教我應如何修正。
附上範例
  1. Sub sech()
  2. Dim i, j As Integer
  3. Dim Nam As String

  5. For i = 2 To 6
  6. Nam = Sheets(3).Cells(i, "a")
  7. Sheets(2).Select
  8. Selection.Find(What:=Nam, After:=ActiveCell _
  9.         , LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
  10.         SearchDirection:=xlNext, MatchCase:=True, MatchByte:=False, SearchFormat _
  11.         :=False).Activate
  12. Sheets(3).Cells(i, "b") = ActiveCell.Offset(, 1)
  13. '無法切換問題
  14. Sheets(1).Select
  15. Selection.Find(What:=Nam, After:=ActiveCell _
  16.         , LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
  17.         SearchDirection:=xlNext, MatchCase:=True, MatchByte:=False, SearchFormat _
  18.         :=False).Activate
  19. Sheets(3).Cells(i, "c") = ActiveCell.Offset(, -1)
  20. Next i

  22. End Sub
複製代碼
活頁簿3.rar (12.35 KB)
收藏 分享
lionliu

lionliu

帖子
97 
主題
26 
精華
0 
積分
158 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-9-12 
最後登錄
2019-8-29 
3#
發表於 2017-4-15 23:06 | 只看該作者
回復 2# yen956

謝謝啦，我再試一下
lionliu

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
2#
發表於 2017-4-15 16:52 | 只看該作者
試試看
Sub sech()
Dim i As Integer, j As Integer, Rng
Dim Nam As String
For i = 2 To 6
    Nam = Sheets(3).Cells(i, "a")
    Sheets(2).Select
    Set Rng = Range("A:A").Find(What:=Nam, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=True, MatchByte:=False, SearchFormat _
        :=False)
    Sheets(3).Cells(i, "b") = Rng.Offset(, 1)

    '無法切換問題
    Sheets(1).Select
    Set Rng = Range("B:B").Find(What:=Nam, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=True, MatchByte:=False, SearchFormat _
        :=False)
    Sheets(3).Cells(i, "c") = Rng.Offset(, -1)
Next i
End Sub

TOP

        靜思自在 : 願要大、志要堅、氣要柔、心要細。
返回列表 上一主題