[發問] 找尋實際位置公視設定

adam2010

請教各位高手~
想要在工作表Sheet1的D欄設定公式

下載 (28.52 KB)

2015-6-16 20:46

從工作表Sheet2找出其實際位置(頂端標題列為位置代號)

下載 (40.93 KB)

2015-6-16 20:46

公式要如何設定
P001-P100電腦.zip (7.8 KB)

下載次數: 1

2015-6-16 20:46

adam2010

改成這樣OK了~ 謝謝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

感謝rouber590324的回覆
公式=OFFSET(Sheet2!A1,0,MATCH(A2,Sheet2!2:2,0)-1)→只能找B欄

VBA執行第一行  Z = Sheet1.[A65536].End(xlUp).Row   出現 ~

下載 (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)