Переместить данные из каждого столбца X в один столбец в Excel

Question

Проблема решена с использованием модификаций для ответа

Dim i As Long, values As Range, current As Range
Set current = Range("D4") '//select 1st anchor cell
Do Until current.Value = ""
    i = i + 45
    Set values = Range(current.Offset(2, 0), current.Offset(45, 0)) '//select all in the ooc column
    values.Copy '//got block of data here
    Sheets("Sheet1").Range("A" & i).PasteSpecial
    Set current = current.Offset(0, 13) '//next page
Loop

Начиная со столбца C электронной таблицы Excel, у меня есть страницы данных шириной 13 столбцов.Мне нужно перенести данные из 2-го и 3-го столбцов в базу данных SQL, поэтому я пытаюсь переместить эти 2 столбца на каждой странице поверх друг друга для передачи.

На приведенном ниже снимке экрана показаны данные imработать с.Мне нужно захватить имена серверов под ODC CSS Servers RowX CabX вместе с соответствующим тегом ресурса.Если я могу просто взять эти 2 столбца через каждые 13 строк и сложить их, я могу удалить дополнительную информацию самостоятельно.

Электронная таблица http://img830.imageshack.us/img830/6126/unledoks.png

Я уверен, что мне не нужноупомяните безумное количество времени, которое это может сэкономить, но я мог бы действительно использовать некоторую помощь, чтобы начать, или используя пример макроса для достижения этой цели.К сожалению, у меня мало опыта в VBA, но я буду работать с той помощью, которую смогу получить.

Answer 1

Как насчет;

dim i As Long, values as range, current As range
set current = Range("D4") '//select 1st anchor cell
do until current.Value = ""
    i = i + 1
    set values = range(current.offset(1, 0), current.End(xlToRight)) '//select all in the ooc column 
    values.copy '//got block of data here
    sheets("someothersheet").range("A" & i * 2 - 1).pastespecial
    set current = current.offset(0, 13) '//next page
loop