標題: 多條件尋找後自動填入 [打印本頁]

---

作者: vvcvc    時間: 2019-1-11 10:35     標題: 多條件尋找後自動填入

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

[attach]29934[/attach]

---

作者: 准提部林    時間: 2019-1-13 11:35

本帖最後由 准提部林 於 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 排除


[attach]29947[/attach]

---

作者: vvcvc    時間: 2019-1-26 00:10

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

---

作者: 准提部林    時間: 2019-1-29 17:42

回復 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

數學只識別下一行的[選擇][非選][選擇+非選]

---

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