Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Сумма значений по данным ниже ячейки, Сумма значений по данным ниже ячейки
 
Доброго.

Есть таблица, в ней столбцом указываются числа, к этим числам могут применяться простые горизонтальные формулы.
После применения простых математических формул, числа попадают в столбец 2 (в данном примере они туда попадают как есть).

Между числами в 1-м столбце есть пустые ячейки. Пустая ячейка это разделитель данных. Массив данных заключен между пустыми ячейками.
Требуется во втором столбце, там где пустая ячейка получить сумму всех чисел ниже в данном массиве.

Фиолетовым цветом указано место, где ставится сумма всех ячеек ниже до следующей фиолетовой ячейки.

Скриншот и таблицу, где это сделано вручную протяжкой суммы прилагаю.
Изменено: kdbled - 29.06.2023 22:03:26
Оценка распределения чисел в строках., Есть ряды чисел с различным распределением, необходимо выяснить их "нормальность".
 
Добрый день.

Мне сложно описать задачу, так как я не понимаю в сфере статистических формул.

Есть горизонтальные ряды чисел. В основном имеется 2 вида их заполненности. Для простоты предположим, что чисел 10.
1-й вид. Практически все числа это 0 и одно число это 600 или немного больше.
2-й вид. Все 10 чисел примерно похожи между собой и нулей практически нет.

Пример:
1-й вид.  0 0 0 0 0 0 600 0 0 0
2-й вид.  62 75 96 39 86 55 77 41 39 51

Числа суммарно не всегда одинаковы.

Мне нужно с помощью какой-то (волшебной для меня) статистической формулы узнать примерную степень распределения чисел.
Чем ровнее распределение на диапазон, тем больше идет стремление скажем к 1. Ну или к другому числу.
В общем нужен показатель, который показывает насколько равномерно распределены числа в ряде.
Протягивать длинные формулы долго, ряды длинные и их очень много.
В идеале скармливать формуле диапазон и она выдает "нормальность" распределения.

Извиняюсь за такое корявое описание задачи.
Сортировка номеров телефонов по уникальности, Есть список номеров телефонов, его нужно отсортировать так чтобы номера друг за другом были наименее похожи
 
Здравствуйте.

Имеется список номеров, мне нужно переформатировать список так, чтобы каждый номера были расположены максимально уникально.

Например есть номера

890 45 20
890 45 30
890 46 12
671 40 50
671 41 50

Вначале удобно перемешать номера внутри группы "890", так друг за другом будут идти разные номера:
890 45 20
890 46 12
890 45 30

Со второй группой это делать не надо она уникальна внутри группы "671".

После надо перемешать уже сами группы:
890 45 20
671 40 50
890 46 12
671 41 50
890 45 30

Руками это можно сделать, но номеров может быть и 100шт, в каждом по 11 цифр.

Можно ли как-то сделать это формулами или скриптом?

Пример реальных чисел (номера телефонов):
79166961104
79858063568
79166963019
79856684268
79166971599
79858063173
79166972558
79857136182
79166968153
79858060849
79166964986
79858062633
79166971343
79858062483
79166970165
79858063142
79166968806
79858062783
79167962460
79858062920
79167962372
79858064223
79166971597
79858063186
79165583503
79858060417
79150582552
79858063195
79167967066
79858061297
79167980184
79855796184
79167372391
79858063582
79167524158
79858062269
79166162102
79858062792
79165779188
XLS2TXT-модуль. Не парсит длинные строки., При парсинге через модуль XLS2TXT оставляет пустыми файлы из длинных строк.
 
Доброго.

Во вложении есть модуль, которым любезно поделился один из участников данного форума.
Суть его проста, вставляем строки в первый столбец начиная с 36-ой строки, нажимаем запуск и получаем в папку, где находится модуль файлы с именами ячейки и содержимым строки.

Но есть проблема, модуль не обрабатывает длинные строки возвращая пустые файлы. Может кто-то поправить модуль, чтобы он обрабатывал длинные строки около 3000 символов?
Если это задача за денги, напишите стоимость. Готов оплатить.


Вытащил код кнопки для удобства:
Код
Sub test()
    Dim cell As Range
    Путь = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "")
    For Each cell In Selection.Cells
        SaveTXTfile Путь & cell.Address & ".txt", cell
    Next cell
End Sub

Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
    On Error Resume Next: Err.Clear
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.CreateTextFile(filename, True)
    ts.Write txt: ts.Close
    SaveTXTfile = Err = 0
    Set ts = Nothing: Set fso = Nothing
End Function
Изменено: kdbled - 28.12.2018 13:24:48
Поиск и использование символа скобки в regexp, При попытке найти с помощью regexp символа скобки выдает ошибку или #ЗНАЧ
 
Доброго.
Использую макрос по RegExpExtract, найденный на просторах данного сайта.
При любой попытке найти открывающую "(" или закрывающую ")" скобку формула выдает либо ошибку, потому что скобка не закрыта, либо #ЗНАЧ.
Какой синтаксис использования "(" и ")" как символов в поиске через RegExpExtract?
Вот что я уже пробовал:
=RegExpExtract(RC[-3];"(\d{1,3}";1)
=RegExpExtract(RC[-3];"~(\d{1,3}";1)
=RegExpExtract(RC[-3];"\(\d{1,3}";1)
=RegExpExtract(RC[-3];""("\d{1,3}";1)

Ищу текст "(1" в строке ВАНТУЗ ПЛАСТМАСС. РУЧКА (1/100) "ВИРПЛАСТ"
Сравнение ячеек и копирование различимых данных
 
Добрый день.
Есть длинный список текстовых данных.
Необходимо сравнить верхнюю строку с нижней, найти в них различия и поместить в отдельную строку.
Сравнивать посимвольно или даже вытягивая слова за счет поиска пробелов сложновато, в строках до 15 слов.
Есть еще нюанс, на базе этой формулы я хочу после добавить еще одну, чтобы отделять сильно различающиеся строки и едничные значения.

 
Бумага   шлифовальная водостойкая p 400 листы 230х280мм пачка 10 шт
Бумага шлифовальная   водостойкая p 600 листы 230х280мм пачка 10 шт
Бумага шлифовальная   водостойкая p 800 листы 230х280мм пачка 10 шт
Бумага шлифовальная   водостойкая p1000 листы 230х280мм пачка 10 шт
Бумага шлифовальная   водостойкая p1500 листы 230х280мм пачка 10 шт
Бумага шлифовальная   водостойкая p2000 листы 230х280мм пачка 10 шт
Губки шлифовальные   100х70х25мм мягкие 3 шт p60/80, p60/100, p80/120
Губки шлифовальные   100х70х25мм средней жесткости 3 шт p60/80, p60/100, p80/120
Губки шлифовальные   125х100х10мм мягкие 3 шт p60/80, p60/100, p80/120
Круг абразивный для липучки   d=115мм p 24 набор 10 шт
Круг абразивный для липучки   d=115мм p 40 набор 10 шт
Круг абразивный для липучки   d=115мм p 60 набор 10 шт
Круг абразивный для липучки   d=115мм p 80 набор 10 шт
Круг абразивный для липучки   d=125мм p 24 набор 10 шт
Круг абразивный для липучки   d=125мм p 36 набор 10 шт
Круг абразивный для липучки   d=125мм p 40 набор 10 шт
Круг абразивный для липучки   d=125мм p 60 набор 10 шт
Страницы: 1
Наверх