求解使用EXCEL统计出地址中的高频词（E高手请进）

我的城市你来过

对占比大于-3%，完成率数据进行排名
公式：=IF(C2<=-3%,"-",SUMPRODUCT(($C$2:$C$47>-3%)*(B2<$B$2:$B$47))+1)

我的城市你来过

序列号：=MAX(IF($H$2:$Z$35=A2,COLUMN($H$1:$Z$1),0))
课目名：=INDEX($1:$1,MAX(IF($H$2:$Z$35=A2,COLUMN($H$1:$Z$1),0),,))
G列显示：=OFFSET($G$1,,,MAX(IF($H$2:$Z$35=A2,ROW($H$2:$H$35))))
年级名：=LOOKUP(9^9,OFFSET($G$1,,,MAX(IF($H$2:$Z$35=A2,ROW($2:$35)))))

网友：
魚。。计算方法。

我的城市你来过

1、求解单元格内某种产品数据和方法



方法一：=SUMPRODUCT(COUNTIF(C3:C4,"*"&D2&"~*"&COLUMN(A:Z)&"*"),COLUMN(A:Z))

方法二：=MMULT(COUNTIF(C$3:C$4,"*"&D2&"~*"&COLUMN(A:Z)&"*"),ROW($1:$26))

网友：
sayhi95
计算提供。

"~*"用法，+"~"代表"*"本身。

疑惑点：2位数以上计算不对，再学习。
网友：
sayhi95

答疑：

=MMULT(COUNTIF(C$3:C$4,"*"&D2&"~*"&COLUMN(A:FD)&";*"),ROW($1:$160))

将方法二中最后的"*",改动为";*",同时扩容COLUMN=ROW=计算上限160，超过需要继续扩容。

我的城市你来过

1、VBA分档计提设计



Sub CommandButton1_Click()
Dim a, b, c, d, e, s
    For a = 2 To Range("a30").End(xlUp).Row
        s = Cells(a, 2)
        c = Cells(a, 3)
        d = Cells(a, 4)
        e = Cells(a, 5)
    Select Case s
        Case Is >= e
        Cells(a, 6) = Application.Round(c * 0.08 + (d - c) * 0.3 + (e - d) * 0.45 + (s - e) * 0.6, 2)
        Case Is >= d
        Cells(a, 6) = Application.Round(c * 0.08 + (d - c) * 0.3 + (s - d) * 0.45, 2)
        Case Is >= c
        Cells(a, 6) = Application.Round(c * 0.08 + (s - c) * 0.2, 2)
        Case Is >= 0.9 * c
        Cells(a, 6) = Application.Round(s * 0.08, 2)
        Case Is < 0.9 * c
        Cells(a, 6) = Application.Round(s * 0.05, 2)
    End Select
    Next
End Sub

我的城市你来过

2、窗体界面


Private Sub userform_Initialize()
With UserForm1.ListView1
    .ColumnHeaders.Add 1, , "公司名称", .Width / 8, 0
    .ColumnHeaders.Add 2, , "联系人", .Width / 8, 2
    .ColumnHeaders.Add 3, , "联系方式", .Width / 8, 2
    .ColumnHeaders.Add 4, , "揽收员", .Width / 8, 2
    .ColumnHeaders.Add 5, , "寄递量", .Width / 8, 2
    .ColumnHeaders.Add 6, , "营业执照", .Width / 8, 2
    .ColumnHeaders.Add 7, , "经营范围", .Width / 8, 2
    .ColumnHeaders.Add 8, , "公司地址", .Width / 8, 2
    .View = lvwReport
    .Gridlines = True
    .FullRowSelect = True
    .MultiSelect = True
    .Font.Size = 10
    .Font.Name = "宋体"
    .ForeColor = vbBlack
End With

With UserForm1.Label1
    .Caption = "客户管理系统"
    .BackStyle = 1
    .AutoSize = True
    .WordWrap = False
    .TextAlign = fmTextAlignCenter
    .Font.Name = "楷体"
    .Font.Underline = True
    .Font.Bold = True
    .Font.Size = 18
    .Height = UserForm1.Height / 2
    .ForeColor = vbBlack
    .MousePointer = fmMousePointerIBeam
End With

End sub

我的城市你来过

3、VBA练习三（新增按钮）

Private Sub CommandButton1_Click()
    If TextBox1 <> "" _
        And TextBox2 <> "" _
        And TextBox3 <> "" _
        And TextBox4 <> "" _
        And TextBox5 <> "" _
        And TextBox6 <> "" _
        And TextBox7 <> "" _
        And TextBox8 <> "" _
        And TextBox9 <> "" _
    Then
    Set itm = ListView1.ListItems.Add()
        For j = 1 To 8
            itm.Text = TextBox1.Value
            itm.SubItems(j) = Me.Controls("textbox" & j + 1).Value
            Me.Controls("textbox" & j + 1).Value = ""
        Next j
    Else
        MsgBox "牛年大吉大利，牛气冲天", vbOKCancel
    End If

    Dim arr(), z, y, x
        z = ListView1.ListItems.Count
    ReDim arr(1 To z, 1 To 9)
        For x = 1 To z
        arr(x, 1) = ListView1.ListItems(x).Text
        For y = 1 To 8
        arr(x, y + 1) = ListView1.ListItems(x).SubItems(y)
        Next y
        Next x
        Sheets("数据").Range("a1").End(xlDown).Offset(1, 0).Resize(z, 9) = arr
        Me.ListView1.ListItems.Clear
        TextBox1.SetFocus
End Sub

我的城市你来过

四、窗体查询



Private Sub CommandButton2_Click()
    Dim myrange As Range
    Dim s As Integer
    With Sheets("数据")
        Set myrange = .Range("b2", .Range("b2").End(xlDown)).Find(TextBox10.Value)
            If Not myrange Is Nothing Then
            For s = 1 To 9
            Me.Controls("textbox" & s).Text = .Cells(myrange.Row, s).Value
            Next s
            End If
    End With
        Set itm = ListView1.ListItems.Add()
            For j = 1 To 8
            itm.Text = TextBox1.Value
            itm.SubItems(j) = Me.Controls("textbox" & j + 1).Value
            Next j
End Sub

我的城市你来过

5、窗体修改
Private Sub CommandButton3_Click()
    Dim myrange1 As Range
    Dim s1 As Integer, j As Integer
    With Sheets("数据")
        Set myrange = .Range("b2", .Range("b2").End(xlDown)).Find(TextBox10.Value)
            If Not myrange Is Nothing Then
            For s1 = 1 To 9
              .Cells(myrange.Row, s1).Value = Me.Controls("textbox" & s1).Text
            Next s1
            End If
    End With
        Me.ListView1.ListItems.Clear
            For j = 1 To 10
            Me.Controls("textbox" & j).Value = ""
            Next j
        TextBox1.SetFocus
End Sub

我的城市你来过

2022.12.14合并单元格查找引用思路

E列：=VLOOKUP(IF(ISODD(ROW(4:4))=FALSE,INDIRECT("b"&ROW(4:4)),INDIRECT("b"&ROW(4:4)-1)),总成绩表!$D:$G,IF(D4="语文",2,3),0)

我的城市你来过

跨表数据匹配：


板号2：=IF(IFERROR(FIND("NoCt",TEXT(INDIRECT("数据表!$M"&ROW(5:5)*3)&"/"&INDIRECT("数据表!$M"&ROW(5:5)*3+2),))>0,TEXT(INDIRECT("数据表!$M"&ROW(5:5)*3)&"/"&INDIRECT("数据表!$M"&ROW(5:5)*3+2),))=TRUE,"阴",TEXT(INDIRECT("数据表!$M"&ROW(5:5)*3)&"/"&INDIRECT("数据表!$M"&ROW(5:5)*3+2),))



上机表：

=LOOKUP(B4,条码表!$D$3:$D$94,条码表!$F$3:$F$94)