Hsieh

°ò¥»¤W¥²§K­«½Ækey in¥i¨Ï¥Î¸ê®ÆÅçÃÒ´£¿ô

Hsieh

¦^´_ 4# jonlylovek

1. Sub Âà¼g·s°O¿ý()
   
2.     Dim formSheet As Worksheet, dataSheet As Worksheet, targetRange As Range, i As Long
   
3.     Dim dataAddressList(), newRecord As Range, tmpRecord As Range
   
4.     Set formSheet = Sheets("­Ó¤H¸ê®Æ¿é¤J¶µ¥Ø")
   
5.     Set dataSheet = Sheets("­Ó¤H¸ê®Æªí³æ")
   
6.     Set a = dataSheet.Columns("B").Find([C4], lookat:=xlWhole)
   
7.     If Not a Is Nothing Then
   
8.     If a.Offset(, 1) = [C5] Then mystr = [C4]: GoTo 10
   
9.     Else
   
10.     dataAddressList = Array("C4", "C5", "C6", "C7", "F4", "F5", "F6", "F7", "C8")
    
11.     Set targetRange = dataSheet.Range("B" & Rows.Count).End(xlUp).Offset(1)
    
12.     For i = 0 To UBound(dataAddressList)
    
13.         targetRange.Offset(0, i).Value = formSheet.Range(dataAddressList(i)).Value
    
14.     Next
    
15.     End If
    
16. 10
    
17.     MsgBox mystr & "¤w¿é¤J¡C"
    
18. End Sub

½Æ»s¥N½X