Lv,Gucci,Lv包包,Lv錢夾,Lv手錶,Lv目錄,Gucci公仔包,Lv購物包,Lv水桶包,Lv批發,愛美仕名牌購物

EXCEL VBA．將〔各工作表分頁〕匯整為〔目錄〕並以公式連結
　　　　　　　　　　　　　　　　　　　　　　　　　＜．准提部林．＞
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
範例檔簡介：
■程式碼：相關程式碼〔註解〕請參閱範例檔。
　Sub 加入新項目()
　Dim xSht As Worksheet, xNm$, MM, xEnd As Range, Zm&
　For Each xSht In Sheets
　　　If xSht.Name = "目錄" Then GoTo NEXT_SHT
　　　If xSht.[A3] <> "工程名稱：" Then GoTo NEXT_SHT
　　　xNm = xSht.Name
　　　MM = Application.Match(xSht.[B4] & "*", [D:D], 0)
　　　If IsError(MM) Then MM = Application.Match(xSht.[H2], [C:C], 0)
　　　If Not IsError(MM) Then
　　　　　Range("B" & MM).Formula = "='" & xNm & "'!H4"
　　　　　Range("C" & MM).Formula = "='" & xNm & "'!H2"
　　　　　Range("D" & MM).Formula = "='" & xNm & "'!B4&'" & xNm & "'!D4"
　　　　　GoTo NEXT_SHT
　　　End If
　　　Set xEnd = [D65536].End(xlUp)(2)
　　　If xEnd.Row < 6 Then Set xEnd = [D6]
　　　xEnd(1, -2).Formula = "=ROW()-5"
　　　xEnd(1, -1).Formula = "='" & xNm & "'!H4"
　　　xEnd(1, 0).Formula = "='" & xNm & "'!H2"
　　　xEnd(1, 1).Formula = "='" & xNm & "'!B4&'" & xNm & "'!D4"
　　　Zm = Zm + 1
　NEXT_SHT:
　Next
　If Zm = 0 Then MsgBox "※沒有新項目！　": Exit Sub
　MsgBox "※共加入 " & Zm & " 個項目！　"
　End Sub
　
■說明：
 １．Ｃ／Ｄ欄為判斷〔主索引〕是否存在依據，至少一欄必須有資料。
 ２．判斷〔最後一筆〕資料的位置，以Ｄ欄為準則。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＜範例檔＞：
LV超3A名牌購物網