Добрый вечер.  
 
Подскажите, какой-нибудь способ объединения(слияния) массивов.  
Есть ли способ отличный от перебора элементов массива в цикле?  
 
 
 
п.с. Пробовал API функцию CopyMemory, но она частенько вызывает виндовые ошибки, которая закрывает эксель файл с ошибкой (притом что операция копирования прошла успешно).

Добрый день.  
 
У меня есть макрос который пробегает по файлам папки. Каждый файл он открывает и собирает там нужную информацию. Но не суть.  
Суть в том что если при выполнении макроса нажать клавишу shift, то макрос открывает следующий по циклу файл и прерывается, как будто он закончился.  
Гуглил по этой теме и нашел что shift вроде как прерывает макросы или что то вроде того.  
Может кто сталкивался с таким. Если да, то можно ли это обойти?

Если записывать макрорекордером код по закреплению областей то выходит такое:  
 
Range("B2").Select  
ActiveWindow.FreezePanes = True  
 
Как с помощью vba закрепить область в неактивной книге? или обязательно активировать книгу и использовать select?

Доброй ночи,  
 
При сохранении книги в TXT формат, строка в ТХТ файле сохраняется в кавычках.  
Мне соответственно нужно без кавычек, кто нибудь знает как это решается?  
 
Заранее спасибо!  
 
Сделал пример.  
 
P.S. я так понимаю это как то связано с системными разделителями, то есть если запятая в строке то обязательно будет в кавычках?

Как выбирать с помощью ВБА значения из списка в фильтре не по имени а по порядковому номеру?  
т.е. примерно так  
AutoFilter field:=1, Criteria1:=3  
а не    
AutoFilter field:=1, Criteria1:="название"

В общем как в VBA преобразовать такой текст в число:           8,629,095  
Проблема в двух запятых...  
Функция Val() берет только цифру до первой запятой, а мне нужны все.  
В принципе можно удалить любую одну запятую(тогда excel воспримет это как число), так как в моем случае это не принципиально, но все же может кто знает как легче?

Есть макрос:  
 
Private Sub ToggleButton1_Click()  
Dim i As Integer, j As Integer, x As Range  
Application.ScreenUpdating = False: j = ActiveSheet.Index - 1  
For i = 1 To Sheets.Count  
j = j + 1: If j > Sheets.Count Then j = j - Sheets.Count  
Set x = Sheets(j).Cells.Find(TextBox1.Text, , xlValues, xlWhole)  
If Not x Is Nothing Then Sheets(j).Select: x.Select: Range(x.End(xlToLeft), x.End(xlToRight)).Interior.ColorIndex = 4: Exit For  
Next  
    End Sub  
 
Макрос находит искомое значение и когда значение найдено, он расширяет диапазон ячеек по строке влево и вправо "Range(x.End(xlToLeft), x.End(xlToRight))". Только проблема в том, что он расширяет не до конца а только если все ячейки слева и справа заполнены какими либо значениями. Из приложенного рисунка видно, что строки где есть пустые ячейки выделены не до конца (кроме третей строки где все значения заполнены). Мне нужно чтобы он выделял всю используемую область в строке. Как это сделать?  
 
EntireRow не предлагать:)  
 
Спасибо

Добрый вечер.  
 
Помогите решить следующий нюанс. есть код для поиска значения в ячейке:  
 
Sub main()  
   Dim i As Integer, j As Integer, x As Range  
   Application.ScreenUpdating = False: j = ActiveSheet.Index - 1  
   For i = 1 To Sheets.Count  
       j = j + 1: If j > Sheets.Count Then j = j - Sheets.Count  
           Set x = Sheets(j).Cells.Find("Искомое значение")  
                x.Select  
                  If Not x Is Nothing Then Exit For  
             Next  
     End Sub  
 
Мне нужно чтоб макрос находил искомое значение и выделял ячейку в которой это значение он нашел. Этот макрос ищет ячейку, всё ок. Даже выделяет ее (x.select), но выделяет он ее если только активирован лист где она находится. Если же активирован другой лист то при поиске выскакивает ошибка 91. Как мне решить задачу?