作者: bladeyang

1.點擊檔案=>點擊左側欄的選項=>在 Excel 選項 視窗中，從左側窗格選擇進階=>一般，然後點擊編輯自訂列表按鈕。
在 自訂列表 對話框中：在列表項目」框中，輸入您的自訂順序，每項一行
點擊 新增 以儲存列表。該列表將出現在左側的「自訂列表」框中。
點擊 確定 關閉 自訂列表 對話框，再點擊 確定 退出 Excel 選項。

2.將自訂列表排序應用於樞紐分析表：
點擊樞紐分析表內的任意位置以啟動它。
點擊樞紐分析表中欄位標籤旁的下拉箭頭。
選擇 排序 > 更多排序選項。在 排序 對話框中：
選擇 升序 (A 到 Z) 或 降序 (Z 到 A)（升序將遵循您的自訂列表順序；降序將反轉它）。
取消勾選「每次更新報表時自動排序」（若已勾選）。
在「第一個鍵排序順序」下，從下拉選單中選擇您的自訂列表。
點擊 確定，然後再次點擊確定以應用排序。

Sub DeleteRowsBasedOnCriteria()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim deleteFlag As Boolean
    Dim concatenateString As String

    ' Set the active sheet as the worksheet
    Set ws = ActiveSheet

    ' Find the last row in column A
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' First pass: Mark rows for deletion based on the first criteria
    For i = lastRow To 1 Step -1
        ' Initialize deleteFlag to False for each row
        deleteFlag = False

        ' Check if any of the columns A through H is empty
        For j = 1 To 8 ' Columns A through H
            If ws.Cells(i, j).Value = "" Then
                ' Set the deleteFlag to True if any column is empty
                deleteFlag = True
                Exit For
            End If
        Next j

        

        ' Delete the entire row if any column A through H is empty or if the concatenation matches
        If deleteFlag Then
            ws.Rows(i).Delete
        End If
    Next i

    ' Find the last row again after the first deletion
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' Second pass: Delete rows based on the second criteria
    For i = lastRow To 1 Step -1
        ' Check if the concatenation of the first 9 columns equals a specific string
        concatenateString = ""
        For j = 1 To 9 ' Columns A through I
            concatenateString = concatenateString & ws.Cells(i, j).Value
        Next j

        ' Delete the entire row if the concatenation matches the specific string
        If concatenateString = "訂單號碼訂單日預定出港日品名台灣品名數量/KGS包裝方式目的地備註" Then
            ws.Rows(i).Delete
        End If
    Next i
End Sub

1.在工作表的地方按 ALT + F11

2.再按 Ctrl+G 會出現一欄及時運算

3.複製貼上以下程式碼

Application.CommandBars(“Cell”).enabled=True

Application.CommandBars(“Cell”).Reset

4.按Enter

5.按 Alt+Q 回到工作表

https://groups.google.com/g/microsoft.public.excel.misc/c/rlvcJrM_JE8?pli=1

Right Click on Column or Row does not show Context Menu

application.CommandBars(“Cell”).Reset
application.CommandBars(“cell”).Enabled = True
application.CommandBars(“Column”).Reset
application.CommandBars(“column”).Enabled = True
application.CommandBars(“Row”).Reset
application.CommandBars(“row”).Enabled = True

press enter every command

https://superuser.com/questions/360399/right-click-on-column-or-row-does-not-show-context-menu