- 帖子
- 522
- 主題
- 36
- 精華
- 1
- 積分
- 603
- 點名
- 0
- 作業系統
- win xp sp3
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-12-13
- 最後登錄
- 2021-7-11
|
本帖最後由 yen956 於 2014-2-27 18:52 編輯
回復 1# kevin21522886
試試看:- Option Explicit
- Sub 最新版()
- Dim x, y As Worksheet
- Dim cnt, i As Integer
- Dim Rng, FindCell As Range
- Dim FindStr As String
- Set x = Sheets(1)
- cnt = ThisWorkbook.Sheets.Count
- For Each Rng In x.[B2].Resize(x.[B2].End(xlDown).Row - 1, 1)
- For i = cnt To 2 Step -1
- Set y = Sheets(i)
- y.Activate
- Set FindCell = y.Cells.Find(What:=Rng.Value, After:=ActiveCell, _
- LookIn:=xlFormulas, LookAt:=xlPart, _
- SearchOrder:=xlByRows, SearchDirection:=xlNext, _
- MatchCase:=False, MatchByte:=False, SearchFormat:=False)
- If Not FindCell Is Nothing Then
- Rng.Offset(0, -1) = FindCell.Offset(0, -1)
- Rng.Offset(0, 1) = FindCell.Offset(0, 1)
- Exit For
- End If
- Next
- Next
- End Sub
|
|
發表於 2014-2-27 18:48
| 