Sub createEveryDayBiggest()
Worksheets.Add after:=Sheets(Sheets.Count)
Worksheets(2).Name = "everydaydata"
Worksheets("Sheet1").Range("A1:BI1").Copy Worksheets("everydaydata").Range("A1:BI1")
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("sheet1")
Set ws2 = Worksheets("everydaydata")
Dim sheet1TotalLineNo As Long
sheet1TotalLineNo = ws1.UsedRange.Rows.Count
Dim sheet1DlprbBiggest As Double
Dim sheet1DlprbBiggestLineNo As Long
Dim sheet2InsertLineNo As Long
sheet2InsertLineNo = 2
Dim sheet1CycleLineNo As Long
sheet1CycleLineNo = 2
Dim sheet1CycleTimes As Long
For sheet1CycleTimes = 1 To sheet1TotalLineNo
'Check if the cell is empty
If ws1.Range("E" & sheet1CycleLineNo).Value = "" Then
Exit For
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余2页未读,立即下载