Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удаление пробелов в ячейках - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление пробелов в ячейках
Удаление пробелов в ячейках
-SVP- Дата: Понедельник, 03.06.2013, 11:47 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Добрый день знатоки Excel.
Нашел на форуме недавно обсуждавшуюся проблему по работе макроса, который бы проверял каждую строчку в столбце и удалял бы лишние
пробелы в каждой ячейке данного столбца, если они есть.
Нужна помощь в изменении данного макроса, чтобы была проверка ячеек в столбцах W-Z и удаление пробелов (если они есть) в ячейках
этих столбцов и пропуск ячеек, если в них стоит "1" (см. приложенный файл). Предупреждающий текст при выполнении макроса не нужен.
Количество строк в таблице может быть до 500.
Спасибо.
К сообщению приложен файл: Example_new.xlsm (22.8 Kb)
 
Ответить
СообщениеДобрый день знатоки Excel.
Нашел на форуме недавно обсуждавшуюся проблему по работе макроса, который бы проверял каждую строчку в столбце и удалял бы лишние
пробелы в каждой ячейке данного столбца, если они есть.
Нужна помощь в изменении данного макроса, чтобы была проверка ячеек в столбцах W-Z и удаление пробелов (если они есть) в ячейках
этих столбцов и пропуск ячеек, если в них стоит "1" (см. приложенный файл). Предупреждающий текст при выполнении макроса не нужен.
Количество строк в таблице может быть до 500.
Спасибо.

Автор - -SVP-
Дата добавления - 03.06.2013 в 11:47
Hugo Дата: Понедельник, 03.06.2013, 12:23 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3252
Репутация: 707 ±
Замечаний: 0% ±

2019
Я задачу не понял. Объясните ещё раз smile


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеЯ задачу не понял. Объясните ещё раз smile

Автор - Hugo
Дата добавления - 03.06.2013 в 12:23
-SVP- Дата: Понедельник, 03.06.2013, 12:37 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Hugo, добрый день.
Работа макроса заключается в том, чтобы удалить пробелы в пустых ячейках в столбцах W-Z. Если в ячейке стоит "1"
макрос просто пропускает ее. По-подробнее в приложенном файле.
Спасибо.
 
Ответить
СообщениеHugo, добрый день.
Работа макроса заключается в том, чтобы удалить пробелы в пустых ячейках в столбцах W-Z. Если в ячейке стоит "1"
макрос просто пропускает ее. По-подробнее в приложенном файле.
Спасибо.

Автор - -SVP-
Дата добавления - 03.06.2013 в 12:37
Hugo Дата: Понедельник, 03.06.2013, 14:10 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3252
Репутация: 707 ±
Замечаний: 0% ±

2019
Добрый день smile
Т.е. нужно обработать возможно примерно 4 миллиона ячеек, а те, где вместе с пробелами забита единица - не трогать? Т.е. эта единица очевидно в виде текста, и нужно позаботиться, чтоб Эксель самовольно не преобразовал эту единицу в число? Так?
Или там единица будет ещё с чем-то - с другими символами, но не как 212 или 121? Или другие числа с 1 тоже не нужно трогать?


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеДобрый день smile
Т.е. нужно обработать возможно примерно 4 миллиона ячеек, а те, где вместе с пробелами забита единица - не трогать? Т.е. эта единица очевидно в виде текста, и нужно позаботиться, чтоб Эксель самовольно не преобразовал эту единицу в число? Так?
Или там единица будет ещё с чем-то - с другими символами, но не как 212 или 121? Или другие числа с 1 тоже не нужно трогать?

Автор - Hugo
Дата добавления - 03.06.2013 в 14:10
-SVP- Дата: Понедельник, 03.06.2013, 14:32 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Hugo, в таблице 500 строк (максимум), 4 столбца. Соответственно, нужно обработать не более 2000 ячеек.
В ячейках с единицами пробелов нет и других символов тоже нет. Excel не должен преобразовывать единицу.
Спасибо.
 
Ответить
СообщениеHugo, в таблице 500 строк (максимум), 4 столбца. Соответственно, нужно обработать не более 2000 ячеек.
В ячейках с единицами пробелов нет и других символов тоже нет. Excel не должен преобразовывать единицу.
Спасибо.

Автор - -SVP-
Дата добавления - 03.06.2013 в 14:32
Serge_007 Дата: Понедельник, 03.06.2013, 14:36 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
[vba]
Код
Sub SVP()
      Dim q As Range
      For Each q In Range("w2:z500")
          If q = " " Then q = ""
      Next
End Sub
[/vba]


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение[vba]
Код
Sub SVP()
      Dim q As Range
      For Each q In Range("w2:z500")
          If q = " " Then q = ""
      Next
End Sub
[/vba]

Автор - Serge_007
Дата добавления - 03.06.2013 в 14:36
Hugo Дата: Понедельник, 03.06.2013, 14:36 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3252
Репутация: 707 ±
Замечаний: 0% ±

2019
Ну тогда единицам ничего не будет smile
[vba]
Код
Sub tt()
With Intersect(ActiveSheet.UsedRange, Columns("W:Z"))
.Value = Application.Trim(.Value)
End With
End Sub
[/vba]


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеНу тогда единицам ничего не будет smile
[vba]
Код
Sub tt()
With Intersect(ActiveSheet.UsedRange, Columns("W:Z"))
.Value = Application.Trim(.Value)
End With
End Sub
[/vba]

Автор - Hugo
Дата добавления - 03.06.2013 в 14:36
-SVP- Дата: Понедельник, 03.06.2013, 15:15 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Hugo, Serge_007.
Большое спасибо за предложенные варианты.
 
Ответить
СообщениеHugo, Serge_007.
Большое спасибо за предложенные варианты.

Автор - -SVP-
Дата добавления - 03.06.2013 в 15:15
KuklP Дата: Понедельник, 03.06.2013, 19:06 | Сообщение № 9
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Полезно еще сюда заглянуть:
http://www.planetaexcel.ru/forum....GEN_1=3


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеПолезно еще сюда заглянуть:
http://www.planetaexcel.ru/forum....GEN_1=3

Автор - KuklP
Дата добавления - 03.06.2013 в 19:06
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление пробелов в ячейках
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!