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 6987
今天继续讲讲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
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源码
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 ...
VBA--数据中有空值时求均值--模板
Mikowoo007的博客
03-27 658
excel数据中有空值 根据不同条件，求均值 Sub test() standard = Array(1, 2, 3, 4, 5) Dim result As Long, Count As Long, Sum As Long For r = 0 To 4 'For x = 2 To 18 Count = 0 Sum = 0 ...
VBA数据处理的小项目应用--横项求有空值的均值
Mikowoo007的博客
03-19 235
Sub test() result = Array("G35", "N23", "N31") mole_arr = Array(32, 29, 68) '分子 deno_arr = Array(29, 23, 65) '分母 Dim cell_result As Variant, mole_result As Variant, deno_result As Vari...
VBA--对文件夹下的每张报表再次赋值(2)
Mikowoo007的博客
03-27 224
Sub OpenAndClose() Dim MyFile As String Dim Arr(1000) As String Dim count As Integer MyFile = Dir("C:\Users\mikowoo\Desktop\EPSreport\second\result\" & "*.xlsx") count = count + 1 Arr(count) = MyF...
VB+ACCESS宾馆客房管理系统(系统+论文+封面).zip
最新发布
08-16
计算机毕业设计资源包含（项目部署视频+源码+LW+开题报告等等），所有项目经过助教老师跑通，有问题可以私信博主解决，可以免费帮部署。
自密实混凝土的研究进展.doc
08-16
自密实混凝土的研究进展.doc
VBA-VBS-Access-Python-Microstation在地理信息应用中的实践
- 在VBA开发环境中，利用"立即窗口"可以快速测试和调试代码，方便查看变量的实时值，有助于找出程序中的错误。 2. **错误处理**： - 错误处理是编程中必不可少的部分，文中提到在VBA中使用`On Error`语句来捕获和...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值