關(guān)于ExcelVBA查詢多條件并判斷賦值的代碼？Pro，代碼如下。使用字典數(shù)組，速度更快。附件已上載。打開Excel文件，按“ALT F11”打開VBA編輯窗口，然后雙擊左側(cè)的相應(yīng)頁，并在右側(cè)空白區(qū)粘

關(guān)于ExcelVBA查詢多條件并判斷賦值的代碼？

Pro，代碼如下。使用字典數(shù)組，速度更快。附件已上載。打開Excel文件，按“ALT F11”打開VBA編輯窗口，然后雙擊左側(cè)的相應(yīng)頁，并在右側(cè)空白區(qū)粘貼下面的代碼。關(guān)閉VBA窗口。然后按“ALT F8”打開“宏”窗口，選擇剛插入的宏，然后單擊“執(zhí)行”。Sub tj（）Dim d，ADArr，ear Set d=CreateObject（）腳本。字典）Dim r，i As Long r=單元格（行。計數(shù)，“A”。結(jié)束（xlUp）。行ADArr=范圍（“A2”）。調(diào)整大小（r-1，4）耳環(huán)=范圍（“E2”）。調(diào)整大?。╮-1，1）對于i=1到UBound（ADArr）d（ADArr（i，1）& ADArr（i，2）& ADArr（i，3））=d（ADArr（i，1）& ADArr（i2） &Amp；adarr（I，3））adarr（I，4）next for I=1 to UBound（耳環(huán)）如果D（adarr（I，1）&Amp；adarr（I，2）&Amp；adarr（I，3））>=10，則耳環(huán)（I，1）=“大客戶”或耳環(huán)（I，1）=“小客戶”next range（“E2”）。Restore（R-1，1）=arr set D=nothing end Sub

將要保留的工作表的名稱放入數(shù)組，然后將數(shù)組放入字典，然后遍歷工作表以確定工作表的名稱是否存在于字典中。如果存在，請將工作表移到新工作簿并另存為

如果不想使用字典和數(shù)組，也可以將工作表列在一列中，并調(diào)用VBA中的count函數(shù)來確定

將工作表移到新工作簿中保存的代碼錄制宏，可以得到

VB，VBA，聲明二維數(shù)組時，不能直接賦值。

對于Excel，有一種方法可以獲取二維數(shù)組并簡單地賦值，例如arra=range（“A1:B12”）。價值