根據(jù)注釋，嘗試使用pivot表，使范圍擴(kuò)展到遠(yuǎn)遠(yuǎn)超出預(yù)期的結(jié)果，并過濾掉透視圖中的“空白”并從中生成圖表。默認(rèn)的數(shù)據(jù)透視圖很難看，但您可以根據(jù)需要?jiǎng)h除按鈕和格式。記住在每次更新期間都要刷新你的數(shù)據(jù)透視圖。

我不太清楚我是否明白你在找什么！如果Excel版本具有動(dòng)態(tài)數(shù)組公式，則可以嘗試以下操作：

這里有一個(gè)笨重的公式，你想怎么做就怎么做。 =IF(COUNTIF($A$2:$A$9, $A2)>=2,IFERROR(CHOOSE(COUNTIF($A$2:A2,A2),"Morning","Evening"),""),"")

要檢查字段是否為空，條件將為“<>”，代碼如下所示。 .Range("Q7").Value = = "<>"""" 若要檢查某個(gè)字段是否為空，條件將為“”，代碼將如下所示。 .Range("Q7").Value = = "=""""

使用Name對(duì)象的.RefersToRange屬性。像這樣： ThisWorkbook.Names("Root").RefersToRange.Select 但是.Select方法將在工作表未激活時(shí)失敗。更好的方法是Application.Goto，如下所示： Application.Goto ThisWorkbook.Names("Root").RefersToRange 旁注：.Select通常是一種毫無意義和浪費(fèi)的方法，它會(huì)妨礙宏腳本的速度和準(zhǔn)確性。與依賴.Select和Selection不同，您可以同時(shí)刪除這兩個(gè)變量，并直接引用要與之交互的范圍。 Comparison: ThisWorkbook.Activate Sheets("Sheet1").Activate Range("B2").Select Selection = "Input Text" ThisWorkbook.Sheets("Sheet1").Range("B2") = "Input Text" 最后一行的操作與前4行相同，但跳過了分別激活工作簿、工作表和范圍的步驟，從而消除了屏幕抖動(dòng)，并大大加快了腳本的執(zhí)行速度。

使用產(chǎn)品和索引： =SUMPRODUCT(INDEX($M$1:$V$1,(COLUMN()-COLUMN($A$1:A1)+1)),$A$2:A2) 范圍是動(dòng)態(tài)的，并且在停車時(shí)會(huì)增加。 對(duì)于非Office 365的版本，我們需要誘使INDEX接受數(shù)組： =SUMPRODUCT(INDEX($M$1:$V$1,N(IF({1},(COLUMN()-COLUMN($A$1:A1)+1)))),$A$2:A2) 然后用Ctrl-Shift-Enter確認(rèn)這一點(diǎn)，使其成為一個(gè)數(shù)組公式。

請(qǐng)嘗試此代碼。它將新數(shù)據(jù)附加到目標(biāo)范圍的pre-existing內(nèi)容。 Private Sub CommandButton2_Click() 'update availability and utilisatioon to SMU Tracking sheet Dim ws1 As Worksheet ' source Dim ws2 As Worksheet ' destination Dim Rt As Long ' target row Dim Ct As Long ' target column Set ws1 = Worksheets("Delays_a") Set ws2 = Worksheets("SMU Tracking") With ws2.Range("ProductivitySMU") Ct = .Column Rt = ws2.Cells(.Row, Ct).End(xlDown).Row + 1 End With ws1.Range("Productivity").Copy ws2.Cells(Rt, Ct)End Sub 本質(zhì)上，目標(biāo)區(qū)域不需要命名，因?yàn)榇a只是使用名稱來查找目標(biāo)單元格。事實(shí)上，如果名稱列中的總行數(shù)超過指定的行數(shù)，則名稱將變得不相關(guān)。在我的代碼中，目標(biāo)范圍的相關(guān)成員是它的第一個(gè)單元格。如果該范圍在項(xiàng)目中有其他用途，則可以使其成為動(dòng)態(tài)的，自

錯(cuò)誤消息告訴您 sheet[1,2] the part 1,2 是tuple，但需要提供整數(shù)或片。 切片是一種簡(jiǎn)單的方法 sheet[1:3] 使其成為工作表名稱 sheetname = ' '.join(sheet[1:3])

這是Wyn Hopkins寫的，看起來可能與你的問題有關(guān)。

根據(jù)目前的問題（無需進(jìn)一步限定），以下代碼將滿足您的要求： Option ExplicitPrivate Sub Worksheet_Change(ByVal rgTarget As Range) With rgTarget Select Case .Column Case 1: .Offset(0, 1).Select Case 2: .Offset(1, -1).Select End Select End With End Sub 上面的內(nèi)容進(jìn)入工作表的VB，在VB中輸入數(shù)據(jù)。如果您不知道這意味著什么，請(qǐng)告訴我，我將提供如何實(shí)施的詳細(xì)信息。

如您所觀察到的，在處理不具有指定范圍的圖紙時(shí)，將發(fā)生此錯(cuò)誤。 您需要檢測(cè)到缺少名稱，然后中止 把這個(gè)加到If Not Intersect ...行之前 Dim nm as NameOn Error Resume NextSet nm = Sh.Names("Fruits")On Error GoTo 0If nm Is Nothing Then Exit Sub 此代碼中還有許多其他問題/操作可以解決 陷阱的錯(cuò)誤是，更改的工作表不是工作表 如果有多個(gè)單元格發(fā)生更改，而不是退出，請(qǐng)?zhí)幚砻總€(gè)單元格 允許用戶輸入多個(gè)逗號(hào)分隔的項(xiàng)目，處理每個(gè)項(xiàng)目 允許用戶在逗號(hào)后省略或輸入多個(gè)空格。在一個(gè)術(shù)語中保留多個(gè)空格。 我已經(jīng)使用TextJoin來重建分隔列表。如果您的Excel版本不支持此功能，可以用另一種方法完成（請(qǐng)參閱注釋掉的替代方法） 我包含了一個(gè)UpdateCellsub，它定義了更新單元格的規(guī)則。如果我的解釋與你的不符，請(qǐng)告訴我。 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) ' To allow multiple selections in a Drop Down List in Excel (without repetition) Dim ws As Worksheet Dim

考慮在范圍名稱定義中使用Index（）而不是Offset（）。使用Index（）可以指向第2行，而不必?fù)?dān)心刪除第2行。 第一個(gè)索引處理A列中的第2行，第二個(gè)索引使用CountA函數(shù)標(biāo)識(shí)的行。冒號(hào)操作符將兩個(gè)單元格連接到一個(gè)范圍中。 =Index('Carrier List'!$A:$A,2):Index('Carrier List'!$A:$A,COUNTA('Carrier List'!$A$1:$A$1000)) 編輯：我沒有注意到原來的命名范圍是11列寬，即從A列開始擴(kuò)展到K列。要在命名范圍公式中執(zhí)行此操作，只需將第二個(gè)索引（）更改為在K列中工作，但保留A列的CountA。 =Index('Carrier List'!$A:$A,2):Index('Carrier List'!$K:$K,COUNTA('Carrier List'!$A$1:$A$1000))

如果您有權(quán)訪問Excel O365： 使用HSTACK，它將只是=HSTACK("this","is","my",house)。 House可以是單個(gè)值或數(shù)組。如果“House”是一個(gè)命名范圍{“a”、“B”、“C”}，那么上面的HSTACK函數(shù)將返回一個(gè)6元素?cái)?shù)組{"this","is","my","A","B,"C"}

我建議執(zhí)行以下操作（帶有3個(gè)輔助列）： 使用助手a列提取字段1中的唯一值，并將此新信息保存為動(dòng)態(tài)命名范圍。要提取唯一值，您可以使用unique函數(shù)（如果excel版本有）或以下數(shù)組公式（不要忘記按Ctrl+Shift+Enter以正確工作）：=IFERROR(INDEX($A$2:$A$100,MATCH(0,COUNTIF($D$1:D1,$A$2:$A$100),0)),"") 現(xiàn)在，您可以創(chuàng)建一個(gè)數(shù)據(jù)驗(yàn)證下拉列表，只需將命名范圍作為列表調(diào)用。 使用另一個(gè)輔助列提取字段2中的值，將下拉列表中選擇的字段1值作為輸入。 使用額外的輔助列來組織步驟2中的值的數(shù)據(jù)并刪除空格。之后，您可以創(chuàng)建一個(gè)新的動(dòng)態(tài)命名范圍及其相應(yīng)的下拉列表。 注意：如果excel版本具有過濾功能，則可以避免第2步和第3步。 你可以在這里找到一個(gè)例子。（將其下載為excel文件以進(jìn)行測(cè)試）

這似乎適用于您的示例。 基本上，我看的是帶“001”的一行，如果“010”在“1”下面五行，那么是“2”。如果不是路線的起點(diǎn)，它只復(fù)制上面的行。 In C2: =IF(A2="001",IF(A3="002",IF(A7="010",1,2),C1),C1) 然后向下拖動(dòng)。 編輯以匹配不一致數(shù)據(jù)的請(qǐng)求。 在C2中添加以下公式： =IF(B2="Outbound",IF(ISNUMBER(MATCH("010",A3:A9,0)),1,2),C1) 它現(xiàn)在看起來是否是出站的，如果不是抓取高于值的。如果是出站，則在下面六行中搜索“010”，如果有匹配項(xiàng)，則為“1”，否則為“2”。