With ThisWorkbook.Worksheets(1)
'Укажите нужную рабочую книгу и рабочий лист
.Range("C1") = .Range("A1") & " " & .Range("B1")
'Ячейка "C1" + лист не должна быть защищена
'а ячейки "A1", "B1" не должны содержать значений ошибок
End With
объединение содержимого нескольких ячеек в Excel
Здравствуйте!
Есть 2 ячейки в первой артикул (От 4 до 6 цифр) во второй название.
Нужно создать коктейль из этой парочки так, что бы сначала шёл артикул, затем пробел и дальше название.
Заранее огромное спасибо всем, кто откликнется!
Есть 2 ячейки в первой артикул (От 4 до 6 цифр) во второй название.
Нужно создать коктейль из этой парочки так, что бы сначала шёл артикул, затем пробел и дальше название.
Заранее огромное спасибо всем, кто откликнется!
A1 - артикул
B1 - название
C1 =A1&" "&B1
C1 =СЦЕПИТЬ(A1;" ";B1)
Если же сие необходимо произвести программно, то Вы можете использовать что-то вроде нижеопубликованного кода :
B1 - название
C1 =A1&" "&B1
C1 =СЦЕПИТЬ(A1;" ";B1)
Если же сие необходимо произвести программно, то Вы можете использовать что-то вроде нижеопубликованного кода :
Код:
А как произвести сцепление, если:
A1 - 12
B1 - 7
Необходимо, чтобы после сцепление B1 стало двухразрядным числом с ведущим нулем, если было одноразрядным, как в приведенном примере. Т.е. - 07. Двухразрядные должны остаться неизменными.
Результатом должно стать:
С1 - 12:07
Варианты
C1 =A1&":"&B1
C1 =СЦЕПИТЬ(A1;":";B1)
не срабатывают - получается «12:7», что недопустимо.
A1 - 12
B1 - 7
Необходимо, чтобы после сцепление B1 стало двухразрядным числом с ведущим нулем, если было одноразрядным, как в приведенном примере. Т.е. - 07. Двухразрядные должны остаться неизменными.
Результатом должно стать:
С1 - 12:07
Варианты
C1 =A1&":"&B1
C1 =СЦЕПИТЬ(A1;":";B1)
не срабатывают - получается «12:7», что недопустимо.
Цитата: Advisory
Результатом должно стать:
С1 - 12:07
Варианты
C1 =A1&":"&B1
C1 =СЦЕПИТЬ(A1;":";B1)
не срабатывают - получается «12:7», что недопустимо.
Ну дык, накрути немного формулу, например:
C1 =СЦЕПИТЬ(A1;":";ПРАВСИМВ("0"&B1;2))
Цитата: Serzh
например:
Супер! Спасибо - все работает как надо :)
=A1&":"&ТЕКСТ(B1;"00")