Как добавить косую черту для всех строк содержимого в Excel? - PullRequest
0 голосов
/ 08 февраля 2012
image
UploadPic/2012-02-08/132168689584.jpg
UploadPic/2012-02-08/132168689539.jpg
UploadPic/2012-02-08/132168689579.jpg
UploadPic/2012-02-08/132168689580.jpg
UploadPic/2012-02-08/132168689659.jpg
UploadPic/2012-02-08/132168689698.jpg
UploadPic/2012-02-08/132168689611.jpg
UploadPic/2012-02-08/132168689621.jpg
UploadPic/2012-02-08/132168689610.jpg
UploadPic/2012-02-08/132168689658.jpg

есть столбец (img), как указано выше, теперь я хочу добавить косую черту перед UploadPic (/ UploadPic) и сделать это с помощью пакета.как мне это сделать?

Ответы [ 2 ]

3 голосов
/ 08 февраля 2012
control + f

Заменить вкладку

Найти что: "UploadPic" Заменить на: "\ UploadPic"

Нажмите - Заменить все

Мне бы хотелось добавить немного текста в «Найти что», просто чтобы быть уверенным.

1 голос
/ 08 февраля 2012

Этот простой маленький макрос сделает это для каждой используемой ячейки в столбце 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

Как / Где установить макрос:

  1. Откройте вашу рабочую книгу
  2. Получить в VB Editor (Нажмите Alt + F11)
  3. Вставить новый модуль (Вставить> Модуль)
  4. Скопируйте и вставьте в свой код (указано выше)
  5. Выйти из VBA (Нажмите Alt + Q)
  6. Сохранить как книгу с поддержкой макросов

Макрос установлен и готов к использованию. Нажмите Alt-F8 и выберите его из списка макросов.

...