vba

来源:互联网 发布:手机淘宝5星好评 编辑:程序博客网 时间:2024/04/29 18:03

 Sheets(5).Cells(textnum + 4, 1).value = "各 号 码 次 数 统 计"
 
Range("A" & textnum + 4 & ":AI" & textnum + 4).Select
Selection.Font.Bold = True
Selection.Interior.ColorIndex = 37


Range("A" & textnum + 5 & ":B" & textnum + 5).Select
Selection.Font.Bold = True
Selection.Merge

 Sheets(5).Cells(textnum + 5, 1).value = "=SUM(C" & textnum + 4 & ":AI" & textnum + 4 & ")/33"

Sheets(5).Cells(textnum + 5, 1).value = "均值:" & Round(Sheets(5).Cells(textnum + 5, 1).value)

Range("AK" & textnum + 4).Select

原创粉丝点击