複製的問題

birdy0815

我在工作表1  把要copy的資料選上(欄和列寬都設定好)  然後要複製到工作表2   結果東西欄和列寬都跑掉。 我用選擇性貼上  用欄寬度→確定，再一次選擇性貼上 全部→確定   結果欄寬度對了  但列的寬度是不對(都是16.5)   要如何解決  而我要copy的資料每個列的寬度不見得一樣。

gong

在工作表標籤上
右鍵
移動或複製
建立副本

y663258

原來將整個工作表搬移就可以達成，又學一招。

birdy0815

我試試看  謝謝 gong

softsadwind

分頁另存檔案，直接在開啟檔案所在位置另存新檔


Sub SaveSheet()
'以下程式碼試用 Excel 200~2010版
Dim wks As Worksheet
    Set wks = ActiveSheet
    With wks
        If Val(Application.Version) < 12 Then
            'Excel 版本 97-2003
            'xlWorkbookNormal -4143 一般活頁簿
            FileExtStr = ".xls": FileFormatNum = -4143
        Else
            Select Case .Parent.FileFormat
                'xlOpenXMLWorkbook 51 開啟 XML 活頁簿
            Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
            Case 52:
                If .Parent.HasVBProject Then
                    'xlOpenXMLWorkbookMacroEnabled 52 開啟 XML 活頁簿巨集啟用
                    FileExtStr = ".xlsm": FileFormatNum = 52
                Else
                    FileExtStr = ".xlsx": FileFormatNum = 51
                End If
            End Select
        End If
        .Copy
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs .Parent.Path & "\" & .Name & FileExtStr, FileFormatNum
        Application.DisplayAlerts = True
        ActiveWorkbook.Close SaveChanges:=False
    End With
End Sub