后台圈的专栏

Range("A2:K" & Cells(Cells.Rows.Count, 1).End(xlUp).Row).Select

Export WorksheetOption ExplicitSub exportSheet() Const FolderPath As String = "C:\Test\" Const FileName As String = "ART.xlsx" Const SheetName As String = "Master List" On Error Resume Next Workbooks(FileName).Close O