Как скопировать определенные ячейки, и вставить их в определенном порядке в таблицу?

@pelmen322 · Регистрация: 12.07.2016

Я планирую создать макрос, чтобы он копировал определенные значения из столбика с интервалом 194, и вставлял их в другой столбик по порядку, по какому я их и копировал. Но, я столкнулся с проблемами :
1) переменная J работает только с integer, а у меня 60к значений в столбике
2) сам макрос странно работает : он пропускает некоторые значения. То есть, когда я проверяю значения, которые он должен скопировать, со значениями, которые он вставляет они не совпадают

Visual Basic

Sub Ìàêðîñ1()
'
' Ìàêðîñ1 Ìàêðîñ
'
 
'
Dim k As Byte
Dim J As Integer
J = 13
k = 2
Do
Sheets("Ëèñò3").Select
Cells(J, 2).Select
Selection.Copy
Sheets("Òàáëèöà").Select
Cells(k, 4).Select
ActiveSheet.Paste
J = J + (k - 2) * 194
k = k + 1
Loop
 
End Sub

@Hugo121 · 12.07.2016, 08:59

Сообщение от pelmen322

проблемами :
1) переменная J работает только с integer

Сообщение от pelmen322

Dim J As Integer

вот нерешаемая проблема...

Подскажу - подойдёт тип Long
По второму вопросу нужно видеть файл и данные.
А вообще код нужно бы переписать чтоб избавиться от выделений и активаций, и вообще можно сделать на массиве чтоб отрабатывал за секунду.

@pelmen322 · 12.07.2016, 09:07 **[ТС]**

1) В этом и проблема : Работает только с integer. Я пытался с Long пишет ошибку 1104 application-defined or object definder error.
2) весь файл не могу скинуть, но по-сути он выглядит вот так :

01.04.2016 16.754
здесь идет 194 строки, которые пропускаются
01.04.2016 14.610
здесь идет 194 строки
01.04.2016 14.147
итд

shanemac51 · 12.07.2016, 09:50

видимо надо переопределить Dim k As Byte
так как это только 255, а у вас 60к

Visual Basic

1	dim k as long

@pelmen322 · 12.07.2016, 11:39 **[ТС]**

Тоже не помогает

Пытался и integer и long

@Hugo121 · 12.07.2016, 11:49

Видать пора файл с кодом показывать...

@Michael99 · 12.07.2016, 11:52

остается as variant

по теме - я не вижу в цикле ни while, ни until, как без них?

@Hugo121 6875 / 2807 / 533 Регистрация: 19.10.2012 Сообщений: 8,561
	12.07.2016, 08:59	2
	Сообщение от pelmen322 проблемами : 1) переменная J работает только с integer Сообщение от pelmen322 Dim J As Integer вот нерешаемая проблема... Подскажу - подойдёт тип Long По второму вопросу нужно видеть файл и данные. А вообще код нужно бы переписать чтоб избавиться от выделений и активаций, и вообще можно сделать на массиве чтоб отрабатывал за секунду. 1

@pelmen322 0 / 0 / 0 Регистрация: 12.07.2016 Сообщений: 3
	12.07.2016, 09:07 [ТС]	3
	1) В этом и проблема : Работает только с integer. Я пытался с Long пишет ошибку 1104 application-defined or object definder error. 2) весь файл не могу скинуть, но по-сути он выглядит вот так : 01.04.2016 16.754 здесь идет 194 строки, которые пропускаются 01.04.2016 14.610 здесь идет 194 строки 01.04.2016 14.147 итд 0

@pelmen322 0 / 0 / 0 Регистрация: 12.07.2016 Сообщений: 3
	12.07.2016, 11:39 [ТС]	5
	Тоже не помогает Пытался и integer и long 0

@Hugo121 6875 / 2807 / 533 Регистрация: 19.10.2012 Сообщений: 8,561
	12.07.2016, 11:49	6
	Видать пора файл с кодом показывать... 0

@Michael99 190 / 59 / 20 Регистрация: 16.07.2013 Сообщений: 234
	12.07.2016, 11:52	7
	остается as variant по теме - я не вижу в цикле ни while, ни until, как без них? 0

Опции темы