- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¦^´_ 7# leehom
è»{¯uªº¬Ý¤F¤@¤U¡A°õ¦æ¦@¥Î§A쥻ªºµ{¦¡½X¡A¦@¥Î«á¡A½T¹êºC«Ü¦h
§A¦A¸Õ¬Ý¬Ý- Public Sub exA()
- t = Timer
- Application.ScreenUpdating = False
- Dim b As Range
- A = Sheets("¤u§@ªí1").[a1]
- If Range("A3") <> "" Then
- Sheets(1).Range("a3:h3").Clear
- End If
- With Sheets("¤u§@ªí2")
- Set b = .Columns(1).Find(A, , , 1, , 2)
- arr = .Range(.Cells(b.Row, "A"), .Cells(b.Row, "H"))
- Sheets("¤u§@ªí1").Range("A3:H3") = arr
- End With
- Application.ScreenUpdating = True
- MsgBox Format(Timer - t, "0.0000")
- End Sub
½Æ»s¥N½X |
|