Я хотів би скопіювати дані з 1 рядка в іншу в Excel

2

Я намагаюся вирішити наступне питання у excel: я працюю в двох аркушах, Sheet 1 і Sheet 2. Існує стовпець даних в аркуші 1 (скажімо, від A5 до A20). Мені потрібно, щоб кожен рядок з цієї колонки вставлявся / посилався на кожен n-й рядок у стовпці A, Sheet2. Будь ласка, що найкращий спосіб зробити це?

Приклад того, що я намагаюся досягти:

A(n) from sheet 1 -> A(x) sheet 2<br>
A(n+1) from sheet 1 -> A(x+7)5 sheet 2 <br>
A(n+2) from sheet 1 -> A(x+14) sheet 2<br>
A(n+b) from shee 1 -> A (x+b*7) sheet 2<br>
etc...

microsoft-excel worksheet-function vba

— Alex
джерело

1

Спробуйте цей макрос замінити OtherSheet на справжнє ім'я:

Sub MyMacro()  

' Part 1 - first move the range to another sheet
Range("A5:A20").Select      
Selection.Copy      
Sheets("**AnotherSheet**").Select      
ActiveSheet.Paste      

' Part 2 - move the cell to right place
Dim r As Range

For Each r In Selection
  r.Cut
  r.Offset(r.Row * 7).Select
  Selection.Insert
Next r

End Sub

— duDE
джерело

Не впевнений, що ви читаєте опис чи ні, але те, що ви пропонуєте, це проста копія-паста. Я хочу, щоб значення з рядків з аркуша А вставлялися до різних розташувань рядків у аркуші Б.

— Alex

0

Без VBA щось на зразок цього працює -

 =IF(MOD(ROW(A1),3)<>1,"",INDEX(Sheet1!A:A,MOD(ROW(A1),3)+INT(ROW(A1)/3)))

Замінити 3 з nth рядок, який потрібно, і перетягніть його вниз; на Sheet2, або будь-які інші назви листів.

— Raystafarian
джерело