Sub tezt()
Dim st
'st = Empty
'st = "0,5"
'st = 0.5
'st = "0.5"
'st = 1
'st = True
st = "12,345.67"

If IsNumeric(CStr(st)) Or IsNumeric(Replace(Replace(Cstr(st), ",", ""), ".", Application.International(xlDecimalSeparator))) Then
        If Not IsNumberDotSeparated(st) Then
            Debug.Print CStr(st), False
        Else
            Debug.Print CStr(st), True
        End If
    Else
        'non-number branch
        Debug.Print CStr(st), False
 
    End If
End Sub

Function IsNumberDotSeparated(ByRef MyVal) As Boolean

If CStr(MyVal) = Replace(CStr(MyVal), Application.International(xlDecimalSeparator), ".") Then
    'Debug.Print MyVal, "Number with Dot separator"
    IsNumberDotSeparated = True
Else
    'Debug.Print MyVal, "Number with other separator"
    IsNumberDotSeparated = False
End If

End Function

Sub tezt()
Dim st
st = Empty
'st = 0.5
'st = "0.5"
'st = 1
'st = "2"
'st = True
If IsNumeric(CStr(st)) Then
        If Not IsNumberDotSeparated(st) Then
            Debug.Print CStr(st), "false"
        Else
            Debug.Print CStr(st), "true"
        End If
    Else
        'non-number branch
        Debug.Print CStr(st), IsNumeric(Replace(st, ".", Application.International(xlDecimalSeparator)))
    End If
End Sub

Sub tezt()
With Application
       .DecimalSeparator = "."
       .ThousandsSeparator = ","
       .UseSystemSeparators = False
End With

Debug.Print "0.5", IsNumeric("0.5")     ' false, должно быть true
Debug.Print "0,5", IsNumeric("0,5")     ' true, должно быть false
Debug.Print "1", IsNumeric("1")           ' true, всё в порядке

Application.UseSystemSeparators = True
End Sub

let
  src = Csv.Document(), 
  dates = List.Buffer(src[Дата]),
  dateStart = Date.StartOfMonth ( List.Min ( dates ) ), 
  dateEnd = Date.EndOfMonth ( List.Max ( dates ) ), 
  generate = Table.FromColumns(
    {List.Dates(dateStart, Duration.TotalDays(dateEnd-dateStart)+1, #duration(1, 0, 0, 0) )},
    type table [Дата = Date.Type]
  )
in
  generate

Категории = 
DATATABLE(
    "Категория", STRING,
    "Порядок", INTEGER,
    {
        { "Горячий", 1 },
        { "Тёплый", 2 },
        { "Холодный", 3 },
        { "Потерянный", 4 }
    }
)

Количество клиентов по категориям =
VAR _ClientsInCurrentScope =
    VALUES( 'Посещения по клиентам'[ID Клиента] )
RETURN
    IF(
        ISINSCOPE( 'Категории'[Категория] ),
        COUNTROWS(
            FILTER(
                _ClientsInCurrentScope,
                [Мера Категория] = SELECTEDVALUE( 'Категории'[Категория] )
            )
        ),
        COUNTROWS( _ClientsInCurrentScope )
    )

Return
if(AverageValue<FilterValue, AverageValue)

+SUM('Остат'[Приход])

Сумма остаток =
SUM ( 'Остат'[Остаток] )

Сумма прихода =
CALCULATE (
    SUM ( 'Прих'[Приход] );
    FILTER (
        'Прих';
        'Прих'[Дата прихода] = MIN ( 'Остат'[Дата остатка] )
            && 'Прих'[Номер склада] = MAX ( 'Остат'[Номер склада] )
    )
)

Расход =
SUMX (
    ADDCOLUMNS (
        SUMMARIZE ( 'Остат'; 'Остат'[Дата остатка]; 'Остат'[Номер склада] );
        "Value";
            CALCULATE ( [Сумма остаток]; PREVIOUSMONTH ( 'Остат'[Дата остатка] ) ) - [Сумма остаток] + [Сумма прихода]
    );
    [Value]
)

Table.FromColumns({Source},{"OneColumn"})

= #table({"OneColumn"}, List.Zip({Source}))

Table.FromColumns({Source})

= #table(1, List.Zip({Source}))

Table.FromColumns({Source}, type table [OneColumn = number])

= #table(type table [OneColumn = number], List.Zip({Source}))