返回列表 上一主題 發帖

多條件尋找後自動填入

vvcvc

帖子
144 
主題
33 
精華
0 
積分
178 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-26 
最後登錄
2023-6-23 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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的方式填入
若未來校方資料順序改變，將會填入錯誤的資料
想請教各位前輩，是否有什麼更好的方法可以更快速、正確轉換成我需要的格式

BOOK1.zip (62.51 KB)
收藏 分享

准提部林

帖子
2798 
主題
10 
精華
0 
積分
2854 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-15 
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

帖子
144 
主題
33 
精華
0 
積分
178 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-26 
最後登錄
2023-6-23 
3#
發表於 2019-1-26 00:10 | 只看該作者
抱歉，再請問一下
版主說有寫vba處理，但下載回來的檔案檢視巨集並沒看到有程式碼
然後很訥悶的是英文、數學這2個解除合併只有第一格有填入文字
可是公式仍然認的出來，這是什麼原因?

TOP

准提部林

帖子
2798 
主題
10 
精華
0 
積分
2854 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-15 
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

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題