[已解决]本工作薄中有两个工作表,老师能分开写,方便我自学。

爷们679

    第一个宏      两个单元格相加，再除以2，后四舍五入得出数据填在M列M6单元格开始。



    第二个宏      指定C列到H列单元格相加后除以6减去I列单元格再四舍五入把数据保存在P列单元格。

最佳答案

月排行榜 / 总排行榜

idnoidno

2017-8-19 06:39

sheet2

1. Option Explicit
   
2. Sub t2()
   
3. Dim ar, br, i%, j%
   
4. ar = Sheets(2).Range("c4:i" & Cells(Rows.Count, 3).End(xlUp).Row)
   
5. ReDim br(1 To UBound(ar), 1 To 1)
   
6. For i = 1 To UBound(ar)
   
7.     br(i, 1) = Int((ar(i, 1) + ar(i, 2) + ar(i, 3) + ar(i, 4) + ar(i, 5) + ar(i, 6)) / 6 - ar(i, 7) + 0.5)
   
8. Next i
   
9. [o5].Resize(UBound(br)) = br
   
10. End Sub
    
11. 
    

复制代码

跳转到最佳答案楼层

idnoidno

sheet1

1. Option Explicit
   
2. 
   
3. Sub t1()
   
4. Dim ar, br, i%, j%
   
5. ar = Sheets(1).Range("i4:i" & Cells(Rows.Count, 3).End(xlUp).Row)
   
6. ReDim br(1 To UBound(ar), 1 To 1)
   
7. For i = 1 To UBound(ar) - 1
   
8.     br(i, 1) = Int((ar(i, 1) + ar(i + 1, 1)) / 2 + 0.5)
   
9. Next i
   
10. [l6].Resize(UBound(br)) = br
    
11. End Sub
    

复制代码

idnoidno

sheet2

1. Option Explicit
   
2. Sub t2()
   
3. Dim ar, br, i%, j%
   
4. ar = Sheets(2).Range("c4:i" & Cells(Rows.Count, 3).End(xlUp).Row)
   
5. ReDim br(1 To UBound(ar), 1 To 1)
   
6. For i = 1 To UBound(ar)
   
7.     br(i, 1) = Int((ar(i, 1) + ar(i, 2) + ar(i, 3) + ar(i, 4) + ar(i, 5) + ar(i, 6)) / 6 - ar(i, 7) + 0.5)
   
8. Next i
   
9. [o5].Resize(UBound(br)) = br
   
10. End Sub
    
11. 
    

复制代码