如何在excel中用宏处理数据?
2015-11-07 · 知道合伙人软件行家
EXCEL本身就具备了很强大的数据处理能力以及图表生成功能。可以应用于各行各业的数据表处理,再加上VBA后就如虎添翼,可以肯定地说一个企业规模在100人以下的所有数据处理的业务(不包含专业的设计范畴,如CAD画图),EXCEL都可以完成。
EXCEL的宏,只要是符合逻辑的要求都可以达到。
给一段代码供参考。这个程序是一个供奶站的应用中的一个功能,负责根据订奶记录的要求,每天自动生成送奶记录。
代码如下:
Sub 自动添加送奶记录()
Call 计算已送数量 '在添加送奶记录前先计算已送数量,防止已经送完的继续产生送奶记录
Dim mYs1, mYs2 As String
Const mYmax = 100 '订奶记录最大数
Dim mYarr1(1 To mYmax, 1 To 10)
Dim I, J, K, L As Integer
Dim mYday As Date
Dim mYweek As Integer
Sheets("管理工具").Select
mYday = Cells(5, 5)
mYweek = Cells(5, 6) '周1~周日 1~6
mYs1 = "订奶记录"
mYs2 = "当天送奶记录"
Sheets(mYs1).Select
I = 2
Do While Len(Cells(I, 1)) > 0
If Cells(I, 7) < Cells(I, 6) And Cells(I, 8) <= mYday Then
'将已送数量小于订货数量 且 起送日期小于当天日期
For J = 1 To 10
mYarr1(I - 1, J) = Cells(I, J)
Next J
End If
I = I + 1
Loop
I = I - 2 'I记录了符合送奶条件的记录数
'生成送奶记录
'step1:将当天送奶记录清除
Sheets(mYs2).Select
Range("A2:F1000").Clear
J = 2 '记录当前行号
For K = 1 To I
If mYarr1(K, 9) = "每天" Or (mYarr1(K, 9) = "平日" And mYweek <> 6 And mYweek <> 7) Then
Cells(J, 1) = mYday
Cells(J, 2) = mYarr1(K, 1)
Cells(J, 3) = mYarr1(K, 3)
Cells(J, 4) = mYarr1(K, 4)
Cells(J, 5) = mYarr1(K, 5)
Cells(J, 6) = mYarr1(K, 10)
J = J + 1
End If
Next K
Sheets("管理工具").Select
End Sub
订奶记录表格如下所示:
根据上面的订奶记录,自动生成下面的送奶记录。
1,如果没有的数据显示的是NA(而非错误值#N/A)那么:
在最后一列输入=COUNTIF(B2:H2,"NA")
然后拉下去,结果>1的则是表示数据中有为NA的,则可以把大于1的行都删除
2,如果没有的数据显示的是错误值#N/A,那么
在最后一列直接输入=b2&c2&...H2
然后拉一下,结果显示#N/A的则表示中间最少有一个数据不全,可以筛选#N/A的都删掉
以上是假设你的数据在B列到H列...
按【F5】
点定位条件
选中空值复选框
确定
开始选项卡单元格中组中单击“删除”按钮(2007及以上版本)
选择 行 命令
完成
如果没有数据的单元格显示的是NA(文本,而非错误值#N/A),先用查找替换,将NA替换为空