Доброго времени суток. Имеется код сортировки по одному столбцу.

Код к задаче: «Сортировка строк таблицы по нескольким столбцам - VBA»

Здравствуйте! На листе1 в строке 431 пятой колонки находится слово в кавычках - "Белая" Мне нужно убрать кавычки Я ввожу стринговую переменную и инициализирую её данными из ячейки. str = Trim(Worksheets(1).Cells(431, 5).Value) Получается переменная str = "Белая" Пишу: If (str Like "*" & Chr(34) & "*" & Chr(34) & "*") Then str= Replace(str, Chr(34), "") Но кавычки не убираются((( При этом для интереса написала ещё вот так: str1 = Chr(34) & "Белая" & Chr(34) И в этом случае конструкция If срабатывает и кавычки убираются. Так что же не так с первым вариантом, когда переменная инициализируется данными ячейки? Мелочь, но никак не могу обойти( Помогите, пожалуйста. Спасибо.

Всем привет Вроде почти все допилил, а на выходе какая-то ересь, подскажите, что не так Условие задачи: дана матрица Z(5,4). Если в строке есть отрицательный элемент, найти среднее арифметическое ненулевых элементов этой строки и вывести эти значения в отдельный массив. Что есть: исходная матрица и массив с переопределением размерности в ходе программы.

Запускаю с листа "l1" построчно работает, но мне нужно, чтобы заполнялись столбцы, начиная со столбца с1. Не могу понять, как это сделать. PureBasic1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub FullDate() Dim vItem, avArr, li As Long ReDim avArr (1 To Rows.Count, 1 to 1) With New Collection On Error Resume Next For Each vItem In Range("B2", Cells(Rows.Count,2).End(xlUp)).Value .Add vItem, CStr(vItem) if Err = 0 Then li = li + 1: avArr(li, 1)= vItem else: Err.Clear End If Next End With If li Then Worksheets("l3").[c1].Resize(li).value = avArr end sub

Добрый день. Помогите плиз решить задачу. Я с VBA столкнулся впервые 1) в строке необходимо объединить диапазон ячеек (в каждой ячейке есть данные (простой текст)) от 'A' до 'M' в одну ячейку с сохранением все данных * такой макрос я нашел в интернете (он работает с "ручным" выделением ячеек) 2) перейти на следующую строку и повторить действие из п.1 3) я знаю, что у меня таких строк допустим 550, значит необходимо выполнять эту операцию до строки 550 . искал по форумам, анализировал, пытался составить макрос, но что-то не получается, т.к. я не знаю этого языка решил, что нужно еще один макрос (1й - это объединение ячеек в одну "MergeCell") написать, который выделяет ячейки, потом задействует макрос "MergeCell" и переходит к следующей строке

Помогите пожалуйста вычислить произведение тех элементов заданной матрицы A(10,10), которые расположены на пересечении четных строк и четных столбцов. Написать программу нужно в VBA.

Всем привет, Возник вопрос, ни как не могу решить. Сколько искал ни чего дельного не нашел. Есть строка к примеру: --- Титан. Краснодар, 000000029 Мне нужно сделать так, что бы на выходе у меня осталось: Титан. Краснодар Т.е. нужно, что бы код понимал, что я хочу убрать с начала строки все символы до пробела (пробел включительно) и с конца строки все символы до запятой (запятая включительно). Почему именно так, потому что, тот текст, что мне нужен на исходе может быть разной длинны. Ребят, направьте на путь верный

Каким методом можно записать строку в документ ворд ?

Определить столбец и строку двухмерного массива A 4×5, на пересечении которых расположен максимальный элемент. Создать массив B, в котором значение найденной строки и столбца эквивалентны значениям массива A, а остальные элементы нулевые.

На листе строки разного цвета: зеленые, желтые, белые. Необходимо в крайнем левом пустом столбце присвоить всем строкам номера по следующему критерию: Проверяем столбец D. Если первая строка зеленая, то все белые после нее составляют вместе с ней группу - этой группе должно соответствовать одно значение, например 1. Если строка желтая - она не имеет группы, т.е. каждая желтая нумеруется отдельно - 2,3, и тд. Помогите, пожалуйста, как это можно реализовать? Для примера вручную пронумеровала первые строки.

Здравствуйте, оооочень нужна ваша помощи с программированием в VBA, была бы благодарна вам за помощь Определить строку матрицы В , модуль суммы элементов которой минимален, если В=3*А^2+ A-5*Е, где Е-единичная матрица, А-матрица размерности 5*5, элементы которой определяются по формуле Aij=<(i*j,если i=j; i+j,если i≠j)