2016-08-03 70 views
0

我正在將來自多個工作簿的數據收集到主工作簿中。我想保留我的主工作簿中的文本格式,就像它在我的源工作簿中一樣。任何人都可以幫忙嗎?在主工作簿中保留格式

+0

粘貼數據時只需使用「粘貼特殊」和「值」。如果使用VBA執行此操作,則粘貼行應該爲Range(「A1」)。PasteSpecial Paste:= xlPasteValues,Operation:= xlNone,SkipBlanks:= False,Transpose:= False –

+0

是否將工作簿中的工作簿複製到一個工作表或一個單獨的工作表中複製每個工作簿?你有任何可以發佈的代碼嗎? – Clusks

+0

@ J.B。你剛剛描述了OP想要實現什麼的完全相反。他想保留格式'...因爲它在我的源工作簿中。因此,他應該複製它包括格式(一個不只是你所描述的值)和任何可能的條件格式。然而,走的路幾乎是一樣的。只需使用以下內容:'wbSource.Range(「A1:C10」)。複製Destination:= wbDestination.Range(「A1:C10」)' – Ralph

回答

0

所以這裏是你如何從一個工作簿複製到另一個,保持源格式。您可以根據需要調整工作簿的範圍和名稱。

Workbooks("source").Worksheets("Sheet1").Range("A1").Copy 
Workbooks("destination").Worksheets("Sheet1").Range("A1").PasteSpecial paste:=xlPasteAllUsingSourceTheme 
+0

非常感謝。我很成功:) –

+0

很高興幫助!如果您可以將此標記爲正確的答案,我正在努力建立自己的聲譽,這將有很大幫助。謝謝! –

相關問題