EXCEL, VBA, help!!!

[MindHunter]

Короче трабл в следующем.
Пытаюсь кое что написать в Бейсике в Екселе.
Надо копировать строки из второго листа в первый.
Это просто. Например так:

Sheets("Sheet2").Rows("1:1").Select
Selection.Copy
Sheets("Sheet1").Select
Rows("1:1").Select
ActiveSheet.Paste

Коряво, я знаю. Это не главное.
Но мне надо не давать конкретные номера строк, а зациклить весь проесс с помощью переменных.
Но замена

Rows("1:1").Select

на

Rows("a:a").Select

где а некоторая целая переменная, обьявленная заранее с присвоенным значением, то все накрывается тазом. Пишет чтото про несоответствие типов.

Как прально написать это дело?
В хелпе такую чушь наверно не пишут - по крайней мере я не нашел...

Спасибо.

[corgi]

тогда пиши просто
Rows(1).Select

[GSerg]

Код: Выделить всё

dim i as long

for i=1 to 10
  worksheets("Sheet2").rows(i).copy worksheets("Sheet1").rows(i)
next

[MindHunter]

Мужики спасибо за поддержку. Но опять ничего не выходит.
Опишу всю задачу.

Короче есть два листа. В первом колонка с названиями.
Во втором такая же колонка - только гораздо белее длинная + дополнительные столбцы с инфой.
Задача: дополнить недостающими столбцами первый спсок.

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

Sub Macro1()

Dim str1, str2 As Integer

str1 = 1
str2 = 1
Do While str1 <= 1000
Do While str2 <= 1000

If Worksheets("Sheet1").Cells(str1, 1).NoteText = Worksheets("Sheet2").Cells(str2, 1).NoteText Then

Sheets("Sheet2").Rows("str2:str2").Select
Selection.Copy
Sheets("Sheet1").Select
Rows("str1:str1").Select
ActiveSheet.Paste

str1 = str1 + 1
str2 = 1
Else
str2 = str2 + 1
End If


Loop
Loop

End Sub


НЕ ПАШЕТ.

Пробовал так.

Sub Macro1()
Dim str1, str2 As Integer

str1 = 1
str2 = 1
Do While str1 <= 1000
Do While str2 <= 1000
If Worksheets("Sheet1").Cells(str1, 1).NoteText = Worksheets("Sheet2").Cells(str2, 1).NoteText Then
Worksheets("Sheet2").Rows(str2).Copy
Worksheets("Sheet1").Rows(str1).Paste


str1 = str1 + 1
str2 = 1
Else
str2 = str2 + 1
End If

Loop
Loop

End Sub


ТОЖЕ НЕ ПАШЕТ.


Я понимаю что все коряво и уродски, но....
Почему не пашет не понимаю.
Мужики, что делать? Спасибо вам!

[GSerg]

Код: Выделить всё

Sub Macro1()
  Dim i As Long, f As Range, s As String
 
  For i = 1 To Worksheets("Sheet1").UsedRange.Rows.Count
    s = Worksheets("Sheet1").Cells(i, 1).Value
    If Len(s) = 0 Then Exit For
    Set f = Worksheets("Sheet2").Columns(1).Find(s, , xlValues, xlWhole)
    If Not f Is Nothing Then f.EntireRow.Copy Worksheets("Sheet1").Cells(i, 1)
  Next
End Sub

[MindHunter]

Спасибо большое!!! Работает. Безупречно.
Если нетрудно, напиши пожалста комментарии. Инетерсно как работает. я половину примерно догнал , а концовку как то не очень....

С меня 100 грамм и пончик.

[Чудик]

А смысл привязки к таким командам как Copy или Paste? Нельзя просто приравнять:

Sheets(2).Rows(1).Value = Sheets(1).Rows(1).Value

тогда значение первого ряда первого листа будет передано в первый ряд второго листа. Соответствено, вместо единицы можно поставить перменную (например, i) - и тоже будет работать. Нет?

[GSerg]

Приравнять можно. Форматирование слетит.

Комментирую.

Код: Выделить всё

Sub Macro1()
  Dim i As Long, f As Range, s As String
 
  'Цикл по всем строкам листа от 1 до последней использованной
  For i = 1 To Worksheets("Sheet1").UsedRange.Rows.Count
    'Сохраняем, чтобы потом лишний раз не дёргать объект worksheet
    s = Worksheets("Sheet1").Cells(i, 1).Value
    'А вдруг у тебя там столбец 1 заканчивается раньше остальных?
    If Len(s) = 0 Then Exit For
    'То, что запомнили, поищем в столбце второго листа.
    Set f = Worksheets("Sheet2").Columns(1).Find(s, , xlValues, xlWhole)
    'Если нашли, копируем строку. Если не нашли, переходим к следующей.
    If Not f Is Nothing Then f.EntireRow.Copy Worksheets("Sheet1").Cells(i, 1)
  Next
End Sub

[Sergo]

Для этой задачи можно использовать функцию ВПР вместо макроса

[MindHunter]

GSerg - спасибо все понял худо бедно!!!

Sergo - поясни плиз! что это ВПР? кк это работает? ни хрена не знаю, но быстро учусь!

[Sergo]

Функция ВПР
Ищет значение в крайнем левом столбце таблицы и возвращает значение в той же строке из указанного столбца таблицы

В твоём случае в столбец на листе1 в который нужно вставить инфу из столбца N листа2 вставляшь формулу

=ВПР(RC1;Лист2!C1:C100;N;ЛОЖЬ)

(допущение: искомые значения находятся в 1 столбце листа1)
N поменяй на реальный номер

читай хелп по этой функции

[Вяч Вяч]

Может подскажете как зделать немного по другому.

Если нашли, копируем строку. Если не нашли, добавить в список, переходим к следующей.

[vrodo]

Привет всем
У меня была подобная ситуация
Решил следующим образом

Код: Выделить всё

Dim rng As Range
Dim ws As Worksheet
Set ws = Application.ThisWorkbook.Worksheets("лист1")

Set rng = ws.Range("A1").End(xlDown).Range("A1").Next(2, 0)


теперь переменную rng ты можешь использовать как метку т.е.
Копируешь то что тебе надо и делаешь

Код: Выделить всё

rng.Insert

Вроде все