Доброго времени суток!  
 
Возникла проблема, даже сама не знаю как ее разрешить. Нужно ли создавать макрос или просто через стандартные функции можно осуществить, только догадки.    
 
Файл прилагается. В файле содержатся данные, но после конвертирования, некоторые из них не в нужном формате. Например, одна из ячеек с значением "125-9999-9999" должна быть просто "125", а в пустых ячейках только "9999".    
 
Функцию Заменить не получается использовать т.к. значения разные и окончание тоже: некоторые имеют "125-9999-9999", а некоторые только "125-9999" и т.д. Думала, через функцию ЛЕВСИМВ, чтобы нашло то ненужное окончание, и удалить, но ничего не получилось. Или чтобы находило эти ячейки, и заменить на значение до тире, то есть на "125"-    
В пустые ячейки вставить "9999", но функции Вставить вроде как нету.  
 
Подскажите, пожайлуста, как разрешить эту дилемму. Файлы очень большие, до 40000 и больше строк только один файл. Вручную это слишком долго.

Спасибо Татьяна. Это то что мне было нужно!  У меня как раз и не получалось записать в одну строку. Сейчас считает правильно. Спасибо огромное!

Доброго вечера всем!  
 
Я в растеренности. Может я не правильно выложила тему или файл? Или действительно никто не может помочь?

Доброго времени суток!  
 
Пытаюсь подсчитать Average Deviation, но сравнивая значения просчитанныe по стандартной функции AveDev, в VBA коде функция AveDev считает не правильно.  
 
Koд:  
.Cells(i, 26) = WorksheetFunction.AveDev(Range("U2:X2"), Range("U3:X3"), Range("U4:X4"), Range("U5:X5"), Range("U6:X6"), Range("U7:X7"), Range("U8:X8"), Range("U9:X9"), Range("U10:X10"), Range("U11:X11"), Range("U12:X12"),Range("U13:X13"), Range("U14:X14"), Range("U15:X15"), Range("U16:X16"))  
 
Для примера на Sheet 15 показана разница между значениями. В чем причина?  Подскажите, пожалуйста, как исправить проблему.  
 
Для запуска прогаммы в листе "to get to 10m" виделите диапазон "А1:B151", "step" введите 10

Доброго времени суток!  
 
У меня с циклами совсем плохо. Мне помогли с функцией Var_S и так как она создалась вне цикла, теперь нужно создать новый цикл который просчитает значения в столбце О2:О16.  
Подскажите пожалуйста, как задать новый цикл?  
 
For i = 1 To rRange.Rows.Count Step n  
k = k + 1  
.Cells(k, 15) = Sqr((.Cells(k, 3) - .Cells(5, 9)) ^ 2 / .Cells(10, 9))  
Next i  
 
В этом случае числа одинаковые, и считает с О17:О31.  
 
Для запуска прогаммы в листе "to get to 10m" виделите диапазон "А1:B151", "step" введите 10

VAR.S function  
Estimates variance based on a sample (ignores logical values and text in the sample).  
 
Syntax  
VAR.S(number1,[number2],...])The VAR.S function syntax has the following arguments (argument: A value that provides information to an action, an event, a method, a property, a function, or a procedure.):
 
Number1   Required. The first number argument corresponding to a sample of a population.  
Number2, ...   Optional. Number arguments 2 to 254 corresponding to a sample of a population.  
Remarks  
VAR.S assumes that its arguments are a sample of the population. If your data represents the entire population, then compute the variance by using VAR.P.    
Arguments can either be numbers or names, arrays, or references that contain numbers.    
Logical values, and text representations of numbers that you type directly into the list of arguments are counted.    
If an argument is an array or reference, only numbers in that array or reference are counted. Empty cells, logical values, text, or error values in the array or reference are ignored.  
Arguments that are error values or text that cannot be translated into numbers cause errors.  
If you want to include logical values and text representations of numbers in a reference as part of the calculation, use the VARA function.    
VAR.S uses the following formula:    
where x is the sample mean AVERAGE(number1,number2,…) and n is the sample size.  
Example  
Suppose 10 tools stamped from the same machine during a production run are collected as a random sample and measured for breaking strength.

Y menya Excel 2010 na English. Razve oni imeut raznie functions? Ya proschitala v I10 i zalila zheltim resultat Var.S (Sheet2). Sohranila kak 2003.

Var_S - это WorksheetFunction. Такая функция есть, и если в Basice прописывать WorksheetFunction.V уже выпадает список и там эта функция есть.  
 
Что значит .Cells(10, 9).Formula? Выпадает ошибка выше Run time error 438: Object doesn't support this property or method

Доброго времени суток!    
 
Выпадает ошибка при тестировании, которую я не знаю как устранить. В прикрепленном файле строку, которая выдает ошибку, я закомментировала. Запуская программу, в листе "to get to 10m" виделите диапазон "А1:Б151", "step" введите 10, и если ви раскомментировали строку будет ошибка.    
Мне нужно просчитать функцию  Var_S в ячейке I10 нового созданного листа. В Excel эта функция будет выглядеть так: I10=VAR.S(I5, C12)(Sheet 1, новый создающийся лист). Мне кажется ошибка выпадает из-за .Cells(12, 3). Может кто-нибудь помочь?

Доброго утра всем!  
 
Сейчас работаю с другим файлом, который прикрепляю, то же самое вычисление среднего + пару других формул.  
 
Как сделать так, чтобы шапка таблицы помещалась в первой строке, а не в последней, как в результате листа Sheets7.  
 
Еще проблема, что значения близки, но не точны, а одно значение совсем не совпадает (выделено красным). Проблема в типе переменной? На какой тип можно заменить?

Спасибо за помощь!

Ой, извините:) В ответ на вашу просьбу перестаю "ходить по граблям"! Цитировать буду  только по крайне важным вопросам!

{quote}{login=Alice}{date=18.11.2011 07:44}{thema=Re: }{post}{quote}{login=nilem}{date=18.11.2011 04:05}{thema=}{post}  
 
anvg правильный вопрос задает. В ст. А не все значения совпадают со ст. Д, это тоже надо как-то учитывать?{/post}{/quote}  
 
Получается нужно выводить результат по столбцу D, а не А. Чтобы выбирались только целочисленные значения и копировались на новый лист. Как же тогда происходит вывод результатов первого столбца? Вроде как просчитывает все средние значения на глубинах (depth) столбца D... Ведь выводится 241, а не 200 значений как в столбце А... Как так получается?{/post}{/quote}

{quote}{login=Alice}{date=18.11.2011 07:44}{thema=Re: }{post}{quote}{login=nilem}{date=18.11.2011 04:05}{thema=}{post}  
 
anvg правильный вопрос задает. В ст. А не все значения совпадают со ст. Д, это тоже надо как-то учитывать?{/post}{/quote}  
 
Получается нужно выводить результат по столбцу D, а не А. Чтобы выбирались только целочисленные значения и копировались на новый лист.    
Как же тогда происходит вывод результатов первого столбца? Вроде как просчитывает все средние значения на глубинах (depth) столбца D... Ведь выводится 241, а не 200 значений как в столбце А... Как так получается? {/post}{/quote}  
{/post}{/quote}

{quote}{login=Igor67}{date=18.11.2011 01:54}{thema=}{post}  
Таким образом передается 2-й столбец из выделения. от одного целого до другого.  
.Cells(k, 2) = WorksheetFunction.Average(rRange(i, 1).Offset(, 1).Resize(5, 1))  
{/post}{/quote}  
 
То есть получается, что результаты выводятся не по столбцу А, а по D и выбираются целочисленные, правильно?

{quote}{login=nilem}{date=18.11.2011 04:05}{thema=}{post}  
 
anvg правильный вопрос задает. В ст. А не все значения совпадают со ст. Д, это тоже надо как-то учитывать?{/post}{/quote}  
 
Получается нужно выводить результат по столбцу D, а не А. Чтобы выбирались только целочисленные значения и копировались на новый лист. Можно так сделать?

{quote}{login=Igor67}{date=18.11.2011 11:36}{thema=}{post}  
.Cells(k, 1) = rRange(i, 1)  
.Cells(k, 2) = WorksheetFunction.Average(rRange(i, 1).Offset(, 1).Resize(5, 1))  
{/post}{/quote}  
 
Спасибо Игорь, все работает супер! Но также можете объяснить эти две строки?

{quote}{login=nilem}{date=18.11.2011 11:02}{thema=}{post}Вот для примера. Зел. стрелка.{/post}{/quote}  
 
Спасибо большое! Все работает! Правда вопрос, можете объяснить что происходит здесь:  
.Range("A2:B" & .Cells(Rows.Count, 1).End(xlUp).Row + 1).ClearContents  
   .[a2:b2].Resize(j).Value = y(): .Activate

{quote}{login=niky}{date=18.11.2011 11:13}{thema=Re: }{post}{quote}{login=nilem}{date=18.11.2011 11:02}{thema=}{post}Вот для примера. Зел. стрелка.{/post}{/quote}  
 
Круто...  
А что означает символ ":" в данном коде?  
{/post}{/quote}  
 
На сколько я понимаю ":" разделяет последовательность операторов в одной строке.

Я глубоко извиняюсь за неправильно созданную тему!    
 
И все-таки надеюсь, что вы сможете мне помочь с поставленной задачей. Нужно написать программу в VBA по вычислению среднего значения по строкам с шагом. Хотя и можно использовать стандартную функцию, мне нужно написать программу.  
 
В приложенном файле, нужно подсчитать среднее арифметическое столбца Е (Whole porosity, Y), но чтобы просчитывало в соответствии столбца D (Core top depth, X) на каждом метре. То есть с 2881 до 2881.8. След. среднее значение с 2882 до 2882.8, то бишь среднее значение с шагом 5. Получается, что целочисленные глубины не изменяются, но значения между ними могут изменятся, то есть важно чтобы вычисление среднего по столбцу Е соответствовало столбцу D.  
Результат выводиться на новый лист вместе со столбцом А.  
 
Я создала кнопку и чтобы выделялся диапазон (если будут другие данные), но я не знаю как задать цикл прохождения по строкам до конца выделенного диапазона.

Приветствую всех!  
 
Помогите пожалуйста написать программу по вычислению среднего значения по строкам с шагом. Хотя и можно использовать стандартную функцию, мне нужно написать программу.  
 
В приложенном файле, нужно подсчитать среднее арифметическое столбца Е (Whole porosity, Y), но чтобы просчитывало в соответствии столбца D (Core top depth, X) на каждом метре. То есть с 2881 до 2881.8. След. среднее значение с 2882 до 2882.8, то бишь среднее значение с шагом 5. А что если шаг будет изменяться, например будет =10? то есть нужно чтобы вычисление среднего по столбцу Е соответствовало столбцу D.    
 
И чтобы результат выводился  на новый лист вместе со столбцом А. Все на что меня хватило это создать кнопку и чтобы выделялся диапазон (если будут другие данные), а как задать цикл не знаю... Только начинаю изучать VBA и что-то совсем трудно:)  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Доброго утра всем!    
Еще раз спасибо за помощь. Я сделала это по примеру MCH через стандартные функции, так как я пыталась сделать на примере ZVI, но я совсем запуталась в последовательности создания программы... Очень бы хотелось все-таки разобраться.. Правильно ли я делала? Сначала я создала макрос с названием функции (function). Потом в VBA editor прописываю эту функцию в теле функции sub function end function и все?    
У меня еще другая задача, помогите пожалуйста написать программу по вычислению среднего значения. В приложенном файле, нужно подсчитать среднее значение Whole porosity, Y, но чтобы просчитывало по значениям столбца Core top depth, X через определенное количество строк. То есть с 2881 до 2881.8, и выводило результат с следующем столбце напротив 2881. След. среднее значение с 2882 до 2882.8, то бишь среднее значение на каждом метре. Можно опять таки сделать это через стандартные функции, но мне нужно программно...

Спасибо всем большое!  Буду разбираться сейчас!:)

Ребята, у меня вот немного другая задача... Я работаю над некоторыми вычислениями в Excel и мне не хватает данных для точности. Я построила график по тем данным которые у меня есть. Получилась ломанная линия. Могу ли я получить дополнителные значения из графика на каждом отрезке, например 7-8 значений, и выводить их в отдельную таблицу? как можно это осуществить через VBA? Наверное тоже нужно использовать интерполяцию...