Вопрос : Макрос для того чтобы выбрать данные

В прикрепленном архиве Эксел, Sheet1 содержит данные, и Sheet2 содержит список номеров в A. Col.  Макрос необходим для того чтобы посмотреть каждый номер в Sheet2 Col a и найти спичку на A. Col Sheet1.  Если спичка а, то скопируйте данные (ые на Sheet1) касаясь того номера на к Sheet3. class= " lastRow
>Attachments " имени " class= class= " значение "
>
filename " class= >Test.zip (579 KB) яваскрипт " href= " " attachmentDetails class= (тип архива детали)
class= " описание " >Tesst
class=
>
class=

Ответ : Макрос для того чтобы выбрать данные

Hi Rishi,

Попытайтесь следующий макрос.


Препятствуйте мне знать если вы имеете любые вопросы, то

- Ardhendu
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Вариант точный

Sub Macro4 ()

Тусклое ws1     как рабочий лист, _
    ws2     как рабочий лист, _
    ws3     как рабочий лист, _
    lst1    как интежер, _
    lst2    как интежер


Установите ws1 = листы («Sheet1»)
Установите ws2 = листы («Sheet2»)
Установите ws3 = листы («Sheet3»)

lst1 = ws1.Cells (65536, «a»). Конец (xlUp). Рядок
lst2 = ws2.Cells (65536, «a»). Конец (xlUp). Рядок

ws1.Range («A1: Действие f» & lst1) .AdvancedFilter: =xlFilterCopy, CriteriaRange: =ws2.Range («A1: » & lst2), _
    CopyToRange: =ws3.Columns («a: F»), уникально: =True
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us