Страницы: 1
RSS
Как вставить определенный символ в конце значения каждой ячейки выделенного диапазона
 
Как вставить определенный символ в конце значения каждой ячейки выделенного диапазона?  
У меня есть определенный диапазон значений:  
*CM000001  
*CM000002  
*CM000003  
*...  
*CM999999  
Мне нужно в конце каждого значения вставить символ *, чтоб получилось:  
*CM000001*  
*CM000002*  
*CM000003*  
*...*  
*CM999999*  
Как это можно реализовать?  
Поясню мне это нужно для генерации штрих кодов.
 
Формула в соседнем столбце:  
=A1&"*"  
 
 
VBA:  
.[A1].Value=.[A1].Value+"*"
Пройтись циклом по ячейкам.  
 
Типа такого:  
 
Sub jjj()  
Dim i&  
With Worksheets("Лист1")  
   For i = 1 To 10 ' выбор строки  
     .Cells(i, 1).Value = .Cells(i, 1).Value + "*"  
   Next i  
End With  
End Sub
 
Макрос из одной команды, выполняется в окне Immediate, VBE (Alt+F11, Ctrl+G):  
 
selection=evaluate(selection.address & "&""*""")
 
Громадное спасибо формула =A1&"*" отлично подходит мне
Страницы: 1
Читают тему
Наверх