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

谢谢你有时间立马试试分肯定是你的

回复赞