Hsieh

¦^´_ 1# duck_simon


    Sub nn()
Set a = Columns("A").Find([F1], lookat:=xlWhole)
If Not a Is Nothing Then a.Offset(, 1).Resize(, 4) = a.Offset(, 1).Resize(, 4).Value
End Sub

Hsieh

Sub nn()
Dim a As Range
Set a = Columns("A").Find([F1], lookat:=xlWhole)
If Not a Is Nothing Then a.Offset(, 1).Resize(, 4) = a.Offset(, 1).Resize(, 4).Value
End Sub

Hsieh

¦^´_ 5# duck_simon

§Ú¥Î§A1#ÀÉ®×°õ¦æµL»~

Hsieh

¦^´_ 11# duck_simon
°ò¥»»yªk·§©À½Ð¥ý«Ø¥ß

1. Private Sub CommandButton1_Click()
   
2. Dim a As Range
   
3. Set a = Columns("A").Find([F1], lookat:=xlWhole)
   
4. If Not a Is Nothing Then a.Offset(, 1).Resize(, 4) = a.Offset(, 1).Resize(, 4).Value
   
5. End Sub

½Æ»s¥N½X