VBA 腳本快速copyExcel單元格的格式

Sub Macro2()
Dim iRow, iCount
iRow = 981     //從981行開始擴展    copy981行前的格式
Dim SampleChart

Set SampleChart = Sheet1.ChartObjects("Chart 353")
SampleChart.Copy

For 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.Paste
    
    ActiveChart.FullSeriesCollection(2).Values = "=Detail!$I$" & iRow
    ActiveChart.FullSeriesCollection(1).Values = "Detail!$I$" & iRow + 1
    
    Range("L" & iRow).Select
    ActiveSheet.Paste
    
    ActiveChart.FullSeriesCollection(2).Values = "=Detail!$M$" & iRow
    ActiveChart.FullSeriesCollection(1).Values = "Detail!$M$" & iRow + 1
    
    Range("O" & iRow).Select
    ActiveSheet.Paste
    
    ActiveChart.FullSeriesCollection(2).Values = "=Detail!$P$" & iRow
    ActiveChart.FullSeriesCollection(1).Values = "Detail!$P$" & iRow + 1
    
    iRow = iRow + 3   
Next
  
End Sub

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