返回列表 上一主題 發帖

多條件尋找後自動填入

多條件尋找後自動填入

附件中分頁(1)B1-B2、(2)B1-B4...共4個分頁是整體的報表
想整理成,歷次成績總表(個人)這個分頁的模式
原本想使用index配合match找尋後自動將相應資料帶至歷次成績總表(個人)這個分頁
但除了少數欄位,如B5、B6、C5、C6為單一條件外均有多條件或儲存格合併的問題
如F5應比對F2、F3、F4
目前將表格設計與校方資料相同,傻傻的找到第一格(B5、B6)後,往右都直接採+1的方式填入
若未來校方資料順序改變,將會填入錯誤的資料
想請教各位前輩,是否有什麼更好的方法可以更快速、正確轉換成我需要的格式

BOOK1.zip (62.51 KB)

本帖最後由 准提部林 於 2019-1-13 11:38 編輯

表格太複雜, 改變一下格局~~
1) 第一個區塊的標題行〔B2:T4〕, 將合併格中的空格, 解除合併後填入相同文字, 再行合併, 有寫vba處理
     _可解除合併看一看

2) B5公式:
=VLOOKUP(INDEX(名單!$B:$B,INT(ROW($B8)/8)+1),INDIRECT("'"&$A5&"'!B:Z"),MATCH(B$3,INDIRECT("'"&$A5&IF(B$3=B$2,"'!1:1","'!2:2")),)+(RIGHT(B$4)="級")-1,)
錯誤值, 自行加 IFERROR 排除


Xl0000019.rar (19.85 KB)
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

抱歉,再請問一下
版主說有寫vba處理,但下載回來的檔案檢視巨集並沒看到有程式碼
然後很訥悶的是英文、數學這2個解除合併只有第一格有填入文字
可是公式仍然認的出來,這是什麼原因?

TOP

回復 3# vvcvc

程式在工作表事件區:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Tr As Range, Sr As Range
With Target
     Set Tr = .Item(1).MergeArea
     If Tr.Count = 1 Then Exit Sub
     Cancel = True
     With [AZ2].Resize(Tr.Rows.Count, Tr.Columns.Count)
          Tr.Copy .Cells
          .UnMerge
          .Value = Tr(1).Value
          Tr.Copy
          .PasteSpecial Paste:=xlFormats
          .Copy Tr
          .EntireColumn.Delete
     End With
     Tr.Select
End With
End Sub

數學只識別下一行的[選擇][非選][選擇+非選]
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題