ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

½Ð±Ð¦U¦ì°ª¤â~
·Q­n¦b¤u§@ªíSheet1ªºDÄæ³]©w¤½¦¡
1.jpg
2015-6-16 20:46


±q¤u§@ªíSheet2§ä¥X¨ä¹ê»Ú¦ì¸m(³»ºÝ¼ÐÃD¦C¬°¦ì¸m¥N¸¹)
2.jpg
2015-6-16 20:46


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

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

TOP

¸Õ¸Õ 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
ù

TOP

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

VBA°õ¦æ²Ä¤@¦æ  Z = Sheet1.[A65536].End(xlUp).Row   ¥X²{ ~
3.jpg
2015-6-17 18:13
Adam

TOP

§ï¦¨³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
Adam

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD