excel vba сцепить ячейки кодом
Как сцепить большое количество ячеек?
Помощь в написании контрольных, курсовых и дипломных работ здесь.
Вложения
 | 1.xlsx (11.2 Кб, 5 просмотров) |
Как сцепить значения ячеек, если в ячейках числа в формате времени
Задача следующая: Имеется 3 ячейки со значениями, отображаемыми в формате ЧЧ:ММ:СС. Причем.
СЦЕПИТЬ данные из нескольких ячеек
Друзья, всем привет! Подскажите, пожалуйста, как можно решить проблему по следующему вопросу. У.
Сцепить значения двух ячеек с заменой символов
Я столкнулась со сложной задаче мне надо в ячейки А1 есть число 75, в ячейке В1 есть набор символов.
Вложения
| 1.xlsx (11.5 Кб, 8 просмотров) |
Решение
Вложения
 | 1.rar (13.0 Кб, 10 просмотров) |
Вложения
| 1_1.rar (13.3 Кб, 18 просмотров) |
Помощь в написании контрольных, курсовых и дипломных работ здесь.
Как при суммировании ячеек произвести деление на количество не пустых ячеек
Всем добрый вечер. Допустим есть ряд не пустых ячеек А1-А10, и нужно найти среднее значение. Берем.
Определить количество информационных ячеек, проверочных ячеек и всего ячеек
В груповой код внесена двукратная ошибка. Передается 128 сообщений. Определить количество.
Посоветуйте как оформить большое количество ссылок
Всем привет. В общем нужно оформить большое количество ссылок в одном html файле, посоветуйте как.
Как удобнее передавать большое количество параметров?
В продолжение этой темы. Я пишу WCF сервис и у меня очень много функций с похожими аргументами.
Как соединить текст из нескольких ячеек Excel не потеряв информацию.
Макрос слияния (сцепки) текста из ячеек в «Excel» без потери данных.
Ранее уже рассказывал о замечательной функции в программе Excel, которая называется «СЦЕПИТЬ».
Функция довольно удобная, не есть у нее один большой недостаток ячейки для сцепки нужно указывать по одной, выделение диапазона не работает или работает некорректно.
Для больших объемов сцепки (слияния текста) требуются значительные трудозатраты.
Достойных аналогов этой функции, к сожалению, найти не удалось.
На помощь пришел язык VBA для написания макросов в «Excel».
Ниже приведу простейший макрос, который позволяет соединять между собой значения ячеек в выделенном диапазоне. (Производить их слияние. )
Макрос слияния выглядит следующим образом:
Это самый простой вариант макроса слияния текстовых значений ячеек в выделенном диапазоне.
Его можно усложнить и оптимизировать под выполнение Вашей конкретной задачи.
Например:
Добавить форму UserForm с двумя полями TextBox. В одном поле указывать разделитель ( «/», «;», «.», и т.д.) а в другое поле выводить результат для удобства копирования.
Можно на форму UserForm вывести кнопки активации макроса «Соединить» и для ленивых кнопку «Копировать» — для копирования содержимого поля с результатом в буфер обмена.
Макрос копирования по ссылке: http://ruexcel.ru/ctrlc/
Можно добавить чек бокс (checkbox) для выбора учитывать пустые ячейки или пропускать их.
Вариаций очень много и их набор зависит только от задачи, которую будет выполнять макрос слияния ячеек.
Сцепить ячейки, отвечающие условию
Я создаю таблицу, сделав выборку только уникальных значений по столбцу 1 (артикула). И в столбец 2 нужно подтянуть значения из первой таблицы, сцепив между собой значения всех ячеек, соответствующих этому артикулу.
артикул размер
123_____2
123_____4
124_____2
124_____3
124_____5
В итоге надо получить таблицу вида:
артикул размер
123_____2 4
124_____2 3 5
Возможно ли реализовать такое с помощью формул?
Помощь в написании контрольных, курсовых и дипломных работ здесь.
Сцепить ячейки по условию
Доброго времени суток, Находил похожее, но у меня совсем другое условие.
Сцепить ячейки по условию с разделителем
Здравствуйте. Очень нужна помощь в написании макроса, который будет сцеплять ячейки (вставляя.
Сцепить ячейки с сохранением формата текста
Добрый вечер. В первой ячейке текст с подчёркнутыми словами. Во второй формула. Как сцепить.
Сложить ячейки в столбце отвечающие определенному цвету с учетом определенной иерархии
Друзья помогите пожалуйста в решении следующей задачи: 1. есть повторяющаяся цветовая иерархия;.
В образце: 123_____2 4
цифра 4 где должна стоять в соседней ячейке или в той же, что и «2», но через какой-нибуть разделитель?
Данные будут браться с листа № 1, начиная с ячейки A2 и записываться на лист № 2.
Открываем Excel. Нажимаем левый ALT+F8 набираем любое слово, нажимаем
В появившемся окошке выделяем все, удаляем. В это же окошко копируем приведенный выше код (без цифровой нумерации).
Закрываем окно редактора, сохраняемся.
Также может возникнуть проблема, если у Вас отключены макросы с целью безопасности.
Главное Меню (крайнее левое на ленте)-Параметры Excel-Центр управления безопасностью-Параметры центра управления безопасностью-Параметры макросов->уровень безопасности «Низкий» (офис 2007).
Вложения
 | Delim.xls (28.0 Кб, 102 просмотров) |
Если же это недопустимо, можно воспользоваться кодом на основе словаря:
Формула СЦЕПИТЬДИАПАЗОН
Описание функции
Функция =СЦЕПИТЬДИАПАЗОН(ДИАПАЗОН, [РАЗДЕЛИТЕЛЬ]) имеет два аргумента:
Аналогичная функция появилась только в Excel 2016. Если у Вас Excel ранней версии, то надстройка полностью исправляет это упущение разработчиков.
Далее привожу множество примеров использования данной функции.
Пример 1
Просто сцепить все ячейки диапазона, вставив между ними пробел.
Этот пример можно сделать также с помощью стандартной функции СЦЕПИТЬ, однако для этого придется перечислить все ячейки диапазона. Если их две-три, то это не проблема, а вот если их гораздо больше, то выбор в пользу функции СЦЕПИТЬДИАПАЗОН думаю очевиден.
Пример 2
Перечислить все фамилии через запятую.
Обратите внимание, что в качестве разделителя указана запятая с пробелом («, «). Если не указать пробел, то все ячейки «сольются».
Пример 3
Можно сцепить более одного столбца. При этом сцепление ячеек происходит построчно.
Пример 4
Используя промежуточные вычисления можно добиться нужного решения значительно проще и быстрее. Следующий пример демонстрирует как перечислить фамилии и инициалы, ставя запятую только после инициалов.
Как сцепить несколько значений в одну ячейку по критерию? СцепитьЕсли
Вот и решил написать небольшую функцию пользователя на VBA, которая решает данную проблему. Так же подобную функцию называют «многоразовый ВПР«, потому что она по критерию возвращает ВСЕ значения для этого критерия, а не только первое.
‘————————————————————————————— ‘ Author : The_Prist(Щербаков Дмитрий) ‘ Профессиональная разработка приложений для MS Office любой сложности ‘ Проведение тренингов по MS Excel ‘ http://www.excel-vba.ru ‘ Purpose: ‘————————————————————————————— Function СцепитьЕсли(ByRef Диапазон As Range, ByVal Критерий As String, ByRef Диапазон_сцепления As Range, Optional Разделитель As String = » «, Optional БезПовторов As Boolean = False) As String Dim li As Long, sStr As String, avItem, avDateArr(), avRezArr(), lUBnd As Long If Диапазон.Count > 1 Then avDateArr = Intersect(Диапазон, Диапазон.Parent.UsedRange).Value avRezArr = Intersect(Диапазон_сцепления, Диапазон_сцепления.Parent.UsedRange).Value If Диапазон.Rows.Count = 1 Then avDateArr = Application.Transpose(avDateArr) avRezArr = Application.Transpose(avRezArr) End If Else ReDim avDateArr(1, 1): ReDim avRezArr(1, 1) avDateArr(1, 1) = Диапазон.Value avRezArr(1, 1) = Диапазон_сцепления.Value End If lUBnd = UBound(avDateArr, 1) ‘Определяем вхождение операторов сравнения в Критерий Dim objRegExp As Object, objMatches As Object Set objRegExp = CreateObject(«VBScript.RegExp») objRegExp.Global = False: objRegExp.Pattern = «=|<>|=>|>=| | 0 Then Dim sStrMatch As String sStrMatch = objMatches.Item(0) Критерий = Replace(Replace(Критерий, sStrMatch, «», 1, 1), Chr(34), «», 1, 2) If IsNumeric(Критерий) And Критерий <> «» Then Критерий = CDbl(Критерий) End If Select Case sStrMatch Case «=» For li = 1 To lUBnd If avDateArr(li, 1) = Критерий Then If Trim(avRezArr(li, 1)) <> «» Then _ sStr = sStr & IIf(sStr <> «», Разделитель, «») & avRezArr(li, 1) End If Next li Case «<>» For li = 1 To lUBnd If avDateArr(li, 1) <> Критерий Then If Trim(avRezArr(li, 1)) <> «» Then _ sStr = sStr & IIf(sStr <> «», Разделитель, «») & avRezArr(li, 1) End If Next li Case «>=», «=>» For li = 1 To lUBnd If avDateArr(li, 1) >= Критерий Then If Trim(avRezArr(li, 1)) <> «» Then _ sStr = sStr & IIf(sStr <> «», Разделитель, «») & avRezArr(li, 1) End If Next li Case » «» Then _ sStr = sStr & IIf(sStr <> «», Разделитель, «») & avRezArr(li, 1) End If Next li Case «>» For li = 1 To lUBnd If avDateArr(li, 1) > Критерий Then If Trim(avRezArr(li, 1)) <> «» Then _ sStr = sStr & IIf(sStr <> «», Разделитель, «») & avRezArr(li, 1) End If Next li Case » «» Then _ sStr = sStr & IIf(sStr <> «», Разделитель, «») & avRezArr(li, 1) End If Next li End Select Else ‘Если нет вхождения For li = 1 To lUBnd If avDateArr(li, 1) Like Критерий Then If Trim(avRezArr(li, 1)) <> «» Then _ sStr = sStr & IIf(sStr <> «», Разделитель, «») & avRezArr(li, 1) End If Next li End If If БезПовторов Then Dim oDict As Object, sTmpStr Set oDict = CreateObject(«Scripting.Dictionary») sTmpStr = Split(sStr, Разделитель) On Error Resume Next For li = LBound(sTmpStr) To UBound(sTmpStr) oDict.Add sTmpStr(li), sTmpStr(li) Next li sStr = «» sTmpStr = oDict.keys For li = LBound(sTmpStr) To UBound(sTmpStr) sStr = sStr & IIf(sStr <> «», Разделитель, «») & sTmpStr(li) Next li End If СцепитьЕсли = sStr End Function
По принципу работы функция похожа на стандартную СУММЕСЛИ. Указывается диапазон значений(где просматривать значение), критерий и диапазон значений для сцепления. Символ для разделения слов указывать необязательно.
Примечание: для работы функции должны быть разрешены макросы
Пример СцепитьЕсли.xls (68,0 KiB, 13 513 скачиваний)
Статья помогла? Поделись ссылкой с друзьями!