lpk187

¦^´_ 1# v03586

¬d¸ß¤ñ¹ïªº¤è¦¡¦³«Ü¦hºØ¡A°Q½×°Ï¤¤¦³¤Ó¦h¨Ò¤l¤F¡A¤U¦C´£¨Ñ2ºØµ¹§A°Ñ¦Ò¡G

1.     With Sheets("¤u§@ªí1")
   
2.         For Each Rng In .Range("b2:B" & Cells(Rows.Count, 2).End(xlUp).Row)
   
3.             If Rng <> "" Then
   
4.                 If Rng Like P Then
   
5.                     Rng.Offset(, 4) = Rng.Offset(, -1)
   
6.                     Rng.Offset(, 5) = G
   
7.                 End If
   
8.             End If
   
9.         Next
   
10.     End With

½Æ»s¥N½X

1.     Dim Rng As Range
   
2.     With Sheets("¤u§@ªí1")
   
3.         With .Columns(2)
   
4.             Set Rng = .Find(P, , , 1, , 2)
   
5.                 If Not Rng Is Nothing Then
   
6.                     Rng.Offset(, 4) = Rng.Offset(, -1)
   
7.                     Rng.Offset(, 5) = G
   
8.                 Else
   
9.                     MsgBox "¬dµL¸ê®Æ"
   
10.                 End If
    
11.         End With
    
12.     End With

½Æ»s¥N½X