excel vba计算平均数

Sub 另存本表为TXT文件()

Dim i As Integer
Range("d1:d255").Cut Range("b1:b255")
Range("e1:e255").Cut Range("d1:d255")
For i = 1 To 125
If Cells(i * 3, 1) <> "" Then
Cells(i * 3, 6) = UCase(Left(Cells(i * 3, 1), Len(Cells(i * 3, 1)) - 2))
Cells(i * 3, 7) = Round((Cells(i * 3 - 2, 2) + Cells(i * 3 - 1, 2) + Cells(i * 3, 2)) / 3, 3)
Cells(i * 3, 8) = Round((Cells(i * 3 - 2, 3) + Cells(i * 3 - 1, 3) + Cells(i * 3, 3)) / 3, 3)
Cells(i * 3, 9) = Round((Cells(i * 3 - 2, 4) + Cells(i * 3 - 1, 4) + Cells(i * 3, 4)) / 3, 3)
Sheet2.Range("a1:d100").Value = Sheet1.Range("f1:i100").Value
End If
Next

Dim j As Long

For j = Sheet2.Cells(1048576, 2).End(xlUp).Row To 1 Step -1

If Sheet2.Cells(j, 1) = "" Then '如果单元格为空白

Sheet2.Cells(j, 1).EntireRow.Delete '符合条件的都删除整行

End If

Next '检测下一个

Dim s As String

Dim FullName As String, rng As Range

Application.ScreenUpdating = False

FullName = (ActiveSheet.Name & ".txt") '以当前表名为TXT文件名

' FullName = Replace(ThisWorkbook.FullName, ".xls", ".txt") '以当前文件名为TXT文件名

' FullName = Replace(ThisWorkbook.FullName, ".xls", ActiveSheet.Name & ".txt") '以文件名&表名为TXT文件名

Open FullName For Output As #1 '以读写方式打开文件，每次写内容都会覆盖原先的内容

'参考帮助，fullname为文件全名

For Each rng In Sheet2.Range("a1").CurrentRegion

s = s & IIf(s = "", "", ",") & rng.Value

If rng.Column = Sheet2.Range("a1").CurrentRegion.Columns.Count Then

Print #1, s & " " '把数据写到文本文件里

s = ""
' Else
'
' Print #1, s & "" '把数据写到文本文件里
'
' s = ""
End If

Close #1 '关闭文件

Application.ScreenUpdating = True

MsgBox "数据已导入文本"
End Sub

excel vba计算平均数相关推荐

利用Excel VBA批量计算长时间序列植被物候动态阈值（逐像元）
本文演示利用Excel VBA编程实现多期栅格数据,逐像元计算物候参数:生长季始期(SOS).生长季末期(EOS)和生长季长度(LOS),计算过程速度快! 说明: (1)利用Raster to Poi ...
Excel·VBA选中列一键计算小计总计
不同于<Excel·VBA一键计算每月合计>,仅对指定关键字计算合计数,而本文可以实现对选中列自动插入小计.总计行并求和目录连续相同关键值自动小计举例固定行数分段自动小计连续相同 ...
Excel·VBA一键计算每月合计
<vba吧提问-怎么写每月合计的代码>,对表格中每月合计的行进行计算 Sub 选中列每月合计()'适用单/多列选中.单/多列部分选中Dim rng As Range, first_row, ...
excel 透视表 vba_使用Excel VBA删除数据透视表计算字段
excel 透视表 vba Yesterday, I started out with the best of intentions, planning to get some work done, ...
Excel VBA系列：实现奖金比例计算+4种公式法
作业要求:根据奖金规则,计算每位员工的奖励比例及销售奖金奖金规则: 第一类方法:Excel公式法方法1:=HLOOKUP(C3,'练习6-奖金规则'!$C$3:$F$4,2,TRUE) 方法2:= ...
利用Excel VBA批量计算气象数据多个台站多年来春季和冬季降水量和平均气温
气象数据是地理数据的重要组成部分,存储量虽然不大,但是处理过程非常繁琐,长时序数据更不用说.本文总结了一个气象数据的基本处理方法. 如下图所示,气象数据的排列格式是区站号→年→月→降水量→平均气温,时 ...
Excel VBA设计测绘工程电子计算表格从入门到入土（待完结）- 开发方法举例
Excel VBA设计测绘工程表格从入门到入土从第一个宏程序入门如何设计电子表格如何使用VBA开发应用实际如何编辑VBA代码一.了解界面二.组织结构三.如何添加代码和窗口四.编辑代码 ...
Excel Vba批处理在建筑工程资料的运用思路
前言: 从事工程行业的伙伴,可能都有为资料加班的头疼经历.每天去现场跑不说,回来还要加班赶资料.工程资料体系庞大.逻辑严密.前后相关,一处出错可能就要打回重新编制,消耗大量宝贵的时间和精力,让人念头不 ...
Excel VBA附合导线平差自动计算表
这是6,7年前做的一个excel vba自动计算附合导线平差的表格. 对于做测绘的朋友来说,附合导线平差是最基础的技能,目前来说,能平差的软件和工具也很多,像南方的平差易,科傻平差.清华三维平差等,但 ...

excel vba计算平均数

excel vba计算平均数相关推荐

最新文章

热门文章