powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вставить данные из массива на лист Excel
25 сообщений из 36, страница 1 из 2
Вставить данные из массива на лист Excel
    #35881221
alex96822
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте. помогите решить следующий вопрос, плиз.

Добавил данные с листа1 в массив

Dim a()
Dim r As Range

Sheets("Лист1").Select
Set r = [A1:D2000]
cc = r.Columns.Count
rc = r.Rows.Count
ReDim a(1 To rc, 1 To cc)
a = r.Value

затем произвел сданными к-л действия

Вопрос
Необходимо вставить изменённые данные обратно в Excel на лист2.
Какой самый простой и быстрый способ вставить данные из массива на лист Excel?
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35881272
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
alex96822,
есть такой способ, причем и для взять тоже..

dim arr
arr=[A1:D2000]
...
Sheets("Лист2").Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35881494
Фотография Папа Игорь
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
alex96822...Какой самый простой и быстрый способ вставить данные из массива на лист Excel?

Скажите пожалуйста, а ипользовать массив в Вашем примере - это религиозные убеждения
или техническое задание?

У объекта Range достаточно своих свойств и методов для озвученной функциональности.

Пример (упрощенный).

Берем Ваш исходный Range, вызываем на нем метод Copy с указанием целевой ячейки.
Создаем новый Range на основе скопированного диапазона.
Дальше Columns.Count и Rows.Count дают Вам границы.
Бегаем внутри Вашего нового Range с помощью свойства Cells и "фантазируем".
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35881560
alex96822
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо, _slan_ . arr это как раз то что нужно.


Папа Игорь, нет не техническое задание, просто с Range и Cells мне кажется макрос будет работать дольше, хотя возможно я ошибаюсь
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35881598
Фотография Папа Игорь
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
alex96822...просто с Range и Cells мне кажется макрос будет работать дольше, хотя возможно я ошибаюсь

Тестируйте. Но имейте ввиду, что Range - "родной" объект для объектной модели Excel,

а массив - это структура данных для VBA.
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35886399
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Папа Игорьalex96822...просто с Range и Cells мне кажется макрос будет работать дольше, хотя возможно я ошибаюсь

Тестируйте. Но имейте ввиду, что Range - "родной" объект для объектной модели Excel,

а массив - это структура данных для VBA.

вот именно, а работает-то человек именно с VBA..

бывают разные случаи, но загрузка данных в массив и обработка этого массива - практически стандартный метод экономии времени, иногда на порядок..

попробуйте сами..

но в общем, к каждому конкретному случаю надо подходить отдельно - чаще всего наиболее эффективным является комбинация возможностей иксель и vba
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35886577
Фотография Папа Игорь
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
_slan_...бывают разные случаи, но загрузка данных в массив и обработка этого массива - практически стандартный метод экономии времени, иногда на порядок..
Не надо быть столь категоричным.

_slan_...попробуйте сами..
Ну это... Регулярно пробуем.

_slan_...но в общем, к каждому конкретному случаю надо подходить отдельно ...
Мое предложение тестировать как бы этому не противоречит. Не находите?
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35886734
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Папа Игорь,
ваше утверждение, что обращение к Cells может быть быстрее обращения к массиву мягко говоря не совсем верно..

массив намного быстрее, это однозначно.

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

в общем, что спорить, предложите задачу, сделайте ее как вы считаете нужным, потом я сделаю по-своему - посмотрим?
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35886747
Фотография Папа Игорь
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
_slan_Папа Игорь,
ваше утверждение, что обращение к Cells может быть быстрее обращения к массиву мягко говоря не совсем верно..
массив намного быстрее, это однозначно.


Возможно Вам поможет следующее:

1. Обращаясь к каждой ячейке через Cells автор вгоняет исходные данные в массив.

2. Идет обработка массива.

3. Обращаясь к каждой ячейке через Cells в новом диапазоне перегоняет обработанные данные.

Пункты 1 и 2 - это сценарий автора топика. Пунк три это то, чем ему хочется все завершить.

Надеюсь, очень надеюсь, что Вы внимательно это прочтете и поймете, что массив здесь - лишний .

Извините за "много жирным".
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35886750
Фотография Папа Игорь
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
_slan_...Папа Игорь...

Как-то Вы "выборочно" меня читаете/цитируете. Приписывая мне то, что Вы увидели (просмотрели)

в моих высказываниях. Обращайте, пожалуйста, внимание на контекст .
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35886800
Фотография Папа Игорь
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Маленькое замечание.

Вы заблуждаетесь, что обозвав переменную arr, Вы получаете массив.

Ваш пример,
_slan_
dim arr
arr=[A1:D2000]
...
Sheets("Лист2").Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
противоречит документации от MS.

You can use either the A1 reference style or a named range within brackets as a shortcut for the Range property.
You do not have to type the word "Range" or use quotation marks, as shown in the following examples.
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub ClearRange()
    Worksheets("Sheet1").[A1:B5].ClearContents
End Sub

Sub SetValue()
    [MyRange].Value =  30 
End Sub

Массивы в VBA объявляются с "кругленькими" скобочками.
Код: plaintext
Dim MyArray( 10 ,  10 ) As Integer

То, что VBA может неявно преобразовывать типы данных - это хорошо, но лучше делать это самому. Так надежнее.
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35887217
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Папа Игорь,


спасибо, что просветили насчет круглых скобочек :) (это сарказм без малейшей обиды)

тут как раз вы не разобрались - да, я получаю не чистый массив, а вариант-массив , что , конечно, несколько проигрывает при обработке, но выигрывает при обмене с листом иксель - это как раз вариант комбинированного подхода. Если бы я генерировал массив в vba, то ,несомненно ,
определил бы его как положено.

далее :)

противоречит документации от MS.

You can use either the A1 reference style or a named range within brackets as a shortcut for the Range property.
You do not have to type the word "Range" or use quotation marks, as shown in the following examples
.

где же противоречие?

ведь это переводится как:

вы можете использовать как a1-стиль так и именованные диапазоны в квадратных скобках..
вы не обязаны писать слово range или использовать апострофы
..(я немножко знаю английский :) )

далее

- если противоречит документации, но работает, то тем хуже для документации, нет?

и все таки - давайте проверим наши подходы на задачке? если вы не хотите выбирать "оружие", то
я сам через некоторое время предложу вариант..
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35887229
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
да, про самое последнее - в принципе верно, я и спользую опцию explicit и определяю типы данных заранее, но бывают варианты (:) простите за каламбур), когда надо использовать именно тип вариант, который является типом по умолчанию, и его необъявление явно - это просто знание умолчаний и, конечно, лень.. :)
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35887367
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вот "распечатка" окна вычислений примера
1 - результаты варианта с массивом
2 - вариант с range.cells
код во вложении - суть примера: 20000 строк заполнены тестовыми строками, состоящими из 7 латинских "a". в одной из них вместо латинской стоит русская "а". задача - найти эту ячейку.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
 1 
  19977           время -  0 , 03125 
  19977           время -  0 , 03125 
  19977           время -  0 , 03125 
  19977           время -  0 , 03125 
  19977           время -  0 , 03125 
  19977           время -  0 , 03125 
  19977           время -  0 , 046875 
  19977           время -  0 , 046875 
  19977           время -  0 , 046875 
  19977           время -  0 , 03125 
  19977           время -  0 , 046875 
  19977           время -  0 , 03125 
  19977           время -  0 , 03125 
  19977           время -  0 , 03125 
 2 
  19977           время -  0 , 421875 
  19977           время -  0 , 40625 
  19977           время -  0 , 40625 
  19977           время -  0 , 421875 
  19977           время -  0 , 421875 
  19977           время -  0 , 421875 
  19977           время -  0 , 40625 
  19977           время -  0 , 4375 
  19977           время -  0 , 421875 
  19977           время -  0 , 453125 
  1 
  19977           время -  0 , 03125 
  19977           время -  0 , 046875 
  19977           время -  0 , 03125 
  19977           время -  0 , 03125 
  19977           время -  0 , 046875 
 2 
  19977           время -  0 , 421875 
  19977           время -  0 , 421875 
  19977           время -  0 , 40625 
  19977           время -  0 , 40625 

как и говорилось, разница на порядок

конечно, можно решить это и другим способом.., но хотелось проиллюстрировать именно перебор с помощью range.cells
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35887399
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
да и возьмем мой начальный пример:
Код: plaintext
1.
2.
3.
dim arr
arr=[A1:D2000]
...
Sheets("Лист2").Range("a1").Resize(UBound(arr), UBound(arr,  2 )) = arr

как бы вы определили arr иначе?
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35887451
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
кстати, такой "икселевский" способ, как формула, уступает вба:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub test3()
Dim rng As Range, t!
t = Timer
Set rng = Cells( 1 ,  3 )
    rng.FormulaArray = "=MATCH(1,IF(RC[-2]:R[19999]C[-2]>""aaaaaaa"",1),0)"
    rng.Copy
    rng.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
Debug.Print "  время - " & Timer - t
End Sub
результаты:
время - 0,0625
время - 0,0625
время - 0,0625
время - 0,0625
время - 0,046875
время - 0,046875
время - 0,046875
время - 0,0625
время - 0,0625
время - 0,078125
время - 0,046875
время - 0,046875
время - 0,0625
время - 0,046875
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35887590
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
кстати :)
такой способ перебора вдвое быстрее

Sub test4()
Dim arr As Range, t!, i&, x As Range
t = Timer
Set arr = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
For Each x In arr.Cells
If x > "aaaaaaa" Then
i = x.Row
Cells(1, 2) = i
Exit For
End If
Next
Debug.Print i, " время - " & Timer - t
End Sub

но все равно значительно уступает массиву
(это иллюстрация тому, что сама запись cells(a,b) - это не просто ссылка, а вычисление)
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35887604
Фотография Папа Игорь
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
_slan_Папа Игорь,
спасибо, что просветили насчет круглых скобочек :) (это сарказм без малейшей обиды)
Да пожалуйста. И без всякого сарказма.

_slan_тут как раз вы не разобрались - да, я получаю не чистый массив, а вариант-массив
Какая наивность. Вашу ошибку Вы поймете из дальнейшего.

_slan_You can use either the A1 reference style or a named range within brackets as a shortcut for the Range property.
ведь это переводится как:
вы можете использовать как a1-стиль так и именованные диапазоны в квадратных скобках..

Вы остановились в своем переводе именно на значимом месте. Хотя чему удивляться - ведь это противоречит Вашей позиции.

Это переводится так:

Для обращения к свойству Range вы можете использовать любой из двух подходов - стиль А1 или
или краткую нотацию внутри квадратных скобок. Далее по тексту.

Как видим, к массивам это не имеет никакого отношения.

А вот используя затем функцию UBound() Вы заставляете VBA неявно преобразовать Range в
массив и вернуть Вам значения границ. А это лишнее. Учите матчасть (без обид).

_slan_...(я немножко знаю английский :) )
Как видите "немножко" иногда приводит к "множким" заблуждениям.

_slan_...и все таки - давайте проверим наши подходы на задачке?
Мерятся чем-либо у меня нет никакого желания. У нас различаются не подходы, а уровни знаний предмета.
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35887789
Фотография Папа Игорь
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
_slan_...и все таки - давайте проверим наши подходы на задачке?...

Чтобы окончательно показать Вам Ваши танцы с неявными преобразованиями, я изменил
Ваш пример для большей ясности.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Public Sub Test()
    Dim arr ' здесь Ваша Variant переменная и ее лучше объявить As Range
    Set arr = [A1:A10]
    Debug.Print arr.Rows.Count
    Debug.Print arr.Columns.Count
    arr.Copy Destination:=Sheets("Лист2").Range("A1")
End Sub

Теперь, надеюсь, Вам понятно.
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35888045
Фотография Папа Игорь
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
_slan_...и все таки - давайте проверим наши подходы на задачке?...

И о тестировании.

Не для самоутверждения, а для страхования новичков от использования непродумманных советов.

Вот тест измеряющий Ваш и мой "подходы".
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Public Sub Test()
    '
    Dim MyArr As Range
    Set MyArr = [A1:A10]
    '
    Dim arr
    arr = [A1:A10]
    '
    Dim Counter As Long
    '
    Dim tm: tm = VBA.Now()
    '
    For Counter =  1  To  20000  Step  1 
        MyArr.Copy Destination:=Sheets("Лист2").Range("A1")
    Next Counter
    Debug.Print (VBA.Now() - tm)
    '
    tm = VBA.Now()
    '
    For Counter =  1  To  20000  Step  1 
        Sheets("Лист2").Range("A1").Resize(UBound(arr), UBound(arr,  2 )) = arr
    Next Counter
    Debug.Print (VBA.Now() - tm)
End Sub

Результат в окне отладки.
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35888370
ZVI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Папа Игорь
_slan_тут как раз вы не разобрались - да, я получаю не чистый массив, а вариант-массив
Какая наивность. Вашу ошибку Вы поймете из дальнейшего.

Почти по Шекспиру ;)
Код: plaintext
1.
2.
3.
4.
5.
Sub ArrayOrNotArray()
  Dim arr
  arr = [A1:D2000]
  Debug.Print IsArray(arr)
End Sub
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35888480
Фотография Папа Игорь
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ZVI...Почти по Шекспиру ;)
Код: plaintext
1.
2.
3.
4.
5.
Sub ArrayOrNotArray()
  Dim arr
  arr = [A1:D2000]
  Debug.Print IsArray(arr)
End Sub


Да нет там Шекспира, чистый " лояльный VBA".

Вначале, по обращению [A1:D2000], VBA неявно создает Range потом перегоняет его в Variant массив arr.
В итоге, да, человек имеет массив, который потом, опять неявно , VBA перегоняет в Range
при вызове Sheets("Лист2").Range("A1").Resize(UBound(arr), UBound(arr, 2)) = arr

Здесь "лишние" телодвижения с массивом. На что и указывалось.

P.S. Заниматься неявным преобразованием = возможность наступить на грабли.
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35888669
Фотография Папа Игорь
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ZVI...Почти по Шекспиру ;)
Код: plaintext
1.
2.
3.
4.
5.
Sub ArrayOrNotArray()
  Dim arr
  arr = [A1:D2000]
  Debug.Print IsArray(arr)
End Sub


И чтобы окончательно разобраться с литературой.
Код: plaintext
1.
2.
3.
4.
5.
Public Sub ArrayOrNotArray2()
    Dim MyArr As Range
    Set MyArr = [A1:A10]
    Debug.Print IsArray(MyArr)
End Sub
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35889123
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Папа Игорь_slan_...и все таки - давайте проверим наши подходы на задачке?...

Чтобы окончательно показать Вам Ваши танцы с неявными преобразованиями, я изменил
Ваш пример для большей ясности.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Public Sub Test()
    Dim arr ' здесь Ваша Variant переменная и ее лучше объявить As Range
    Set arr = [A1:A10]
    Debug.Print arr.Rows.Count
    Debug.Print arr.Columns.Count
    arr.Copy Destination:=Sheets("Лист2").Range("A1")
End Sub

Теперь, надеюсь, Вам понятно.

нифига себе изменил! а нафига?

вы между двумя этими строчками разницу понимаете?

arr=[a1:a10]

и

set arr=[a1:a10]

?


на грабли наступает тот, кто не знает, что такое грабли..

я сознательно пользуюсь неявными преобразованиями- и мой код быстрее.
решите ту же задачу, что я предложил. Сравнивать-то можно только на одинаковых задачах.
...
Рейтинг: 0 / 0
Вставить данные из массива на лист Excel
    #35889207
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Папа Игорь_slan_...и все таки - давайте проверим наши подходы на задачке?...

И о тестировании.

Не для самоутверждения, а для страхования новичков от использования непродумманных советов.

Вот тест измеряющий Ваш и мой "подходы".
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Public Sub Test()
    '
    Dim MyArr As Range
    Set MyArr = [A1:A10]
    '
    Dim arr
    arr = [A1:A10]
    '
    Dim Counter As Long
    '
    Dim tm: tm = VBA.Now()
    '
    For Counter =  1  To  20000  Step  1 
        MyArr.Copy Destination:=Sheets("Лист2").Range("A1")
    Next Counter
    Debug.Print (VBA.Now() - tm)
    '
    tm = VBA.Now()
    '
    For Counter =  1  To  20000  Step  1 
        Sheets("Лист2").Range("A1").Resize(UBound(arr), UBound(arr,  2 )) = arr
    Next Counter
    Debug.Print (VBA.Now() - tm)
End Sub

Результат в окне отладки.

куда же Вы дели те самые ... из первоначального топика. Ведь в них-то и суть. Без этого не стоило и затевать ничего.
а значения с одного места на другое я могу перенести в два раза быстрее:

Sheets("Лист2").Range("A1").Resize(myarr.rows.count,myarr.columns.count).value=myarr.value

а зачем вам нужно было копировать и форматы Вы нам объясните..
...
Рейтинг: 0 / 0
25 сообщений из 36, страница 1 из 2
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вставить данные из массива на лист Excel
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]