返回列表 上一主題 發帖

請教搜尋名稱　找出日期　謝謝

准提部林

帖子
2799 
主題
10 
精華
0 
積分
2855 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-28 
1# 跳轉到 »
發表於 2018-11-3 10:34 | 顯示全部帖子
K6:
=IFERROR(VLOOKUP(J6,A:H,MATCH(J$4,A$1:H$1,),),"")

TOP

准提部林

帖子
2799 
主題
10 
精華
0 
積分
2855 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-28 
2#
發表於 2018-11-5 12:44 | 顯示全部帖子
回復 12# mycmyc


自訂函數:
Function GetItem(xA As Range, xB As Range) As String
Dim xR As Range, N%, TT$
For Each xR In xB
    N = N + 1
    If Val(xR) > 0 Then TT = TT & "、" & xA(N)
Next
GetItem = Mid(TT, 2)
End Function

K6/公式:=GetItem(B$1:H$1,INDEX(B:H,MATCH(J6,A:A,),))  下拉

TOP

准提部林

帖子
2799 
主題
10 
精華
0 
積分
2855 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-28 
3#
發表於 2018-11-6 10:11 | 顯示全部帖子
回復 16# mycmyc

若資料多, 直接用vba取出相關資料:
Sub GetDateItem()
Dim Arr, i&, j%, N&, T$
[工作表2!A:B].ClearContents
[工作表2!A1:B1] = Array("日期", "施工項目")
Arr = Range([工作表1!H1], [工作表1!A65536].End(xlUp))
For i = 6 To UBound(Arr)
    If Not IsDate(Arr(i, 1)) Then GoTo 101
    For j = 2 To UBound(Arr, 2)
        If Val(Arr(i, j)) <> 0 Then T = T & "、" & Arr(1, j)
    Next j
    If T = "" Then GoTo 101
    N = N + 1
    Arr(N, 1) = Arr(i, 1):  Arr(N, 2) = Mid(T, 2): T = ""
101: Next i
If N > 0 Then [工作表2!A2:B2].Resize(N) = Arr
Application.Goto [工作表2!A1]
End Sub

Xl0000244(日期-施工項目).rar (13.92 KB)

TOP

        靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。
返回列表 上一主題