vb 处理 excel数据

hiahiahahiahia 2015-08-31 07:29:00
处理之前是这样的
处理之后是这样的
原始数据日期是不连续的
处理后的日期连续
而且 补充原始数据缺少的日期
补充的 日期后边的数据为0
就是给定一个开始日期 和一个最终日期(这里是5月1号 5月10号)
我的思路是这样的 先生成完整的日期 ( 这里的D列)
然后用D列的每一项日期去A列里边寻找
如果能找到
那么D列这个日期后边的数值为A列相同日期对应的数值
如果找不到那么日期后边补0
循环即可
问题来了我对数据查询更改这方面的语句不熟悉 还是新手
希望大家能帮帮忙
...全文
119 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Tiger_Zhao 2015-09-02
Range("D2:D11").Select
Range("E2:E11").Select
结束行号=2+开始日期和结束日期相差的天数
回复
ccton 2015-09-01
ADO ADO ADO 妈的居然要6个字符
回复
Tiger_Zhao 2015-09-01
录了个宏,搞定
Sub Macro1()
Range("D2").Select
ActiveCell.FormulaR1C1 = "5/1/2015"
Range("D2:D11").Select
Selection.DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
xlDay, Step:=1, Trend:=False

Range("E2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[-1],R2C[-4]:R5C[-3],2,FALSE)),0,VLOOKUP(RC[-1],R2C[-4]:R5C[-3],2,FALSE))"
Range("E2:E11").Select
Selection.FillDown
End Sub
回复
hiahiahahiahia 2015-09-01
引用 1 楼 Tiger_Zhao 的回复:
录了个宏,搞定
Sub Macro1()
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "5/1/2015"
    Range("D2:D11").Select
    Selection.DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
        xlDay, Step:=1, Trend:=False
    
    Range("E2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISNA(VLOOKUP(RC[-1],R2C[-4]:R5C[-3],2,FALSE)),0,VLOOKUP(RC[-1],R2C[-4]:R5C[-3],2,FALSE))"
    Range("E2:E11").Select
    Selection.FillDown
End Sub
这里的 ActiveCell.FormulaR1C1 = "5/1/2015" 是设置起始时间吧 那结束的日期怎么确定呢 我原来的想法是做一个vb软件 吧excel拖进去执行 就会生成想要的结果。。 因为这样可以让操作更简单一点 能不能 给个这样的方法或者思路
回复
hiahiahahiahia 2015-09-01
引用 1 楼 Tiger_Zhao 的回复:
录了个宏,搞定
Sub Macro1()
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "5/1/2015"
    Range("D2:D11").Select
    Selection.DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
        xlDay, Step:=1, Trend:=False
    
    Range("E2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISNA(VLOOKUP(RC[-1],R2C[-4]:R5C[-3],2,FALSE)),0,VLOOKUP(RC[-1],R2C[-4]:R5C[-3],2,FALSE))"
    Range("E2:E11").Select
    Selection.FillDown
End Sub
谢谢你 有时间立马试试 分肯定是你的
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2015-08-31 07:29
社区公告
暂无公告