複製的問題

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

樓主熱帖

gong

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 455
主題: 8
精華: 1
積分: 480
點名: 0
作業系統: WINS home
軟體版本: OFFICE XP
閱讀權限: 100
性別: 男
來自: 平鎮
註冊時間: 2010-5-1
最後登錄: 2015-1-22

論壇貢獻勳章

2^#

發表於 2011-1-11 08:53 | 只看該作者

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

知之為知之，不知為不知，誠實也！

TOP

y663258

中學生 Rank: 2

帖子: 52
主題: 13
精華: 0
積分: 119
點名: 0
作業系統: xp
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-5-6
最後登錄: 2022-6-7

3^#

發表於 2011-1-11 09:42 | 只看該作者

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

TOP

birdy0815

中學生 Rank: 2

帖子: 38
主題: 5
精華: 0
積分: 67
點名: 0
作業系統: winXP 和 win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-1-9
最後登錄: 2013-1-21

4^#

發表於 2011-1-14 12:42 | 只看該作者

我試試看謝謝 gong

TOP

softsadwind

中學生 Rank: 2

帖子: 129
主題: 3
精華: 0
積分: 178
點名: 0
作業系統: XP
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-12-28
最後登錄: 2018-11-10

5^#

發表於 2011-1-14 14:15 | 只看該作者

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

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