как найти и скопировать определенный столбец с помощью vba

Не могли бы вы помочь мне, мне нужно Excel, чтобы найти столбец «товары» из листов1 и скопировать его в лист3 и сделать то же самое с листом2. Мне нужно, чтобы данные копировались в один лист3 в один столбец A (один за другим). но ниже кода при копировании только свопинга данных. и у меня есть только данные из листа2 в моем листе3

Sheets("sheet1").Select desc = WorksheetFunction.Match("goods", Rows("1:1"), 0) cst = WorksheetFunction.Match("goods", Rows("1:1"), 0) Sheets("sheet1").Columns(desc).CopyDestination:=Sheets("sheet3").Range("A:A) Sheets("sheet2").Columns(cst).CopyDestination:=Sheets("sheet3").Range("A:A") 

спасибо за ваши ответы

Я предпочитаю использовать Range().Find над WorksheetFunction.Match . В основном потому, что вам не нужно вводить значение вашего поиска с помощью Range().Find (например, WorksheetFunction.Match("1234", Rows("1:1"), 0) не работает.

Здесь я использую его как удобный способ найти начало диапазонов.

введите описание изображения здесь

 Sub CopyGoods() Dim goods As Range Set goods = Sheets("sheet1").Rows(1).Find("goods") If goods Is Nothing Then MsgBox "Goods does not exists on Sheet1", vbInformation, "Goods not found" Else goods.EntireColumn.Copy Sheets("sheet3").Range("A1") End If Set goods = Sheets("sheet2").Rows(1).Find("goods") If goods Is Nothing Then MsgBox "Goods does not exists on Sheet2", vbInformation, "Goods not found" Else Set goods = Range(goods.Offset(1), goods.Offset(Rows.Count - 1).End(xlUp)) goods.Copy Destination:=Sheets("sheet3").Range("A" & Rows.Count).End(xlUp).Offset(1) End If End Sub 
Interesting Posts

R: Почему эти два разных результата (подходящая кривая) из двух разных программ для одних и тех же точек?

как удалить сводную таблицу в excel с помощью apache poi?

Excel – найдите соответствующие значения, затем сравните дополнительные соответствующие значения

Как считать точный текст в строке

Изменение цвета ячейки в Excel в соответствии с смежным значением выпадающего списка

Использование переменной в качестве столбца для автофильтра (vba)

Макросы VBA для открытия хранилища нескольких файлов в одной ячейке

VBA Более эффективный / более чистый способ выбора листа и назначения переменных ячейкам

Заполните пустые ячейки между двумя заполненными ячейками

VBA объединяет несмежные ячейки, содержащие один и тот же текст в Excel

Набор коллекции Vba и получение значения из коллекции в рамках пользовательской функции

Кажется, вы не можете извлечь таблицу на yahoo biz с SMF

Заказ списка атрибутов размера

Выберите / выделите диапазон столбцов (AL) для каждого значения конкретной ячейки («Apple») в каждой строке

Скопировать и вставить строку данных в Excel 2003 на другой лист по электронной почте

Давайте будем гением компьютера.