利用excelVBA进行自动化数据分析，数据汇总，网页表单自动提交等功能
利用excel VBA进行自动化数据分析，数据汇总，网页表单自动提交等功能
在制造业公司的生产管理，经营管理，采购管理，财务管理等工作中，都有大量的数据处理的任务，通过繁复的excel手工运算获取结果。通过员工培训和自我提升，掌握和使用excel数组公式和VBA自动化，能为员工节省巨大的时间和精力，提高工作附加值。同时作为公司效率化和系统化改善的一部分，为公司效益带来显著提升。以下通过一些案例，展示利用excel公式和VBA进行自动化数据分析，数据汇总，网页表单自动提交在实际场景中的典型应用。相关的文件和代码可以在github下载。
∙自动化数据分析
以下是通过VBA自动化数据分析来计算预计在手和在途库存的流程。
以下是预计在手和在途库存的代码。
Sub 预计在手和在途()
'
' 预计在手和在途 宏
'
vb 字符串转数组
SCH_IDITEM_NO (7)
SCH_IDITEM_NO (11)
SCH_IDITEM_NO (21)
P = ActiveWorkbook.Path
Columns("C:C").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C1").Select
ActiveCell.FormulaR1C1 = "=RC[-2]&RC[-1]"
Range("C1").Select
Selection.AutoFill Destination:=Range("C1:C138750")
Columns("C:C").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
For Each cel In Range("c2:c160000")
If IsNumeric(cel) And cel <> "" Then
cel.Value = Val(cel.Value)
End If
Next
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Workbooks.Open ("C:\Users\5106002125\Desktop\企划管理\静态参考资料\套用公式\在库试算.xlsx")
Sheets.Add After:=Sheets(Sheets.Count)
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("7").Select
ActiveSheet.UsedRange.Select
Selection.Clear
Sheets("11").Select
ActiveSheet.UsedRange.Select
Selection.Clear
Sheets("21").Select
ActiveSheet.UsedRange.Select
Selection.Clear
Set book1 = Workbooks.Open("C:\Users\5106002125\Desktop\企划管理\过期\7.csv")
Set book2 = Workbooks.Open("C:\Users\5106002125\Desktop\企划管理\过期\11.csv")
Set book3 = Workbooks.Open("C:\Users\5106002125\Desktop\企划管理\过期\21.csv")
Windows("7.csv").Activate
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Windows("在库试算.xlsx").Activate
Sheets("7").Select
Range("A1").Select
ActiveSheet.Paste
Windows("11.csv").Activate
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Windows("在库试算.xlsx").Activate
Sheets("11").Select
Range("A1").Select
ActiveSheet.Paste
Windows("21.csv").Activate
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Windows("在库试算.xlsx").Activate
Sheets("21").Select
Range("A1").Select
ActiveSheet.Paste
For col = 20 To 41
Sheets("公式").Select
Range(Cells(2, col), Cells(3, col)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range(Cells(2, col), Cells(3, col)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range(Cells(3, col), Cells(3, col)).Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range(Cells(3, col), Cells(200000, col))
Range(Cells(3, col), Cells(200000, col)).Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next
Sheets("公式").Select
Range(Cells(1, 1), Cells(1, 41)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range(Cells(1, 1), Cells(1, 41)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。