VBA复制拆分工作表调用excel公式

最新推荐文章于 2022-01-13 10:26:51 发布

大管同学

最新推荐文章于 2022-01-13 10:26:51 发布

阅读量400

点赞数 1

分类专栏： VBA for excel

本文链接：https://blog.csdn.net/emdtoy/article/details/119241314

版权

本文介绍了如何使用VBA编程在Excel中复制工作表，并详细讲解了如何处理工作表中的公式，进行数据拆分。通过实例演示，帮助读者掌握VBA在自动化Excel操作中的应用。

摘要由CSDN通过智能技术生成

Sub BJ_Union删除大区_汇总款式销售信息并排序()
Application.DisplayAlerts = False
Dim St1 As Object, St2 As Object, Cel As Object, Rng As Object
Dim Row1 As Integer

'每次运行程序之前,删掉之前生成的排名表
For Each St1 In Sheets
    If Right(St1.Name, 2) = "排名" Then  '判断表名最后两个字符是否是"排名"
        St1.Delete
    End If
Next

'复制数据表,并命名
Sheets("案例数据").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "北京地区款式实销金额排名"

'获取行数
Set St2 = ActiveSheet
Row1 = St2.Range("A65536").End(xlUp).Row '排名表的行数

'删除其他大区
If St2.FilterMode = True Then St2.ShowAllData '取消筛选和隐藏
Set Rng = St2.Cells(St2.Cells.Rows.Count, "f") '初始时给rng增加一个没用的数据
For Each Cel In St2.Range("F2:F" & Row1)
    If Left(Cel.Value, 3) <> "190" Then Set Rng = Union(Rng, Cel)
Next
Rng.EntireRow.Delete

'填充款号汇总公式
'St2.Range("l1").Value = "款号"
'St2.[M1].Value = "款式销量"
'St2.[N1].Val