Этот простой маленький макрос сделает это для каждой используемой ячейки в столбце A:
Sub AddSlash()
Dim MyRNG As Range, cell As Range
Set MyRNG = Range("A:A").SpecialCells(xlConstants)
For Each cell In MyRNG
cell.Value = "/" & cell.Value
Next cell
End Sub
Как / Где установить макрос:
- Откройте вашу рабочую книгу
- Получить в VB Editor (Нажмите Alt + F11)
- Вставить новый модуль (Вставить> Модуль)
- Скопируйте и вставьте в свой код (указано выше)
- Выйти из VBA (Нажмите Alt + Q)
- Сохранить как книгу с поддержкой макросов
Макрос установлен и готов к использованию. Нажмите Alt-F8 и выберите его из списка макросов.