返回列表 上一主題 發帖

多條件尋找後自動填入

准提部林

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

准提部林

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

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

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
返回列表 上一主題