ｅｘｃｅｌ － ｖｂａ －間差值不同工作表

Sub 間差值不同工作表()

Sheets("Sheet1").Select
ActiveCell.Value = 1
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Stop:=30, Trend:=False



Sheets("Sheet2").Select

ActiveCell.Value = 2
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=2, Stop:=30, Trend:=False


Sheets("Sheet1").Select
Range("a1").Select
While (ActiveCell.Value <> Empty)
ActiveCell.Offset(1, 0).Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Select
Wend


End Sub