返回列表 上一主題 發帖

複製的問題

複製的問題

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

在工作表標籤上
右鍵
移動或複製
建立副本
知之為知之,不知為不知,誠實也!

TOP

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

TOP

我試試看  謝謝 gong

TOP

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


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
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題