尝试生成唯一发票号码

Question

我正在为公司制作一本“工作现场”工作簿。它最终将处理工作结束时需要提交的所有文书工作。我们收到的旧发票只是将发票总额用作“票号”，但在某些情况下，这会导致票号重复。

所以我所做的是使用 VBA 提取客户姓名中每个单词的第一个字母，使用以下代码：

Function GetFirstLetters(rng As Range) As String
    Dim arr
    Dim I As Long
    arr = VBA.Split(rng, " ")
    If IsArray(arr) Then
        For I = LBound(arr) To UBound(arr)
            GetFirstLetters = GetFirstLetters & Left(arr(I), 1)
        Next I
    Else
        GetFirstLetters = Left(arr, 1)
    End If
End Function

并将其附加到发票总额的开头。但结果却留下了小数和剩余的零钱，我想省略这些零钱。

我还没有找到删除小数的方法，而且我甚至不确定现在单元格包含单词和值组合是否有可能，但我想这是一个需要询问的地方。

任何帮助将不胜感激

Answer 1

使用 INT() 来获取不带小数的数字：

=GetFirstLetters(A1)&INT(A2)

其中 A1 为名称，A2 为总数。

Answer 2

你可以利用FLOOR.MATH 函数例如使用函数

=A1 & FLOOR.MATH(B1)

在单元格 C1 中，你可以