[已解决]前面新增列A列和B列单元格有数据,要什么处理上面的条件保持不变

爷们679

前面新增列A列和B列单元格有数据,要什么处理上面的条件保持不变

最佳答案

月排行榜 / 总排行榜

chart888

2017-8-18 14:30

爷们679 发表于 2017-8-18 14:09
忽略前面两组数据。
只保留这个条件   在 C4单元格 到 H4单元格的范围内相加,再除以6...后四舍五入

1. Option Explicit
   
2. Sub ta()
   
3. Dim ar, br, i%, j&
   
4. ar = Range("C3:H" & Cells(Rows.Count, 3).End(3).Row)
   
5. ReDim br(1 To UBound(ar), 1 To 2)
   
6. For i = 2 To UBound(ar)
   
7.     br(i, 1) = Format((ar(i, 1) + ar(i, 2) + ar(i, 3) + ar(i, 4) + ar(i, 5) + ar(i, 6)) / 6, "0.0000")
   
8.     br(i, 2) = Int(br(i, 1) + 0.5)
   
9. Next i
   
10. [l3].Resize(UBound(br), 2) = br
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

chart888

爷们679 发表于 2017-8-18 14:09
忽略前面两组数据。
只保留这个条件   在 C4单元格 到 H4单元格的范围内相加,再除以6...后四舍五入

1. Option Explicit
   
2. Sub ta()
   
3. Dim ar, br, i%, j&
   
4. ar = Range("C3:H" & Cells(Rows.Count, 3).End(3).Row)
   
5. ReDim br(1 To UBound(ar), 1 To 2)
   
6. For i = 2 To UBound(ar)
   
7.     br(i, 1) = Format((ar(i, 1) + ar(i, 2) + ar(i, 3) + ar(i, 4) + ar(i, 5) + ar(i, 6)) / 6, "0.0000")
   
8.     br(i, 2) = Int(br(i, 1) + 0.5)
   
9. Next i
   
10. [l3].Resize(UBound(br), 2) = br
    
11. End Sub
    

复制代码

爷们679

在 C4单元格 到 H4单元格的范围内相加,再除以6...后四舍五入

chart888

前面新增列A列和B列单元格有数据,要什么处理上面的条件保持不变

什么意思
你的意思又加了两组数据？

爷们679

chart888 发表于 2017-8-18 13:57
前面新增列A列和B列单元格有数据,要什么处理上面的条件保持不变

什么意思

前面加数字后，用这个宏就出现错误。

我要的是在 C4单元格 到 H4单元格的范围内相加,再除以6...后四舍五入

爷们679

chart888 发表于 2017-8-18 13:57
前面新增列A列和B列单元格有数据,要什么处理上面的条件保持不变

什么意思

忽略前面两组数据。
只保留这个条件   在 C4单元格 到 H4单元格的范围内相加,再除以6...后四舍五入

idnoidno

1. ar = Range("c3:h" & Cells(Rows.Count, 3).End(3).Row)

复制代码

idnoidno

ar 改一下就好
不好意思，這是我的代碼所以我改的較快