[已解决]怎样补充循环补充日期

追梦人亮 · 发表于 2013-10-31 19:43

本帖最后由追梦人亮于 2013-11-1 15:46 编辑

大家好，希望大家帮助，下面的工作簿中每个表里数据的时间段相同，但有些表中的日期会少几天，会影响计算，怎样用程序实现循环补充缺少的日期，使所有表的日期都和表399300的一样，对于缺少的日期对应的价格用上一天的代替即可，希望大神帮助哈！非常感谢！
以下是我编，老不能运行，求大神看错在哪儿了，谢谢了

Sub 补充日期()
Dim i
Dim sh
For Each sh In Sheets '
With sh '
If .Name Like "######" Then
For i = 3 To 400
If ActiveSheet.Cells(i, 1).Value <> Sheets("399300").Cells(i, 1).Value Then
Rows(i).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 'xlFormatFromLeftOrAbove指定从上方复制单元格的格式
Sheets("399300").Cells(i, 1).Select
Selection.Copy
Cells(i, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range(Cells(i, 1), Cells(i, 2)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
End With
Rows(i).Select
Cells(i, 2).Value = 0
End If
Next i
End With
Next
End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

爱疯

2013-11-1 15:00

Sub Test()
Dim A(), B(), C()
Dim i&, j&, x&, y&
'确定数组A
Sheets(1).Select
x = Application.Min(Range("a:a"))
y = Application.Max(Range("a:a"))
ReDim A(x To y, 1 To 2)
For i = LBound(A) To UBound(A)
A(i, 1) = i
Next i
C = A
'注：如果其它表的日期并不包含于数组A，下面可能出错
For j = 2 To Sheets.Count
A = C
With Sheets(j)
'1.输入
B = .Range("a1").CurrentRegion.Value
For i = 3 To UBound(B)
A(B(i, 1), 2) = B(i, 2)
Next i
'2.修改
For i = LBound(A) To UBound(A)
If A(i, 2) = "" Then A(i, 2) = A(i - 1, 2)
Next i
'3.输出
.Range("a3:b65536").ClearContents
.Range("a3").Resize(y - x + 1, UBound(A, 2)) = A
End With
Next j
End Sub

复制代码

证券2.rar (101.54 KB, 下载次数: 12)

追梦人亮 · 发表于 2013-10-31 22:59

不是，研究生课程，衍生金融工具与对冲基金，现在做对冲基金要处理大量数据！[em31]

爱疯 · 发表于 2013-11-1 15:00

Sub Test()
Dim A(), B(), C()
Dim i&, j&, x&, y&
'确定数组A
Sheets(1).Select
x = Application.Min(Range("a:a"))
y = Application.Max(Range("a:a"))
ReDim A(x To y, 1 To 2)
For i = LBound(A) To UBound(A)
A(i, 1) = i
Next i
C = A
'注：如果其它表的日期并不包含于数组A，下面可能出错
For j = 2 To Sheets.Count
A = C
With Sheets(j)
'1.输入
B = .Range("a1").CurrentRegion.Value
For i = 3 To UBound(B)
A(B(i, 1), 2) = B(i, 2)
Next i
'2.修改
For i = LBound(A) To UBound(A)
If A(i, 2) = "" Then A(i, 2) = A(i - 1, 2)
Next i
'3.输出
.Range("a3:b65536").ClearContents
.Range("a3").Resize(y - x + 1, UBound(A, 2)) = A
End With
Next j
End Sub

复制代码

证券2.rar (101.54 KB, 下载次数: 12)

爱疯 · 发表于 2013-11-1 15:05

“... 对于缺少的日期对应的价格用上一天的代替即可 ...”
如果缺少的日期是2012/10/8，那不是要B3="开盘" ?

追梦人亮 · 发表于 2013-11-1 15:17

爱疯发表于 2013-11-1 15:05
“... 对于缺少的日期对应的价格用上一天的代替即可 ...”
如果缺少的日期是2012/10/8，那不是要B3="开盘" ...

嗯，用上一天的收盘，也就是把上一行的复制下来，最终是日期要对应，接下来好做一些分析，谢谢啦

追梦人亮 · 发表于 2013-11-1 15:42

追梦人亮发表于 2013-11-1 15:17
嗯，用上一天的收盘，也就是把上一行的复制下来，最终是日期要对应，接下来好做一些分析，谢谢啦

哈哈，不好意思啊，可以了，刚试了，但有一个地方不懂，
x = Application.Min(Range("a:a"))    '
y = Application.Max(Range("a:a"))    '
ReDim A(x To y, 1 To 2)                '
For i = LBound(A) To UBound(A)
      A(i, 1) = i
Next i
C = A
这段话的意思是什么，能详细解释下吗，刚查帮助了没有看明白，谢谢啦

爱疯 · 发表于 2013-11-1 15:52

重新定义一个二维数组A，
A的下界是第1个工作表A列最小值，
A的下上是第1个工作表A列最大值，

并让数组A第1列的值，依次等于第1个工作表A列的各值

追梦人亮 · 发表于 2013-11-1 15:54

爱疯发表于 2013-11-1 15:52
重新定义一个二维数组A，
A的下界是第1个工作表A列最小值，
A的下上是第1个工作表A列最大值，

但最小值是日期，可以吗，正常不是A(34,45)，这种形式吗

追梦人亮 · 发表于 2013-11-1 16:01

追梦人亮发表于 2013-11-1 15:54
但最小值是日期，可以吗，正常不是A(34,45)，这种形式吗

他是把日期的最小值给x了还是，单元格的位置的最小值给X了

追梦人亮 · 发表于 2013-11-1 16:06

追梦人亮发表于 2013-11-1 15:54
但最小值是日期，可以吗，正常不是A(34,45)，这种形式吗

再次打扰了，刚看了一下，有点小问题，有的把周六周日的日期也补上了，这两天不开盘，所以没有数据，不用补周六周日的[em07]

		自动登录	找回密码
密码			注册

[已解决]怎样补充循环补充日期

点评

点评

点评