Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
VBA скрипт
 
Добрый день.
Кто нибудь может сделать VBA скрипт для массовой генерации ответов GPT?
То есть пишешь в первой колонке запрос, а во второй колонке выходит ответ.
Готов оплатить работу.
Напишите в личку, если получится сделать такое.
Спасибо.
Не сцеплять нулевые значения
 
Добрый день.

Делаю сцепку с добавлением спец символов - пробела, тире и переноса строки.


Получаю такой результат внутри одной ячейки:
Площадь помещения - 0
Подача питания - 0
Подробная комплектация - 0
Потребляемая мощность при обогреве - 1250 Вт
Потребляемая мощность при охлаждении - 1220 Вт
Предварительный фильтр - 0
Протокол связи - 0
Пульт дистанционного управления - есть


Можно ли как то получить такие данные исключая строки в которых значения нулевые?
То есть вот такие:
Потребляемая мощность при обогреве - 1250 Вт
Потребляемая мощность при охлаждении - 1220 Вт
Пульт дистанционного управления - есть


Или может как то обработать уже полученные данные и удалить строчки в которых присутствует последовательность " - 0"

Делал сцепку такой формулой
=СЦЕПИТЬ(
A2;СИМВОЛ(32);СИМВОЛ(45);СИМВОЛ(32);B2;СИМВОЛ(10);
C2;СИМВОЛ(32);СИМВОЛ(45);СИМВОЛ(32);D2;СИМВОЛ(10);
E2;СИМВОЛ(32);СИМВОЛ(45);СИМВОЛ(32);F2;СИМВОЛ(10);
G2;СИМВОЛ(32);СИМВОЛ(45);СИМВОЛ(32);H2;СИМВОЛ(10);
I2;СИМВОЛ(32);СИМВОЛ(45);СИМВОЛ(32);J2;СИМВОЛ(10);
K2;СИМВОЛ(32);СИМВОЛ(45);СИМВОЛ(32);L2;СИМВОЛ(10);
M2;СИМВОЛ(32);СИМВОЛ(45);СИМВОЛ(32);N2;СИМВОЛ(10);
O2;СИМВОЛ(32);СИМВОЛ(45);СИМВОЛ(32);P2;СИМВОЛ(10);
)

Пример файла во вложении.

Спасибо.
Удаление дублей в строке, Удаление дублей в строке
 
Добрый день.

Есть вот такой макрос удаляющий дубли в строке.

Код
Sub bb()
Dim c As Range, x
With CreateObject("scripting.dictionary")
  For Each c In Selection
    .RemoveAll
    For Each x In Split(c)
      .Item(x) = 0
    Next
    c = Join(.keys)
  Next
End With
End Sub


Проблема в том, что он удаляет слова только с одинаковым регистром.

Можно ли его как то доработать, чтобы удалять дубли независимо от регистра?
Спасибо.
Изменено: БМВ - 30.08.2022 12:08:28
Страницы: 1
Наверх