@avi-rz אמר בעזרה בפונקציית IF באקסל:
או להשתמש בvba - אתה צריך לשמור את הגיליון בפורמט אחר, ולהתקדם שלב.
הנה קוד,
Public Function FixNumber(Optional strNum As Variant) As String
Dim len_ As Long
Dim first As String
strNum = CStr(strNum)
first = Left(strNum, 1)
Select Case a
Case "0":
FixNumber = strNum
Case Else
len_ = Len(strNum)
Select Case len_
Case 9, 8:
FixNumber = "0" & strNum
Case 7:
FixNumber = "02" & strNum
Case Else
FixNumber = strNum
End Select
End Select
End Function
תעתיק את זה ותדביק בעודך הvba.
תשתמש בפונקציה הזאת כך:
=FixNumber(A4)
י
