Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 301|回复: 2

[求助] 帮忙看下怎么实现对不同工作簿中指定名称的工作表的单元格进行编辑

[复制链接]
发表于 2020-1-8 21:59 | 显示全部楼层 |阅读模式
文件夹内有很多工作簿,每个工作簿内的工作表的名称是相同的。怎样实现对文件夹内所有工作簿中名称为:“(4)分部全费用分析表”的工作表的序号列最后一行加相应序号;并使C6  O6 P6 合并的单元格拆分, 拆分后  C6 C7与未拆分前的C6单元格内容相同 ;拆分后 O6 O7与未拆分前的O6单元格内容相同 ;拆分后  P6 P7与未拆分前的P6单元格内容相同 。并使单元格内容为“组织措施(以“项”计价)”所在行的 O列单元格的值等于此行E列至N列单元格之和。具体详见附件及图片。怎样用VBA实现  谢谢大佬。

导出表 - 副本.rar

31.89 KB, 下载次数: 2

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2020-1-9 10:41 | 显示全部楼层
Option Explicit

Sub test()
    Dim p, f
    Application.ScreenUpdating = False
    p = ThisWorkbook.Path & "\data\"
    f = Dir(p)
    Do While f <> ""
        With Workbooks.Open(p & f)
            Call test2
            .Close 1
        End With
        f = Dir
    Loop
End Sub


Sub test2()
    Dim i, x As Range
    Sheets("(4)分部全费用分析表").Select


    '1) “(4)分部全费用分析表”的工作表的序号列最后一行加相应序号;
    i = Range("a65536").End(xlUp).Row
    If InStr(Cells(i + 1, 3), "合") Then Cells(i + 1, 1) = Cells(i, 1) + 1


    '2) 并使C6  O6 P6 合并的单元格拆分,
    '拆分后 C6 C7与未拆分前的C6单元格内容相同 ;
    '拆分后 O6 O7与未拆分前的O6单元格内容相同 ;
    '拆分后 P6 P7与未拆分前的P6单元格内容相同 。
    Call test3("c")
    Call test3("o")
    Call test3("p")


    '3)并使单元格内容为“组织措施(以“项”计价)”所在行的 O列单元格的值,等于此行E列至N列单元格之和。
    Set x = Range("c:c").Find("计价")
    If Not x Is Nothing Then
        i = x.Row
        Cells(i, "o") = "=SUM(E" & i & ":N" & i & ")"
    End If

End Sub


Sub test3(c)
    Range(Cells(6, c), Cells(7, c)).UnMerge
    Cells(7, c) = Cells(6, c)
End Sub

导出表 - 副本2.rar (52.49 KB, 下载次数: 1)
回复

使用道具 举报

 楼主| 发表于 2020-1-9 11:20 | 显示全部楼层
谢谢大佬 我自己研究  向你学习啦
回复

使用道具 举报

*滑块验证:
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2020-8-14 03:26 , Processed in 0.062400 second(s), 6 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表