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

Вход

Регистрация

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

 

= Мир MS Excel/Добавка к значениям ячеек в столбце - одинакового символа - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавка к значениям ячеек в столбце - одинакового символа (Макросы/Sub)
Добавка к значениям ячеек в столбце - одинакового символа
radioamator Дата: Среда, 06.03.2019, 14:27 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте друзья.
Подскажите как перенести значения ячеек из одного столбца в другой, с добавкой к ним - одинакового символа с левой стороны.

Формулой это делается вот так:
Код
="*"&G4

Простое копирование диапазона - это макрос:
Код
[C4]=[G4]


А как макросом - скопировать содержимое диапазона G4:G16 - в диапазон C4:C16 с подобной добавкой символа * с левой стороны ?
Сам я что-то никак не могу до этого додуматься.
К сообщению приложен файл: 6702049.xls(31.0 Kb)


Сообщение отредактировал radioamator - Среда, 06.03.2019, 14:28
 
Ответить
СообщениеЗдравствуйте друзья.
Подскажите как перенести значения ячеек из одного столбца в другой, с добавкой к ним - одинакового символа с левой стороны.

Формулой это делается вот так:
Код
="*"&G4

Простое копирование диапазона - это макрос:
Код
[C4]=[G4]


А как макросом - скопировать содержимое диапазона G4:G16 - в диапазон C4:C16 с подобной добавкой символа * с левой стороны ?
Сам я что-то никак не могу до этого додуматься.

Автор - radioamator
Дата добавления - 06.03.2019 в 14:27
китин Дата: Среда, 06.03.2019, 14:52 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 5749
Репутация: 904 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
вот как то ( наспех писал, на коленке)
[vba]
Код
Sub ttttRR()
    Dim tt_&, i&
    tt_ = Cells(Rows.Count, 7).End(xlUp).Row
    
    For i = 4 To tt_
        Range("C" & i).Value = "*" & Range("G" & i).Value
    Next
End Sub
[/vba]


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениевот как то ( наспех писал, на коленке)
[vba]
Код
Sub ttttRR()
    Dim tt_&, i&
    tt_ = Cells(Rows.Count, 7).End(xlUp).Row
    
    For i = 4 To tt_
        Range("C" & i).Value = "*" & Range("G" & i).Value
    Next
End Sub
[/vba]

Автор - китин
Дата добавления - 06.03.2019 в 14:52
radioamator Дата: Среда, 06.03.2019, 15:08 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
китин, спасибо.
 
Ответить
Сообщениекитин, спасибо.

Автор - radioamator
Дата добавления - 06.03.2019 в 15:08
nilem Дата: Четверг, 07.03.2019, 11:06 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1519
Репутация: 528 ±
Замечаний: 0% ±

Excel 2013
вариант:
[vba]
Код
Sub ttt()
[C4:C16] = ["*"&G4:G16]
End Sub
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениевариант:
[vba]
Код
Sub ttt()
[C4:C16] = ["*"&G4:G16]
End Sub
[/vba]

Автор - nilem
Дата добавления - 07.03.2019 в 11:06
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавка к значениям ячеек в столбце - одинакового символа (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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