VBA 脚本快速copyExcel单元格的格式

2023年2月17日 54次阅读 来源: dingyo4930 
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

    原文作者：dingyo4930
    原文地址: https://blog.csdn.net/dingyo4930/article/details/101869980
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞