vb 处理 excel数据

[hiahiahahiahia]

处理之前是这样的
处理之后是这样的
原始数据日期是不连续的
处理后的日期连续
而且 补充原始数据缺少的日期
补充的 日期后边的数据为0
就是给定一个开始日期 和一个最终日期（这里是5月1号 5月10号）
我的思路是这样的 先生成完整的日期 （ 这里的D列）
然后用D列的每一项日期去A列里边寻找
如果能找到
那么D列这个日期后边的数值为A列相同日期对应的数值
如果找不到那么日期后边补0
循环即可
问题来了我对数据查询更改这方面的语句不熟悉 还是新手
希望大家能帮帮忙

[hiahiahahiahia]

引用 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

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

[hiahiahahiahia]

引用 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拖进去执行 就会生成想要的结果。。 因为这样可以让操作更简单一点 能不能 给个这样的方法或者思路

[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

[ccton]

ADO ADO ADO 妈的居然要6个字符

[Tiger_Zhao]

Range("D2:D11").Select
Range("E2:E11").Select
结束行号=2+开始日期和结束日期相差的天数