VBA-自定义函数

1. 区域范围内，文本合并

Function HB(arr As Range, Optional f$)
Dim rng1 As Range
Dim m1$, m2%, i$
    m2 = arr.Count: i = 0
    For Each rng1 In arr
        m1 = rng1
        i = i + 1
        
        If i < m2 Then
        HB = HB & m1 & f
        Else
        HB = HB & m1
        End If
Next rng1
End Function

2. 年月2025/2/17，格式转换成202502

Function YM(rq$) As String
YM = Application.WorksheetFunction.Text(rq, "yyyymm")
End Function

3. 打√，x

Function Gou(Optional a%) As String
On Error Resume Next
If a = 2 Then
    Gou = "x"
    Else
    Gou = "√"
End If
End Function

4. 26个字母，大写小写

Function zimu(rng As Range, Optional i As Boolean)
    Dim cellText As String
    Dim p&, p1%
    cellText = rng.Address
    p = Len(cellText)
    p1 = Mid(cellText, 4, p - 3)
    If i = False Then
    zimu = Chr(p1 + 64)
    Else
    zimu = Chr(p1 + 96)
    End If
End Function