標題: [發問] 找尋實際位置公視設定 [打印本頁]

---

作者: adam2010    時間: 2015-6-16 20:48     標題: 找尋實際位置公視設定

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

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

公式要如何設定
[attach]21183[/attach]

---

作者: rouber590324    時間: 2015-6-17 12:02

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

---

作者: rouber590324    時間: 2015-6-17 15:01

試試 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

---

作者: adam2010    時間: 2015-6-17 18:13

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

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

---

作者: adam2010    時間: 2015-6-19 21:49

改成這樣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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)