VBA: Объединение и перейти на новый лист

Использование VBA, как я могу решить следующее:VBA: Объединение и перейти на новый лист

Мне нужно объединить column A (row 1,2,3,...,lastrow) & и column B (row a,b,c) из sheet1 в column A и Column B на sheet2 следующим образом:

1 a 

1 b 

1 c 

2 a 

2 b 

2 c 

3 a 

3 b 

3 c 

... 

lastrow a 

lastrow b 

lastrow c

Надеюсь, это имеет смысл.

источник

2014-11-24 Sebastian Koefoed

Вы хотите создать макрос? Если да, то какой код вы пробовали? – Chrismas007

Я совершенно новичок в этом, поэтому до сих пор мне удалось скопировать столбец A с листа1 на лист2. –

. Лучший способ получить помощь здесь - это сначала попробовать что-то. Если вы застряли, сделайте некоторые исследования, сделайте попытку исправить вещи самостоятельно, и только тогда задайте конкретный вопрос о своих попытках, показывая, что вы пробовали. Вопросы, требующие полных решений без демонстрации исследовательских усилий, обычно закрываются и закрываются. –

Вот макрос, который делает то, что вы хотите. Подробнее о запуске макроса здесь: http://office.microsoft.com/en-us/excel-help/run-a-macro-HP010342865.aspx

Sub CopyExtra() 

Dim LastRow As Long 
Dim CurRow As Long 
Dim DestRow As Long 

LastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row 

For CurRow = 1 To LastRow 
    DestRow = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1 
    With Sheets("Sheet2") 
     .Range("A" & DestRow & ":A" & DestRow + 2).Value = Sheets("Sheet1").Range("A" & CurRow).Value 
     Sheets("Sheet1").Range("B1:B3").Copy 
     .Range("B" & DestRow & ":B" & DestRow + 2).PasteSpecial xlPasteValues 
    End With 
Next CurRow 
End Sub

источник

2014-11-24 15:50:31 Chrismas007

VBA: Объединение и перейти на новый лист

ответ

Смежные вопросы