Перенос данных из ячеек в другие ячейки вы цикле

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Евгений

Дата: Четверг, 22.11.2012, 16:25 | Сообщение № 1

Группа: Гости

Есть данные в столбике А, нужно вытащить ячейки А1,А12,А24,А36 и так далее и складывать эту вещ в J1, J2, J3 .. и так далее . Помогите пожалуйста ...как это реализовать ? Спасибо

думал как-то так :

[vba]

Code

Sub macro4()
'
For i = 1 To 265 Step 11
      For j = 1 To 25 Step 1
      Range("Ai").Select
      Selection.Copy
      Range("Ij").Select
      ActiveSheet.Paste
      Next j
     Next i
End Sub

[/vba]

но не могу понять как выбирать именно нужную ячейку ...как правильно по синтаксису поставить параметр цикла i, j . Буду благодарен.

Ответить

amur84

Дата: Четверг, 22.11.2012, 16:35 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 77

Репутация: 8 ±

Замечаний: 0% ±

Cells(x, y) - обозначение ячейки, где x - номер строки, а y - номер столбца.

Новый день. А что успел сделать ты?

Ответить

Евгений

Дата: Четверг, 22.11.2012, 16:54 | Сообщение № 3

Группа: Гости

а как можно обрезать данные в ячейке ... допустим 1220руб. нужно оставить только цифры (1220) тоже в цикле?

Ответить

amur84

Дата: Четверг, 22.11.2012, 17:12 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 77

Репутация: 8 ±

Замечаний: 0% ±

Quote (Евгений)

ячейки А1,А12,А24,А36 и так далее и складывать эту вещ в J1, J2, J3 .. и так далее .

Для таких ячеек будет так (цикл до 25 строки столбца J)
[vba]

Code

Sub macro4()
'
For i = 1 To 25
     j = (i - 1) * 12
     If j = 0 Then j = 1 Else j = j
     Cells(i, 10) = Cells(j, 1)
     Next i
End Sub

[/vba]

У вас от A1 до A12 - 11 строк, а дальше идет по 12. Поэтому данный макрос с функцией If.

Если же нужен все таки шаг 11, то
[vba]

Code

Sub macro6()
'
For i = 1 To 25
     j = i * 11 - 10
     Cells(i, 10) = Cells(j, 1)
     Next i
End Sub

[/vba]

При этом: "ячейки А1,А12,А23,А34 и так далее и складывать эту вещ в J1, J2, J3 .. и так далее ."

Новый день. А что успел сделать ты?

Ответить

amur84

Дата: Четверг, 22.11.2012, 17:16 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 77

Репутация: 8 ±

Замечаний: 0% ±

Quote (Евгений)

а как можно обрезать данные в ячейке ... допустим 1220руб. нужно оставить только цифры (1220) тоже в цикле?

http://www.excelworld.ru/index/extract_unique_digit/0-40

Новый день. А что успел сделать ты?

Ответить

Serge_007

Дата: Четверг, 22.11.2012, 17:22 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (Евгений)

допустим 1220руб. нужно оставить только цифры (1220)

Если текст заведомо известен и всегда один и тот же, то можно так:
Ctrl+H
Найти: руб.
Заменить: оставляем пусто
Заменить всё

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Hugo

Дата: Четверг, 22.11.2012, 17:42 | Сообщение № 7

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3691

Репутация: 790 ±

Замечаний: 0% ±

365

"данные в ячейке ... допустим 1220руб." - возможно, что в ячейке 1220, а "руб." выводится форматом. Вернее так и должно быть, если всё сделано "по уму".

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

amur84

Дата: Четверг, 22.11.2012, 17:53 | Сообщение № 8

Группа: Пользователи

Ранг: Участник

Сообщений: 77

Репутация: 8 ±

Замечаний: 0% ±

Quote (Hugo)

если всё сделано "по уму".

А чтобы это узнать - выделить ячейку с "1220руб." и посмотреть в строку формул. Если там "1220" - то "все по уму".

Новый день. А что успел сделать ты?

Ответить

Евгений

Дата: Пятница, 23.11.2012, 14:56 | Сообщение № 9

Группа: Гости

Благодарю всех кто откликнулся!

1) Вопрос непонятного характера. Реально ли реализовать мгновенную запись из буфера в ячейку экселя .... Нужно решить такую проблему .... Допустим я открываю браузер ... и выделяю кусок статьи и что б это попадало сразу в эксель в 1 ячейку. Это реально? или нужно писать граббер\парсер?

2) Как перебрать текст в ячейке ... вот диапазон ячеек A1:A1000 берем ячеку A1 и перебираем символы если встречаем например "табл" выводим в С1 "таблетки" ...и так далее как такую движуху ораганизовать ...нужен цикл что б перебирало буквы и отдельно ячейки или как?

Ответить

Перенос данных из ячеек в другие ячейки вы цикле

Страница 1 из 1
1