- 帖子
- 552
- 主題
- 3
- 精華
- 0
- 積分
- 578
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-2-8
- 最後登錄
- 2024-7-9
  
|
9#
發表於 2016-1-20 22:37
| 只看該作者
回復 7# leehom
剛認真的看了一下,執行共用你原本的程式碼,共用後,確實慢很多
你再試看看- Public Sub exA()
- t = Timer
- Application.ScreenUpdating = False
- Dim b As Range
- A = Sheets("工作表1").[a1]
- If Range("A3") <> "" Then
- Sheets(1).Range("a3:h3").Clear
- End If
- With Sheets("工作表2")
- Set b = .Columns(1).Find(A, , , 1, , 2)
- arr = .Range(.Cells(b.Row, "A"), .Cells(b.Row, "H"))
- Sheets("工作表1").Range("A3:H3") = arr
- End With
- Application.ScreenUpdating = True
- MsgBox Format(Timer - t, "0.0000")
- End Sub
複製代碼 |
|