我寫了一個小的宏，它需要每日Excel報告並將其打印到特定的打印機（打印到PDF）。當我運行宏時，我仍然錯過了最後的步驟。按原樣運行它，我仍然需要點擊彈出的「保存」按鈕，並且必須導航到正確的文件路徑。有沒有辦法讓它自動爲我保存按鈕，並將文件保存到正確的文件夾中（如下面的代碼所示）？ Sub printToPDF()
'declare variable for my file path
Dim
由於某些原因在單元格488後功能停止正確複製。 488一直到最後（大約第1,000行），它從同一單元格拉到底部。 任何方式使此代碼更健壯，以便它總是會從同一行中的單元拉出？ 如果我需要澄清，請讓我知道，我會很樂意詳細說明，但必要的。 Sub Compare()
Dim lastRow As Long
With Sheets("MP Parameters")
las
試圖刪除列，對簡單的出口，我得到一個錯誤： Run-time error '9': Subscript out of range 每次我在第二最近創建的工作簿中運行的基本的宏時間 。 Sub ONCE()
'
' ONCE Macro
' export and prep an ONC list
'
' Keyboard Shortcut: Ctrl+e
'
Range("A:
有沒有辦法使用FIND方法來搜索2個替代值中的1個？ Set d = .Find(What:=[a OR b]) 編輯：謝謝你的聯盟的建議。我不知道這是可能的，或者我原本會提供更多細節來使問題更清楚。所以這裏是第二次嘗試： 我有3列。 A充滿日期。 B是代碼。而D是我需要插入功能的地方。該函數將評估colB中的代碼，如果代碼爲「2」，則它將運行FIND方法以找到colB中最近的先前代碼1或2，然後