這問題不知道在這裡問適不適合,因為每月要提供報表給母公司,報表是excel,裡面有很多的連結及公式。但到了對方那兒打開後,常會有連結或是公式跑掉的問題

所以想請教一下,有沒有一種程式,可以直接幫我將excel裡面各欄位直接轉換成普通的值呢?

不然對方要求全部要選擇性貼上為"值"過後才能送咧,對方是母公司,沒辦法....

煩請達人幫我吧!謝謝嚕!
文章關鍵字
有試過選擇性貼上嗎 可以指定貼上 公式 或是值
不知道有沒有這種程式,不過 應該是自己寫比較快
剛剛用錄製巨集的功能,應該可以做得到

'做個迴圈把 來源檔案 複製一份,或者用檔案總管複製整份資料夾,檔案名稱或資料夾要有對應關係

'對每個檔案、每個sheet,做:

'複製原始資料
Cells.Select
Selection.Copy

'針對對應的目標Excel檔與sheet,貼上資料與格式
Sheets("Sheet2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks :=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False


30行左右的程式吧...
選擇性貼上....
應該就符合樓主的需求囉
我的確是得用"選擇性貼上"轉換為值,但給他們的報表有十個sheet啊~~~~裡面又很多欄位,所以想問一下有沒有更偷懶的方式呢?

看有人分享錄製巨集的功能,我覺得這倒是可行的,謝嚕!
將下面加入巨集,就可以全部轉換了


Sub convertvalue()

For i = 1 To Worksheets.Count
'複製原始資料
Sheets( i ).Select
Cells.Select
Selection.Copy

'針對對應的目標Excel檔與sheet,貼上資料與格式

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Next
End Sub
文章分享
評分
評分
複製連結

今日熱門文章 網友點擊推薦!