将now引用为表中单元格中的日期？

wsmnjj1

Sub 日均()
Dim i As Integer
i = DateDiff("d", "2013 - 1 - 1", Now) + 4

Sheets("sheet5").Select
Range("H28:H32").Select
Selection.Copy
Sheets("13公司").Select
Range("B" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True

Sheets("sheet5").Select
Range("D28:D32").Select
Selection.Copy
Sheets("13机构").Select
Range("B" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True

Sheets("sheet5").Select
Range("E28:E32").Select
Selection.Copy
Sheets("13同业").Select
Range("B" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True

Application.CutCopyMode = False

End Sub
前次提问后展老师给编辑了一下代码，主要问题解决了。但是如果将红字部分：now改变直接引用为“今日数据”表中“A2：C2”单元格中数值就完美了，请老师指点，原文附件见1.23日请教！这段代码如何写？
http://www.excelpx.com/thread-294452-1-1.html

hwc2ycy

直接把红字换成单元格的。
是不是要执行三次，分别用A2,B2,C2测试？

hwc2ycy

1. Sub 日均()
   
2.     Dim i As Integer
   
3.     i = DateDiff("d", "2013 - 1 - 1", [a2]) + 4
   
4.     Sheets("sheet5").Range("H28:H32").Copy
   
5.     Sheets("13公司").Range("B" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True
   
6.     Sheets("sheet5").Range("D28:D32").Copy
   
7.     Sheets("13机构").Range("B" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True
   
8.     Sheets("sheet5").Range("E28:E32").Copy
   
9.     Sheets("13同业").Range("B" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True
   
10.     Application.CutCopyMode = False
    
11. End Sub
    

复制代码

wsmnjj1

hwc2ycy 发表于 2013-1-28 15:36

这样不对啊

hwc2ycy

代码是要哪个工作表内运行？