Function 添加单引号(rng1 As Range, rng2 As Range)
    arr = rng1.Value
    For i = 1 To UBound(arr)
        For j = 1 To UBound(arr, 2)
            arr(i, j) = "'" & arr(i, j)
        Next
    Next
    rng2.Resize(i - 1, j - 1) = arr
End Function