在B2中，公式被復制下來： =TRIM(RIGHT(SUBSTITUTE(LEFT(A2,SEARCH("/cone",A2)-1)," ",REPT(" ",99)),199))

您需要測試對象類型并相應地遞歸。 Set dict_json = JsonConverter.ParseJson(sGetResult) Set objdata = dict_json("data")(1) Dim k, v, u For Each k In objdata If VarType(objdata(k)) = 9 Then ' object If k = "user" Then For Each u In objdata(k) Debug.Print "user", u, objdata(k)(u) Next End If If k = "client" Then For Each u In objdata(k) If u = "users" Then ' for each loop for users Else Debug.Print "client", u, objdata(k)(u) End If Next End If Else Debug.Print k, objdata(k) End If Next

編輯：多虧@TomSharpe指出了一些邏輯錯誤=>錯誤的結果，我不得不修改M-code，還刪除了公式方法。我相信下面的代碼滿足您的要求 這可以在Power Query中完成 按配方分組 確定最高質量的第一個日期 看看第一次約會之后的日期是否質量較低 如果是，那么“是”或者“否” 檢查注釋并逐步通過應用的步驟窗口來更好地理解算法。 M Code let//read in the data//change table name in next line to actual table name Source = Excel.CurrentWorkbook(){[Name="Table18"]}[Content],//set data types #"Changed Type" = Table.TransformColumnTypes(Source,{{"recipe number", Int64.Type}, {"date", type date}, {"quality", Int64.Type}}),//group by recipe number #"Grouped Rows" = Table.Group(#"Changed Type", {"recipe number"}, {//(t) is each subtable returned {"Quality Decrea

您可以按照以下步驟操作。 選擇要填充的單元格。 從主頁tab-->編輯部分選擇“查找并選擇”，然后轉到“特殊”。 選擇“空白”，然后單擊“確定”。 現在只需像=A1一樣鍵入=Immediate above cell address you want to fill。 然后按CTRL+ENTER。空白單元格應填入其上方單元格中的數據。 如果要從單元格中刪除公式，請復制范圍內的所有單元格，然后單擊鼠標右鍵，然后粘貼值。

F的結果是E*10000嗎？沒關系，有幾個方法可以解決。 找到您的最后一個行號（作為lRow） 迭代for i = 2 to lRow，它將從包含數據的第一行循環到最后一行 在這里做一些事情，比如Range("F"&i) = Range("E"&i)*10000假設這是關系或者Range("F"&i) = Range("F"&i-1)+10000 next i 它將逐個單元迭代，進行計算，然后繼續。 如果有一個腳本在多個工作表或工作簿之間跳躍，以便范圍、單元格或任何引用都是正確的，則可能需要使其更健壯。 不知道這將有多快，與填充系列函數，但它不看表面價值，因為它會太慢。 告訴我你過得怎么樣！ Rob S

假設您的選項總是四個字符長，因此您不必擔心它們是另一個選項中的子字符串。這樣你就不需要用逗號來精確匹配。所以使用Microsoft365，嘗試： C2中的公式： =TEXTJOIN(", ",,FILTER(B$9:B$18,ISNUMBER(FIND(A$9:A$18,B2)))) 在Excel 2019中，您可以使用CSE-entered公式，例如： =TEXTJOIN(", ",,IF(ISNUMBER(FIND(A$9:A$18,B2)),B$9:B$18,"")) 在任何其他情況下，我建議您開始開發一個UDF來模擬TEXTJOIN()功能。

請測試下一個代碼。根據您的問題和評論，它應該以合乎邏輯的方式返回。它假定表示所需輸出的圖片是錯誤的。從“E1”開始返回同一頁。當然，它可能很容易適應返回任何地方： Sub TestExtractFruitsPerAccount() Dim sh As Worksheet, lastR As Long, arr, arrIt, i As Long Dim arrFin, j As Long, dict As Object Set sh = ActiveSheet lastR = sh.Range("A" & sh.rows.count).End(xlUp).Row arr = sh.Range("A1:C" & lastR).value Set dict = CreateObject("Scripting.Dictionary") For i = 2 To UBound(arr) If Not dict.Exists(arr(i, 1)) Then dict.Add arr(i, 1), Array(arr(i, 2) & "|" & arr(i, 3)) Else arrIt = dict(arr(i, 1)): ReDim Preserve arrIt(UBound(arrIt) + 1) arrIt(UBound(arrIt)) = arr(i,

使用MINIFS()函數，-->Excel用戶-->MS365/Excel 2021/2019 ?單元格F2中使用的公式 =MINIFS($B$2:$B$7,$A$2:$A$7,E2) 如果未使用上述版本的Excel，請使用以下 ?單元格G2中使用的公式 =MIN(IF(E2=$A$2:$A$7,$B$2:$B$7,"")) 以上公式需要根據Excel版本按CTRL + SHIFT + ENTER。

INDEX/MATCH can help you: =INDEX(B:B,MATCH(A12,INDEX(A1:G8,0,MATCH(A11,1:1,0)),0)) 根據需要調整范圍。

從Range.Find文檔： 每次使用此方法時，都會保存LookIn、LookAt、SearchOrder和MatchByte的設置。如果下次調用方法時沒有為這些參數指定值，則使用保存的值。設置這些參數會更改“查找”對話框中的設置，而在“查找”框中更改設置會更改在忽略參數時使用的保存值。為了避免問題，每次使用此方法時都要顯式設置這些參數。 換句話說，在使用Find時，請始終指定What、LookIn和LookAt參數（如果它們與正在執行的查找相關，請指定SearchOrder和MatchByte）。

請嘗試下一個代碼。它將在表DataBodyRange中迭代，并通過將“Box”與表列6（在工作簿中）中的值串聯而生成一個工作表名稱。如果不存在此類工作表，則會發送警告消息并停止代碼： Option ExplicitSub box() Dim boxVal As String, tbl As ListObject, shBox As Worksheet, rngRef As Range, x As Long Dim shelvNo As Long, rackNo As Long Dim iRow As Long: iRow = 1 ' row where "rack" exist Dim iCol As Long: iCol = 1 'column letter where "rack" exists (C:C) Set tbl = Sheets("Register").ListObjects("Table1") For x = 1 To tbl.DataBodyRange.Rows.Count 'on the frist row there are ABC, ABC etc. If tbl.DataBodyRange.Cells(x, 1) = "" Then Exit For boxVal = tbl.DataBodyRange.Cells(x, 6).Value On Erro

首先，Case 4失蹤了！但是請注意，您可以使用以下代碼，而不是整個Select Case i塊（包含大量重復代碼）： ' define this before your for loop startsDim MonthsList As VariantMonthsList = Array("January", "February", "March", "April", "May", "June", "September", "October", "November", "December") 將此行而不是整個Select Case i … End Select塊放入： populateAttendance ThisWorkbook.Sheets(MonthsList(i - 1)), attendanceArr 注意這里 attendanceArr = Range("A" & startRow & ":" & attendanceSheetLastLetter & endRow) 它沒有定義Range在哪個表中，因此它可能會選擇錯誤的表，如果這個表是epmty，那么數組是空的。使用更具體的方法，如： attendanceArr = attendanceSheet.Range("A" & startRow & ":" & att

要寫入多個單元格，請使用writerow（）或write_column(），如文檔中所示。 另外，嘗試將第一行更改為列表（使用方括號而不是圓括號）： numbers_random = [random.random() for _ in range(10)]

寫在https://www.linkedin.com/pulse/javascript-within-opl-cplex-alex-fleischer/ 在OPL中，我們可以使用腳本進行預處理和后處理，用于流控制，也可以在數據文件.dat中處理數據。 例如https://github.com/AlexFleischerParis/oplscripting/blob/main/zooscriptingindata.dat prepare { function priceDecrease(s, name) { writeln("before price decrease"); writeln("s=",s); for(i=0;i<s.size;i++) Opl.item(s,i).cost-=100; writeln("after price decrease"); writeln("s=",s); return true; } }nbKids= 300;buses={<40,500>,<30,400>} invoke priceDecrease; 也可以使用SheetRead而不使用SheetRead，如https://github.com/AlexFleischerParis/oplexcel/blob/main/readwithoutsheetrea

如果我正確地理解了您的問題，您希望在當前數據區域中的所有行和列中搜索值txtSearch，但是您的代碼只搜索列A中的所有行。對嗎？ 如果是這樣，這是因為您的代碼塊對照txtSearch檢查每一行中的值，而只檢查每一行中的單元格（i，1）。在單元格索引中，第一個值（在您的例子中是i）是行號，第二個值（在您的例子中是1）是列號。因為i的值正在改變，所以您要檢查多行。由于第二個索引（1）的值沒有改變，所以您只檢查列1（“A”）。 要檢查所有列，您需要一個內部for-loop來遍歷每一行中的所有列。因此，您需要另一個變量來檢查列的總數，并需要另一個循環來遍歷它們，如下所示： Dim iSearch As Long, i As LongDim jSearch As Long, j As Long iSearch = Worksheets("Sheet1").Range("A1").CurrentRegion.Rows.Count jSearch = Worksheets("Sheet1").Range("A1").CurrentRegion.Columns.Count For i = 1 To iSearch For j = 1 to jSearch If Trim(Sheet1.Cells(i, j)) <> Trim(txtSearch.Text) And i = iSear