返回列表 上一主題 發帖

複製的問題

birdy0815

帖子
38 
主題
5 
精華
0 
積分
67 
點名
0  
作業系統
winXP 和 win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2011-1-9 
最後登錄
2013-1-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-1-10 19:29 | 只看該作者

複製的問題

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

gong

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

論壇貢獻勳章
2#
發表於 2011-1-11 08:53 | 只看該作者
在工作表標籤上
右鍵
移動或複製
建立副本
知之為知之，不知為不知，誠實也！

TOP

y663258

帖子
52 
主題
13 
精華
0 
積分
119 
點名
0  
作業系統
xp 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-5-6 
最後登錄
2022-6-7 
3#
發表於 2011-1-11 09:42 | 只看該作者
原來將整個工作表搬移就可以達成，又學一招。

TOP

birdy0815

帖子
38 
主題
5 
精華
0 
積分
67 
點名
0  
作業系統
winXP 和 win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2011-1-9 
最後登錄
2013-1-21 
4#
發表於 2011-1-14 12:42 | 只看該作者
我試試看  謝謝 gong

TOP

softsadwind

帖子
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

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題