Sub Macro2() Dim iRow, iCount iRow = 981 //從981行開始擴展 copy981行前的格式 Dim SampleChartSet SampleChart = Sheet1.ChartObjects("Chart 353") SampleChart.CopyFor iCount = 1 To 100'Sheet1.ChartObjects("Chart 353").Activate'ActiveChart.ChartArea.Select'ActiveChart.ChartArea.Copy'Range("E" & iRow).Select'ActiveSheet.Paste'ActiveChart.FullSeriesCollection(2).Values = "=Detail!$F$" & iRow'ActiveChart.FullSeriesCollection(1).Values = "Detail!$F$" & iRow + 1 Range("H" & iRow).Select //H 列的格式數據來源于I行 ActiveSheet.PasteActiveChart.FullSeriesCollection(2).Values = "=Detail!$I$" & iRowActiveChart.FullSeriesCollection(1).Values = "Detail!$I$" & iRow + 1Range("L" & iRow).SelectActiveSheet.PasteActiveChart.FullSeriesCollection(2).Values = "=Detail!$M$" & iRowActiveChart.FullSeriesCollection(1).Values = "Detail!$M$" & iRow + 1Range("O" & iRow).SelectActiveSheet.PasteActiveChart.FullSeriesCollection(2).Values = "=Detail!$P$" & iRowActiveChart.FullSeriesCollection(1).Values = "Detail!$P$" & iRow + 1iRow = iRow + 3 NextEnd Sub

可以供Excel的格式擴充使用，用于開發和調整導出的模板

轉載于:https://www.cnblogs.com/Aaron-Lee/p/6529544.html

總結

以上是生活随笔為你收集整理的VBA 脚本快速copyExcel单元格的格式的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。