入黎免費幫你砌excel/教你formula (10)

Xloopup 個date
Default會由上至下Return一個Result比你

又或者用Conditional Formatting
自動highlight晒每一日第一粒數


Formula: =COUNTIF($A$2:$A2, $A2) = 1
Apply to: =$B$2:$B$1000

自己改返D Range / Format

唔太肯定你想點
但應該要用SWITCH 或者 IFS

你EXCEL版本冇得用SWITCH?

唔係，兩個都用到，但想知佢地兩個既分別係咩

想學, 就自己睇說明文檔睇教學
EXCEL本身已經每個FUNCTION有說明有例子
唔想學, 就自己直接用

試吓問AI

依個情況用SWITCH條式容易manage啲，用幾個if包住(nested if)你要改動嘅話好麻煩

有marco嘅問題想請教大家, 如果我有一條marco錄好咗, 而家我每一個目標excel file要行條marco個陣都要開咗個目標excel file先行到; 咁若果我而家有一batch 目標excel file要行呢個marco, 有無方法/ 語法可能一次過自動apply個marco落去所有目標excel file度而唔駛逐次開?

感謝大家

唔保證得, 不過用PYTHON應該更簡單

@PYTHON數據大師 VBA 幫一堆EXCEL檔加VBA SCRIPT, VBA SCRIPT而存成TXT檔, 怎樣做

要在多個Excel檔案中添加VBA腳本，並且將這個VBA腳本存儲為.txt檔案，您需要進行以下幾個步驟：
首先，將您的VBA腳本編寫到一個文本檔案中並保存為.txt格式。
打開Excel應用程序，並使用VBA編輯器（可以在開發者選項卡下的「Visual Basic」按鈕中找到）來編寫一個新的VBA宏。
下面是一個基本的VBA教程，說明如何遍歷特定文件夾中的所有Excel檔案，為每個檔案添加VBA腳本，並將VBA腳本另存為TXT檔案：
vb

Sub AddVBAScriptToWorkbooks()
    Dim wb As Workbook
    Dim myPath As String
    Dim myFile As String
    Dim myExtension As String
    Dim textToImport As String
    Dim vbaScript As String
    Dim textFile As Integer

    ' 確認腳本檔案的路徑
    vbaScriptPath = "C:\YourFolder\YourScript.txt"

    ' 指定文件夾路徑
    myPath = "C:\YourFolder\"

    ' 指定文件擴展名
    myExtension = "*.xls*"

    ' 為了安全, 關閉屏幕更新
    Application.ScreenUpdating = False

    ' 打開文本檔案含有的VBA腳本
    textFile = FreeFile
    ' 這裡需要用附加的方式打開文本檔案來讀取
    Open vbaScriptPath For Append As textFile
    vbaScript = Input$(LOF(textFile), textFile)
    Close textFile

    ' 搜索目標文件夾內的所有Excel檔案
    myFile = Dir(myPath & myExtension)
    
    ' 使用循環遍歷所有文件
    Do While myFile <> ""
        ' 打開其中一個工作簿
        Set wb = Workbooks.Open(Filename:=myPath & myFile)
        
        ' 這裡添加腳本到工作簿
        With wb.VBProject.VBComponents.Import(vbaScriptPath)
            ' 假設VBA腳本就在文本檔案中
            .CodeModule.AddFromString vbaScript
        End With
        
        ' 保存並關閉當前工作簿
        wb.Close SaveChanges:=True
        
        ' 移至下一個檔案
        myFile = Dir
    Loop
    
    ' 開啟屏幕更新
    Application.ScreenUpdating = True
    
    MsgBox "所有的工作簿都已被添加VBA腳本並儲存。"
End Sub

在使用這個代碼之前，請確保允許Excel使用宏以及VBA專案中信任訪問VBA專案物件模型。
當您運行這個宏時，它會在指定的文件夾中尋找所有Excel檔案，為每一個檔案添加VBA腳本，並將其儲存變更。
請注意，執行這類宏腳本時需要特別小心，因為不當的使用可能會對您的檔案造成不可逆的損害。在操作之前建議進行備份。另外，因為這涉及到VBA專案物件模型，您可能需要在Excel選項中設置宏安全性設置以允許執行宏。

我睇錯你UP咩
如果你只係一堆EXCEL檔要行CODE唔洗咁麻煩
你可以先整一個檔叫ABC.XLSM
放左哩D CODE
然後寫VBA行打開所有EXCEL檔
打開之後ACTIVEATE
做完你嘅野再CLOSE

Sub doing_your_job()

    Dim AK As Workbook, OAK As Workbook
    Dim LastR As Variant

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set OAK = ActiveWorkbook
    Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
    diaFolder.Show
    MsgBox diaFolder.SelectedItems(1)
    Application.ScreenUpdating = False
    Set FD = fso.GetFolder(diaFolder.SelectedItems(1))

    For Each F In FD.Files
        If F.Type = "Microsoft Excel Worksheet" Then   '哩度睇你OS點叫佢, 右鍵->內容, 如果食XLSX+XLS就用OR
            Set AK = Workbooks.Open(F.Path, , True)
            AK.Sheets(1).Activate
            doing_your_job..................
    Next
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

感謝, 返去試吓先

改CODE果陣刪多左
DOING_YOUR_JOB....之後加返區
AK.Close False

可以呀
你咪改返用 if 囉

提醒返
行VBA前BACKUP哂你FOLDER所有XLS*先

咁咪用VLOOKUP囉
你又要唔用LOOKUP