1

=IF(A2<>A1, COUNTIF(A:A, A2), "")

1

=IF(COUNTIF($A$2:A2,A2)=1,MAX($B$1:B1)+1,"")

1
2
3
4
5
6
7

% 判断某一行的数据在整列当中是否为第一次出现
COUNTIF($A$2:A2,A2)=1

% 如果第一次出现，则值为1；之后每出现一个第一次出现的新数据，则该数据每次+1
—> MAX($B$1:B1)+1

% 数据不是第一次出现，则为空值

1

=IF(COUNTIF($A$2:A2,A2)=1,MAX($B$1:B1)+1,VLOOKUP(A2,$A$1:B1,2,FALSE))

1

=IF(ISNUMBER(SEARCH("pH", E4)), E4, "")

1
2
3
4
5
6
7
8
9
10
11
12

=IF(
    OR(
        ISNUMBER(SEARCH("氢氰酸", E4)),
        ISNUMBER(SEARCH("总氰", E4)),
        ISNUMBER(SEARCH("游离氢氰酸", E4)),
        ISNUMBER(SEARCH("游离丙酮", E4)),
        ISNUMBER(SEARCH("硫酸", E4)),
        ISNUMBER(SEARCH("丙酮氰醇含量", E4))
    ),
    E4,
    ""
)

1

=LCM(B2:B5)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

Sub 合并选定单元格()
    Dim rng As Range
    Dim mergedCell As Range
    Dim cell As Range
    Dim text As String
    
    ' 检查是否有选定的单元格
    If Selection.Cells.Count < 2 Then
        MsgBox "请选择至少2个单元格进行合并。"
        Exit Sub
    End If
    
    Set rng = Selection ' 获取选定的单元格范围
    
    ' 创建一个合并单元格
    Set mergedCell = rng.Cells(1)
    
    ' 将其他单元格的值添加到合并单元格中
    For Each cell In rng
        If cell.Value <> "" Then
            text = text & cell.Value & Chr(10) ' Chr(10) 表示换行符
        End If
    Next cell
    
    ' 去除最后一个换行符
    text = Left(text, Len(text) - 1)
    
    ' 将合并后的文本赋值给合并单元格
    mergedCell.Value = text
    
    ' 合并单元格
    rng.Merge
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

Sub 宏1()






    Dim selectedRange As Range
    Set selectedRange = Selection 
    
    selectedRange.Select
    Selection.UnMerge
    selectedRange.Rows(1).AutoFill Destination:=selectedRange, Type:=xlFillCopy 
    selectedRange.Select
    selectedRange.Cells(selectedRange.Rows.Count, selectedRange.Columns.Count).Select 
End Sub

1

=LEN(A2) - LEN(SUBSTITUTE(A2, "k", ""))

1
2
3
4
5
6
7
8

=ROUNDUP(3.001,0) —> 4
=ROUNDUP(3.01,1) —> 3.1

注意：该函数并不考虑什么四舍五入，都是向上取整

=ROUNDUP(-3.14159, 1) —> 如果第一个参数是正数，那么返回值是3.2；是负数，返回-3.2

=ROUNDUP(31415.92654, -2) —> 将 31415.92654 向上舍入到小数点左边两位数，结果为31500