多條件尋找後自動填入

附件中分頁(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)

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-10

2^#

發表於 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 排除

Xl0000019.rar (19.85 KB)

TOP

vvcvc

中學生 Rank: 2

帖子: 144
主題: 33
精華: 0
積分: 178
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-26
最後登錄: 2023-6-23

3^#

發表於 2019-1-26 00:10 | 只看該作者

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-10

4^#

發表於 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

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

TOP