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的格式扩充使用，用于开发和调整导出的模板

转载于:https://www.cnblogs.com/Aaron-Lee/p/6529544.html

相关资源：JAVA上百实例源码以及开源项目