返回列表 上一主題 發帖

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

adam2010

帖子
145 
主題
42 
精華
0 
積分
193 
點名
0  
作業系統
Windows7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
註冊時間
2010-11-25 
最後登錄
2026-6-10 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-6-16 20:48 | 顯示全部帖子

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

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

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


公式要如何設定
P001-P100電腦.zip (7.8 KB)
收藏 分享
Adam

adam2010

帖子
145 
主題
42 
精華
0 
積分
193 
點名
0  
作業系統
Windows7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
註冊時間
2010-11-25 
最後登錄
2026-6-10 

論壇贊助勳章
2#
發表於 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   出現 ~
3.jpg
Adam

TOP

adam2010

帖子
145 
主題
42 
精華
0 
積分
193 
點名
0  
作業系統
Windows7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
註冊時間
2010-11-25 
最後登錄
2026-6-10 

論壇贊助勳章
3#
發表於 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
Adam

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題