VBA宏复制文件到指定excel指定列

最新推荐文章于 2024-09-09 15:27:40 发布

程序媛小姑娘

最新推荐文章于 2024-09-09 15:27:40 发布

阅读量2k

点赞数 1

分类专栏：大数据分析 Python操作Excel 文章标签：数据分析 excel

本文链接：https://blog.youkuaiyun.com/TK_Phoenix/article/details/105427658

版权

本文介绍了如何通过VBA宏实现从外部文件高效地复制数据，并精准粘贴到Excel工作表的指定列中，提高数据分析时的数据整理效率。详细步骤包括设置宏，读取外部数据，以及定位并粘贴到目标列。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub 复制费用()
'
' 复制费用 宏
'

'
'寻找广告费
adverst = Dir("D:\众结资料\1日常工作内容\每日销售开发业绩(Python)\" & Application.WorksheetFunction.Text(Date, "yyyymmdd") & "\每日广告费.csv")
If adverst = "" Then
    MsgBox "未找到广告费"
    Exit Sub
    Else
End If

'寻找推广费
promo = Dir("D:\众结资料\1日常工作内容\每日销售开发业绩(Python)\" & Application.WorksheetFunction.Text(Date, "yyyymmdd") & "\每日推广费.csv")
If promo = "" Then
    MsgBox "未找到推广费"
    Exit Sub
    Else
End If

HROW9 = Sheets("费用").[H2].CurrentRegion.Rows.Count
HROW10 = Sheets("费用").[W2].CurrentRegion.Rows.Count


'删除原有数据

Sheets("费用").Range("H2:K" & HROW9).Clear
Sheets("费用").Range("W2:Z" & HROW10).Clear


'复制广告数据
Set advercopy = Workbooks.Open("D:\众结资料\1日常工作内容\每日销售开发业绩(Python)\" & Application.WorksheetFunction.Text(Date, "yyyymmdd") & &

最低0.47元/天解锁文章