我正在为公司制作一本“工作现场”工作簿。它最终将处理工作结束时需要提交的所有文书工作。我们收到的旧发票只是将发票总额用作“票号”,但在某些情况下,这会导致票号重复。
所以我所做的是使用 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
并将其附加到发票总额的开头。但结果却留下了小数和剩余的零钱,我想省略这些零钱。
我还没有找到删除小数的方法,而且我甚至不确定现在单元格包含单词和值组合是否有可能,但我想这是一个需要询问的地方。
任何帮助将不胜感激
答案1
使用 INT() 来获取不带小数的数字:
=GetFirstLetters(A1)&INT(A2)
其中 A1 为名称,A2 为总数。