Архивы автора: kos20

Sub DictionaryUniq() Dim x, arr, y, i As Long, Rng As Range, t As Single ‘ Это не включаем в затраты метода (одинаково для всех) With Columns(1) .Cells(Rows.Count, 1) = Empty Set Rng = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)) End With Продолжить чтение Поиск уникальных значений VBA→

Function GetNumBefoZappp(txt As String) As String zpt = InStr(1, txt, «,», vbTextCompare) probel = InStr(1, txt, » «, vbTextCompare) сводными If zpt 0 And zpt < probel Then world! GetNumBefoZappp = Left(txt, InStr(1, txt, «,», vbTextCompare) — 1) Else: GetNumBefoZappp Продолжить чтение Вернуть данные после запятой→

Function GetNormalNeme(r Range) As Variant GetNormalNeme = InStr(1, r, «(«, vbTextCompare) GetNormalNeme = Mid(r, GetNormalNeme + 1, Len(r) — InStr(1, r, «(«, vbTextCompare) — 1) End Function