嘗試使用宏過濾列中的所有內容，並在Excel VBA中為每個已排序項目保存單個工作簿

Question

我有一個按C列排序的報告。我需要根據C列中的每個項目保存單個工作簿。第1行中包含標題。

以下是我認為應該起作用但不能起作用的代碼。 我也不確定如何將specifc文件夾保存到該文件夾​​。

 If Target.Address = "$C$2" Then
  fname = Range("C2")
  ActiveWorkbook.SaveAs Filename:=fname
 End If

Answer 1

這是一個宏，它將處理工作表中的目標單元格。 必須將其放入此特定工作表的代碼中。 存儲在C2單元格中的fname值示例如下：C：\\ Users \\ Taisho \\ Desktop \\ example.xlsx宏不起作用的原因可能是未將變量類型分配給Target 。

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim fname As String    

If Target.Address = "$C$2" Then
    fname = Range("C2").value2
    ActiveWorkbook.SaveAs Filename:=fname
End If

End Sub