VBA-- 从汇总表中求指标值_并赋值给每张报表(1)

最新推荐文章于 2023-03-16 10:55:15 发布
最新推荐文章于 2023-03-16 10:55:15 发布
阅读量321 收藏
点赞数
分类专栏： Excel与VBA
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Mikowoo007/article/details/88851614
版权 
Public wb_data As Excel.Workbook
Sub test()
    result = Array("G18", "G32", "G42", "G45", "G56", "G58", "G71", "N13", "N16", "N17", "N18", "N31", "N33", "N42", "N44", "N46", "N47", "N48", "N60", "N61", "N62", "N63", "N64", "N65")
    mole_arr = Array(16, 8, 119, 125, 29, 160, 95, 152, 143, 146, 149, 11, 248, 190, 86, 122, 125, 89, 190, 222, 218, 226, 230, 234) '分子
    deno_arr = Array(163, 5, 182, 182, 5, 168, 98, 137, 140, 140, 140, 5, 242, 186, 83, 182, 182, 80, 186, 186, 186, 186, 186, 186) '分母
    
    fix_result = Array("G11", "G13", "G21", "G22", "G48", "G59", "G60", "G61", "G64", "G66", "G75", "N22", "N24", "N28", "N29")
    fix_arr = Array(176, 140, 137, 50, 80, 2, 182, 198, 202, 104, 26, 50, 56, 41, 38)
    
    Dim cell_result As Variant, mole_result As Variant, deno_result As Variant, single_result As Variant, mole_result_1 As Variant, mole_result_2 As Variant, deno_result_1 As Variant, deno_result_2 As Variant, deno_result_3 As Variant, deno_result_4 As Variant
    Dim path_add As String, file_name As String, file_suffix As String, file_add As String
    path_add = "C:\Users\mikowoo\Desktop\EPSreport\result\"
    fix_suffix = ".xlsx"
    'Dim wb_data As Excel.Workbook
    Set wb_data = Workbooks.Open("C:\Users\mikowoo\Desktop\EPSreport\data.xlsx")
    
    For x = 5 To 7
        file_name = wb_data.Sheets(1).Cells(x, 1).Value
        ThisWorkbook.Sheets(3).Range("I2").Value = wb_data.Sheets(1).Cells(x, 1).Value
        
        '正常两组数据相除
        len_array = UBound(result) - LBound(result) '+1
        For y = 0 To len_array   '-1
            Select Case True
                Case wb_data.Sheets(1).Cells(x, mole_arr(y)).Value = "" And wb_data.Sheets(1).Cells(x, mole_arr(y) + 1).Value <> "" And wb_data.Sheets(1).Cells(x, mole_arr(y) + 2).Value <> ""
                    mole_result = (wb_data.Sheets(1).Cells(x, mole_arr(y) + 1).Value + wb_data.Sheets(1).Cells(x, mole_arr(y) + 2).Value) / 2
                Case wb_data.Sheets(1).Cells(x, mole_arr(y)).Value <> "" And wb_data.Sheets(1).Cells(x, mole_arr(y) + 1).Value = "" And wb_data.Sheets(1).Cells(x, mole_arr(y) + 2).Value <> ""
                    mole_result = (wb_data.Sheets(1).Cells(x, mole_arr(y)).Value + wb_data.Sheets(1).Cells(x, mole_arr(y) + 2).Value) / 2
                Case wb_data.Sheets(1).Cells(x, mole_arr(y)).Value <> "" And wb_data.Sheets(1).Cells(x, mole_arr(y) + 1).Value <> "" And wb_data.Sheets(1).Cells(x, mole_arr(y) + 2).Value = ""
                    mole_result = (wb_data.Sheets(1).Cells(x, mole_arr(y)).Value + wb_data.Sheets(1).Cells(x, mole_arr(y) + 1).Value) / 2
                Case wb_data.Sheets(1).Cells(x, mole_arr(y)).Value = "" And wb_data.Sheets(1).Cells(x, mole_arr(y) + 1).Value = "" And wb_data.Sheets(1).Cells(x, mole_arr(y) + 2).Value <> ""
                    mole_result = wb_data.Sheets(1).Cells(x, mole_arr(y) + 2).Value
                Case wb_data.Sheets(1).Cells(x, mole_arr(y)).Value <> "" And wb_data.Sheets(1).Cells(x, mole_arr(y) + 1).Value = "" And wb_data.Sheets(1).Cells(x, mole_arr(y) + 2).Value = ""
                    mole_result = wb_data.Sheets(1).Cells(x, mole_arr(y)).Value
                Case wb_data.Sheets(1).Cells(x, mole_arr(y)).Value = "" And wb_data.Sheets(1).Cells(x, mole_arr(y) + 1).Value <> "" And wb_data.Sheets(1).Cells(x, mole_arr(y) + 2).Value = ""
                    mole_result = wb_data.Sheets(1).Cells(x, mole_arr(y) + 1).Value
                Case wb_data.Sheets(1).Cells(x, mole_arr(y)).Value = "" And wb_data.Sheets(1).Cells(x, mole_arr(y) + 1).Value = "" And wb_data.Sheets(1).Cells(x, mole_arr(y) + 2).Value = ""
                    mole_result = "没有数据"
                Case wb_data.Sheets(1).Cells(x, mole_arr(y)).Value <> "" And wb_data.Sheets(1).Cells(x, mole_arr(y) + 1).Value <> "" And wb_data.Sheets(1).Cells(x, mole_arr(y) + 2).Value <> ""
                    mole_result = (wb_data.Sheets(1).Cells(x, mole_arr(y)).Value + wb_data.Sheets(1).Cells(x, mole_arr(y) + 1).Value + wb_data.Sheets(1).Cells(x, mole_arr(y) + 2).Value) / 3
            End Select
            Select Case True
                Case wb_data.Sheets(1).Cells(x, deno_arr(y)).Value = "" And wb_data.Sheets(1).Cells(x, deno_arr(y) + 1).Value <> "" And wb_data.Sheets(1).Cells(x, deno_arr(y) + 2).Value <> ""
                    deno_result = (wb_data.Sheets(1).Cells(x, deno_arr(y) + 1).Value + wb_data.Sheets(1).Cells(x, deno_arr(y) + 2).Value) / 2
                Case wb_data.Sheets(1).Cells(x, deno_arr(y)).Value <> "" And wb_data.Sheets(1).Cells(x, deno_arr(y) + 1).Value = "" And wb_data.Sheets(1).Cells(x, deno_arr(y) + 2).Value <> ""
                    deno_result = (wb_data.Sheets(1).Cells(x, deno_arr(y)).Value + wb_data.Sheets(1).Cells(x, deno_arr(y) + 2).Value) / 2
                Case wb_data.Sheets(1).Cells(x, deno_arr(y)).Value <> "" And wb_data.Sheets(1).Cells(x, deno_arr(y) + 1).Value <> "" And wb_data.Sheets(1).Cells(x, deno_arr(y) + 2).Value = ""
                    deno_result = (wb_data.Sheets(1).Cells(x, deno_arr(y)).Value + wb_data.Sheets(1).Cells(x, deno_arr(y) + 1).Value) / 2
                Case wb_data.Sheets(1).Cells(x, deno_arr(y)).Value = "" And wb_data.Sheets(1).Cells(x, deno_arr(y) + 1).Value = "" And wb_data.Sheets(1).Cells(x, deno_arr(y) + 2).Value <> ""
                    deno_result = wb_data.Sheets(1).Cells(x, deno_arr(y) + 2).Value
                Case wb_data.Sheets(1).Cells(x, deno_arr(y)).Value <> "" And wb_data.Sheets(1).Cells(x, deno_arr(y) + 1).Value = "" And wb_data.Sheets(1).Cells(x, deno_arr(y) + 2).Value = ""
                    deno_result = wb_data.Sheets(1).Cells(x, deno_arr(y)).Value
                Case wb_data.Sheets(1).Cells(x, deno_arr(y)).Value = "" And wb_data.Sheets(1).Cells(x, deno_arr(y) + 1).Value <> "" And wb_data.Sheets(1).Cells(x, deno_arr(y) + 2).Value = ""
                    deno_result = wb_data.Sheets(1).Cells(x, deno_arr(y) + 1).Value
                Case wb_data.Sheets(1).Cells(x, deno_arr(y)).Value = "" And wb_data.Sheets(1).Cells(x, deno_arr(y) + 1).Value = "" And wb_data.Sheets(1).Cells(x, deno_arr(y) + 2).Value = ""
                    deno_result = "没有数据"
                Case wb_data.Sheets(1).Cells(x, deno_arr(y)).Value <> "" And wb_data.Sheets(1).Cells(x, deno_arr(y) + 1).Value <> "" And wb_data.Sheets(1).Cells(x, deno_arr(y) + 2).Value <> ""
                    deno_result = (wb_data.Sheets(1).Cells(x, deno_arr(y)).Value + wb_data.Sheets(1).Cells(x, deno_arr(y) + 1).Value + wb_data.Sheets(1).Cells(x, deno_arr(y) + 2).Value) / 3
            End Select
            If mole_result = "没有数据" Or deno_result = "没有数据" Then
                cell_result = "缺失数据无法得出结果"
            Else
                cell_result = mole_result / deno_result
            End If
            ThisWorkbook.Sheets(3).Range(result(y)).Value = cell_result
            'mole_result = (wb_data.Sheets(1).Cells(x, mole_arr(y)).Value + wb_data.Sheets(1).Cells(x, mole_arr(y) + 1).Value + wb_data.Sheets(1).Cells(x, mole_arr(y) + 2).Value) / 3
            'deno_result = (wb_data.Sheets(1).Cells(x, deno_arr(y)).Value + wb_data.Sheets(1).Cells(x, deno_arr(y) + 1).Value + wb_data.Sheets(1).Cells(x, deno_arr(y) + 2).Value) / 3
            'cell_result = mole_result / deno_result
        Next y
        
        '三个数据求平均数
        len_array = UBound(fix_result) - LBound(fix_result) '+1
        For Z = 0 To len_array
            Select Case True
                Case wb_data.Sheets(1).Cells(x, fix_arr(Z)).Value = "" And wb_data.Sheets(1).Cells(x, fix_arr(Z) + 1).Value <> "" And wb_data.Sheets(1).Cells(x, fix_arr(Z) + 2).Value <> ""
                    single_result = (wb_data.Sheets(1).Cells(x, fix_arr(Z) + 1).Value + wb_data.Sheets(1).Cells(x, fix_arr(Z) + 2).Value) / 2
                Case wb_data.Sheets(1).Cells(x, fix_arr(Z)).Value <> "" And wb_data.Sheets(1).Cells(x, fix_arr(Z) + 1).Value = "" And wb_data.Sheets(1).Cells(x, fix_arr(Z) + 2).Value <> ""
                    single_result = (wb_data.Sheets(1).Cells(x, fix_arr(Z)).Value + wb_data.Sheets(1).Cells(x, fix_arr(Z) + 2).Value) / 2
                Case wb_data.Sheets(1).Cells(x, fix_arr(Z)).Value <> "" And wb_data.Sheets(1).Cells(x, fix_arr(Z) + 1).Value <> "" And wb_data.Sheets(1).Cells(x, fix_arr(Z) + 2).Value = ""
                    single_result = (wb_data.Sheets(1).Cells(x, fix_arr(Z)).Value + wb_data.Sheets(1).Cells(x, fix_arr(Z) + 1).Value) / 2
                Case wb_data.Sheets(1).Cells(x, fix_arr(Z)).Value = "" And wb_data.Sheets(1).Cells(x, fix_arr(Z) + 1).Value = "" And wb_data.Sheets(1).Cells(x, fix_arr(Z) + 2).Value <> ""
                    single_result = wb_data.Sheets(1).Cells(x, fix_arr(Z) + 2).Value
                Case wb_data.Sheets(1).Cells(x, fix_arr(Z)).Value <> "" And wb_data.Sheets(1).Cells(x, fix_arr(Z) + 1).Value = "" And wb_data.Sheets(1).Cells(x, fix_arr(Z) + 2).Value = ""
                    single_result = wb_data.Sheets(1).Cells(x, fix_arr(Z)).Value
                Case wb_data.Sheets(1).Cells(x, fix_arr(Z)).Value = "" And wb_data.Sheets(1).Cells(x, fix_arr(Z) + 1).Value <> "" And wb_data.Sheets(1).Cells(x, fix_arr(Z) + 2).Value = ""
                    single_result = wb_data.Sheets(1).Cells(x, fix_arr(Z) + 1).Value
                Case wb_data.Sheets(1).Cells(x, fix_arr(Z)).Value = "" And wb_data.Sheets(1).Cells(x, fix_arr(Z) + 1).Value = "" And wb_data.Sheets(1).Cells(x, fix_arr(Z) + 2).Value = ""
                    single_result = "没有数据"
                Case wb_data.Sheets(1).Cells(x, fix_arr(Z)).Value <> "" And wb_data.Sheets(1).Cells(x, fix_arr(Z) + 1).Value <> "" And wb_data.Sheets(1).Cells(x, fix_arr(Z) + 2).Value <> ""
                    single_result = (wb_data.Sheets(1).Cells(x, fix_arr(Z)).Value + wb_data.Sheets(1).Cells(x, fix_arr(Z) + 1).Value + wb_data.Sheets(1).Cells(x, fix_arr(Z) + 2).Value) / 3
            End Select

            If single_result = "没有数据" Then
                cell_result = "缺失数据无法得出结果"
            Else
                cell_result = single_result
            End If
            ThisWorkbook.Sheets(3).Range(fix_result(Z)).Value = cell_result
            
        Next Z
            
        '单一值
        ThisWorkbook.Sheets(3).Range("G12") = wb_data.Sheets(1).Cells(x, 178).Value
            
        
        
        '三包外客户占比
        If ThisWorkbook.Sheets(3).Range("N13").Value = "缺失数据无法得出结果" Then
            ThisWorkbook.Sheets(3).Range("N14").Value = "缺失数据无法得出结果"
        Else
            ThisWorkbook.Sheets(3).Range("N14").Value = 1 - ThisWorkbook.Sheets(3).Range("N13").Value
        End If
        
        
        Call Ratio_1(x)
        Call Ratio_2(x)
        Call Ratio_3(x)
        Call Ratio_4(x)
        Call Ratio_5(x)
        Call Ratio_6(x)
        Call Ratio_7(x)
        Call Ratio_8(x)
        Call Ratio_9(x)
        Call Ratio_10(x)
        Call Ratio_11(x)
        Call Ratio_12(x)
        Call Ratio_13(x)
        '文件命名
        file_add = path_add + file_name + file_suffix
            
        Application.DisplayAlerts = False ' 取消提示“无法在未启用宏的工作簿中保存一下功能：”
        ThisWorkbook.SaveAs (file_add)
        
        Debug.Print "第" & "个经销店" & file_name & "处理完毕"
    Next x
    
    'ThisWorkbook.Sheets(3).Range("G11").Value = wb_data.Sheets(3).Range(mole_arr(0)).Value / wb_data.Sheets(3).Range(deno_arr(0)).Value
    wb_data.Close
    ThisWorkbook.Close
    
End Sub
Sub Ratio_1(x)
'客户粘度系数
        y = 182
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
            End Select
        y = 140
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        If mole_result = "没有数据" Or deno_result = "没有数据" Then
            cell_result = "缺失数据无法得出结果"
        Else
            cell_result = (mole_result * 12) / deno_result
        End If
        ThisWorkbook.Sheets(3).Range("G16").Value = cell_result
End Sub
Sub Ratio_2(x)
'首次到店客户量--可作为单独求值得模板
        y = 5
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 8
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        If mole_result = "没有数据" Or deno_result = "没有数据" Then
            cell_result = "缺失数据无法得出结果"
        Else
            cell_result = mole_result - deno_result
        End If
        ThisWorkbook.Sheets(3).Range("G27").Value = cell_result
End Sub
Sub Ratio_3(x)
'活动线索总量
        y = 38
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 41
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        If mole_result = "没有数据" Or deno_result = "没有数据" Then
            cell_result = "缺失数据无法得出结果"
        Else
            cell_result = mole_result + deno_result
        End If
        ThisWorkbook.Sheets(3).Range("G28").Value = cell_result

End Sub
Sub Ratio_4(x)
'市场活动频次
        y = 32
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 35
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        If mole_result = "没有数据" Or deno_result = "没有数据" Then
            cell_result = "缺失数据无法得出结果"
        Else
            cell_result = mole_result + deno_result
        End If
        ThisWorkbook.Sheets(3).Range("G30").Value = cell_result

End Sub
Sub Ratio_5(x)
'首次到店客流占比
        y = 5
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_1 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_1 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_1 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_1 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_1 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 8
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_2 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_2 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_2 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_2 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_2 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 5
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        If mole_result_1 = "没有数据" Or mole_result_2 = "没有数据" Or deno_result = "没有数据" Then
            cell_result = "缺失数据无法得出结果"
        Else
            cell_result = (mole_result_1 - mole_result_2) / deno_result
        End If
        ThisWorkbook.Sheets(3).Range("G31").Value = cell_result

End Sub

Sub Ratio_6(x)
'成交率
        y = 160
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_1 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_1 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_1 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_1 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_1 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 164
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_2 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_2 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_2 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_2 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_2 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 38
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 41
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 50
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_3 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_3 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_3 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_3 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_3 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_3 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_3 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_3 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 62
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_4 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_4 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_4 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_4 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_4 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_4 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_4 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_4 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        If mole_result_1 = "没有数据" Or mole_result_2 = "没有数据" Or deno_result_1 = "没有数据" Or deno_result_2 = "没有数据" Or deno_result_3 = "没有数据" Or deno_result_4 = "没有数据" Then
            cell_result = "缺失数据无法得出结果"
        Else
            cell_result = (mole_result_1 + mole_result_2) / (deno_result_1 + deno_result_2 + deno_result_3 + deno_result_4)
        End If
        ThisWorkbook.Sheets(3).Range("G35").Value = cell_result

End Sub
Sub Ratio_7(x)
'网店销占比
        y = 44
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 160
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 164
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        If mole_result = "没有数据" Or deno_result_1 = "没有数据" Or deno_result_2 = "没有数据" Then
            cell_result = "缺失数据无法得出结果"
        Else
            cell_result = mole_result / (deno_result_1 + deno_result_2)
        End If
        ThisWorkbook.Sheets(3).Range("G39").Value = cell_result

End Sub
Sub Ratio_8(x)
'二网销售占比
        y = 257
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_1 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_1 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_1 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_1 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_1 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 260
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_2 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_2 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_2 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_2 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result_2 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 160
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 164
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        If mole_result_1 = "没有数据" Or mole_result_2 = "没有数据" Or deno_result_1 = "没有数据" Or deno_result_2 = "没有数据" Then
            cell_result = "缺失数据无法得出结果"
        Else
            cell_result = (mole_result_1 + mole_result_2) / (deno_result_1 + deno_result_2)
        End If
        ThisWorkbook.Sheets(3).Range("G40").Value = cell_result

End Sub
Sub Ratio_9(x)
'新保渗透率
        y = 101
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 160
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 164
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        If mole_result = "没有数据" Or deno_result_1 = "没有数据" Or deno_result_2 = "没有数据" Then
            cell_result = "缺失数据无法得出结果"
        Else
            cell_result = mole_result / (deno_result_1 + deno_result_2)
        End If
        ThisWorkbook.Sheets(3).Range("G74").Value = cell_result

End Sub
Sub Ratio_10(x)
'保有客户推荐率
        y = 71
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 160
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 164
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        If mole_result = "没有数据" Or deno_result_1 = "没有数据" Or deno_result_2 = "没有数据" Then
            cell_result = "缺失数据无法得出结果"
        Else
            cell_result = mole_result / (deno_result_1 + deno_result_2)
        End If
        ThisWorkbook.Sheets(3).Range("N19").Value = cell_result

End Sub
Sub Ratio_11(x)
'新增线索到店转化率
        y = 53
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 160
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 164
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        If mole_result = "没有数据" Or deno_result_1 = "没有数据" Or deno_result_2 = "没有数据" Then
            cell_result = "缺失数据无法得出结果"
        Else
            cell_result = mole_result / (deno_result_1 + deno_result_2)
        End If
        ThisWorkbook.Sheets(3).Range("N23").Value = cell_result
End Sub
Sub Ratio_12(x)
'工位周转率
        y = 182
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 107
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        If mole_result = "没有数据" Or deno_result = "没有数据" Then
            cell_result = "缺失数据无法得出结果"
        Else
            mole_result = mole_result / 30
            cell_result = mole_result / deno_result
        End If
        ThisWorkbook.Sheets(3).Range("N43").Value = cell_result

End Sub
Sub Ratio_13(x)
' 新保战败率
        y = 101
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                mole_result = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                mole_result = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 160
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_1 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_1 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        y = 164
        Select Case True
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value) / 2
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y + 2).Value
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = wb_data.Sheets(1).Cells(x, y + 1).Value
            Case wb_data.Sheets(1).Cells(x, y).Value = "" And wb_data.Sheets(1).Cells(x, y + 1).Value = "" And wb_data.Sheets(1).Cells(x, y + 2).Value = ""
                deno_result_2 = "没有数据"
            Case wb_data.Sheets(1).Cells(x, y).Value <> "" And wb_data.Sheets(1).Cells(x, y + 1).Value <> "" And wb_data.Sheets(1).Cells(x, y + 2).Value <> ""
                deno_result_2 = (wb_data.Sheets(1).Cells(x, y).Value + wb_data.Sheets(1).Cells(x, y + 1).Value + wb_data.Sheets(1).Cells(x, y + 2).Value) / 3
        End Select
        If mole_result = "没有数据" Or deno_result_1 = "没有数据" Or deno_result_2 = "没有数据" Then
            cell_result = "缺失数据无法得出结果"
        Else
            cell_result = 1 - mole_result / (deno_result_1 + deno_result_2)
        End If
        ThisWorkbook.Sheets(3).Range("N74").Value = cell_result


End Sub
Mikowoo007
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
FCA-九数云 试题及答案
小发菜
06-04 275
#N/A、#NUM!A. 「下拉框」支持绑定值列表形式的「文本」参数值B. 「输入框」支持绑定「数值」类型的参数值C. 「输入框」支持绑定「文本」类型的参数值D. 「日期/日期面板」支持绑定「日期」类型的参数值。第42题【单选题】数据表开启「实时数据」后，项目中使用实时表，在计算不复杂、血缘不长的前提下，支持短时间内快速同步和计算，最小更新间隔可达到多少？A. 2022-06-01 的数据B. 2023-05-01 的数据C. 2023-05-25 的数据D. 2023-05-31 的数据。
VBA 图表的基本操作（二）
叶雪青的博客
08-13 6988
今天继续讲讲VBA图表的相关操作 一、在图表工作表上创建图表（看起来有点拗口，也就是在Chart上创建一个图表） 插入图表的方式：打开工作簿后，对着sheet点一下右键——插入——选择图表。 ①昨天主要是讲了VBA创建在sheet上面的图表，如果单独在Chart上创建图表的话，用Charts的add2方法就可以了： Charts.Add2 ②创建完了如果需要引用数据的话，可以和昨天一样引用数据： Sub demo() Dim myChart As Chart ..
3, excel vba 获取表格里的单元格的值
热门推荐
keepiss的博客
01-22 5万+
通过上一节, 我们己经可以掌握进入vba的编辑页面,可以愉快的写代码了.  接下来,给大家看看怎么取得表格里一个单元格的值.因为只有拿到了这个值,你才能对它进行各种改造 如下图: 单元格 A1 里有一个值: 点点didi3 接下来我们要用vba得到这个值.并像上节一样显示出来 1, 按 alt + f11 打开编辑窗. 复制粘贴以下代码, Public Sub 点点
工作中使用到的单词（软件开发）_2023_0316备份
最新发布
sun0322
03-16 1万+
目录■Java学习汇总■常用链接■2020/03/15 （最初整理 242个单词）2020 6/28 整理2020 6/29 整理2020 7/6 整理■2020 7/23 整理■2020/10/07 以降整理■2020/11/02 以降整理■2020/12/04 以降整理■2020/12/14以降整理■2021/01/01以降整理■2021/02/22以降整理■匿名内部类，lambda表达式，JDK7新特性，等等java相关■2021/03/18以降整理Linux系统性能 相关■其他各种单词，知识（l
[转载] excel调用python编程-超简单:用Python让Excel飞起
u013946150的博客
01-02 538
参考链接： Python | 使用XlsxWriter模块在Excel工作表中绘制饼图 本书对于编程知识零基础的办公人士特别友好，其摒弃了晦涩的理论讲解，引入了实用的办公场景，为办公人士开辟了一条学习办公自动化的新路。本书精选典型办公案例以及通俗易懂的讲解，有助于办公人士掌握Python+Excel的联合使用，也有利于读者在大数据的应用上能够更进一步。本书代码简洁、思路清晰，在学习过程中只需简单地修改一下本书附赠代码就能够应用到实际的工作场景中，让学习和工作事半功倍。 本书是一本讲解如何用Python
[学习笔记]每天1小时学会数据分析、挖掘、清洗、可视化从入门到项目实战
zhangyifeng_1995的博客
03-13 833
[学习笔记]每天1小时学会数据分析、挖掘、清洗、可视化从入门到项目实战
python与excel表格-超简单：用Python让Excel飞起来
weixin_37988176的博客
11-01 588
超简单：用Python让Excel飞起来作者：王秀文;郭明鑫;王宇韬 编著出版日期：2020年07月文件大小：20.30M支持设备：￥45.00在线试读适用客户端：言商书局iPad/iPhone客户端：下载 Android客户端：下载PC客户端：下载更多详情：查看？对图书下载、阅读卡购买有疑问：立即进入帮助中心>>图书简介目录本书是一本讲解如何用Python和Excel“强强联手”打造办公利器的案...
VBA-JSON-2.3.1_JSON_Windows编程_jsonexcel_ExcelVBA_circleinn_
09-29
标题中的“VBA-JSON-2.3.1_JSON_Windows编程_jsonexcel_ExcelVBA_circleinn_”表明这是一个关于使用VBA（Visual Basic for Applications）处理JSON数据的项目，适用于Windows环境，特别关注如何在Excel中进行JSON到...
Arcgis-vba开发实例.rar_ArcGIS VBA示例_Arcgis-vba开发实例_arcgis_fewercml_
09-20
对于初学者，可以从这些实例中学习到基本的VBA编程结构，如Sub过程和Function函数，以及如何调用ArcGIS的对象和方法。对于有一定基础的开发者，这些实例则能帮助理解高级功能，如多线程处理、错误处理和性能优化。 ...
2021年1月-12月应收汇总表.xlsm
04-03
VBA-2021年1月-12月应收汇总表.xlsm
灌砂法压实度计算表1-VBA测试.xlsm
01-17
灌砂法压实度计算表1-VBA测试，随机生成指定区间的数值，到达要求后停止计算，批量，不重复，快速，vba源码
excel调用python编程-超简单:用Python让Excel飞起
weixin_37988176的博客
11-01 2470
本书对于编程知识零基础的办公人士特别友好，其摒弃了晦涩的理论讲解，引入了实用的办公场景，为办公人士开辟了一条学习办公自动化的新路。本书精选典型办公案例以及通俗易懂的讲解，有助于办公人士掌握Python+Excel的联合使用，也有利于读者在大数据的应用上能够更进一步。本书代码简洁、思路清晰，在学习过程中只需简单地修改一下本书附赠代码就能够应用到实际的工作场景中，让学习和工作事半功倍。本书是一本讲解如...
python可以帮助做excel-超简单:用Python让Excel飞起
weixin_37988176的博客
10-29 1426
本书对于编程知识零基础的办公人士特别友好，其摒弃了晦涩的理论讲解，引入了实用的办公场景，为办公人士开辟了一条学习办公自动化的新路。本书精选典型办公案例以及通俗易懂的讲解，有助于办公人士掌握Python+Excel的联合使用，也有利于读者在大数据的应用上能够更进一步。本书代码简洁、思路清晰，在学习过程中只需简单地修改一下本书附赠代码就能够应用到实际的工作场景中，让学习和工作事半功倍。本书是一本讲解如...
VBA--遍历文件夹下所有文件--模板
Mikowoo007的博客
03-27 7323
遍历文件夹下所有文件并输出文件名 Sub OpenAndClose() Dim MyFile As String Dim Arr(1000) As String Dim count As Integer MyFile = Dir("C:\Users\mikowoo\Desktop\EPSreport\result\" & "*.xlsx") coun...
ppt使用vba
Mikowoo007的博客
04-04 4617
Sub 插入() Dim filename As String Dim file_add As String Dim file_suffix As String Dim index_name As String file_path = "C:\Users\mikowoo\Desktop\001\result\" file_suffix = ".pdf" For i = 1 To 111 ...
VBA代码
Mikowoo007的博客
05-11 715
一个简单VBA-Demo Sub VBA_Demo() Dim Total As Long, i As Long Total = 0 For i = 1 To 100 Total = Total + 1 Next i MsgBox Total End Sub 声明变量 Sub VariantDemo() ' 声明变量，默认为Variant ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值