[µo°Ý] §ä´M¹ê»Ú¦ì¸m¤½µø³]©w

adam2010

½Ð±Ð¦U¦ì°ª¤â~
·Q­n¦b¤u§@ªíSheet1ªºDÄæ³]©w¤½¦¡

¤U¸ü (28.52 KB)

2015-6-16 20:46

±q¤u§@ªíSheet2§ä¥X¨ä¹ê»Ú¦ì¸m(³»ºÝ¼ÐÃD¦C¬°¦ì¸m¥N¸¹)

¤U¸ü (40.93 KB)

2015-6-16 20:46

¤½¦¡­n¦p¦ó³]©w
P001-P100¹q¸£.zip (7.8 KB)

¤U¸ü¦¸¼Æ: 1

2015-6-16 20:46

adam2010

§ï¦¨³o¼ËOK¤F~ ÁÂÁÂrouber590324
Sub AA()
z = Sheets("sheet1").Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
For ZZ = 2 To z
   For X = 1 To 48
     For Y = 1 To 1000
If Sheets("sheet1").Cells(ZZ, 1) = Sheets("sheet2").Cells(Y, X) Then
    Sheets("sheet1").Cells(ZZ, 4) = Sheets("sheet2").Cells(1, X)
End If
    Next
      Next
         Next
End Sub

adam2010

·PÁÂrouber590324ªº¦^ÂÐ
¤½¦¡=OFFSET(Sheet2!A1,0,MATCH(A2,Sheet2!2:2,0)-1)¡÷¥u¯à§äBÄæ

VBA°õ¦æ²Ä¤@¦æ  Z = Sheet1.[A65536].End(xlUp).Row   ¥X²{ ~

¤U¸ü (5.93 KB)

2015-6-17 18:13

rouber590324

¸Õ¸Õ VAB

Sub AA()
Z = Sheet1.[A65536].End(xlUp).Row
For ZZ = 2 To Z
   For X = 1 To 48
     For Y = 1 To 1000
If Sheet1.Cells(ZZ, 1) = Sheet2.Cells(Y, X) Then
Sheet1.Cells(ZZ, 4) = Sheet2.Cells(1, X)
End If
    Next
      Next
         Next
End Sub

rouber590324

=OFFSET(Sheet2!A1,0,MATCH(A2,Sheet2!2:2,0)-1)