데이터 이동은

Question

문제 엑셀 스프레드 시트의 열 C부터

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 

답변을 수정하여 해결, 나는 13 열 폭 넓은 데이터의 페이지가 있습니다. 둘째 열과 세 번째 열의 데이터를 SQL 데이터베이스로 전송해야하므로 각 열에있는 두 열을 서로 전송하여 전송하려고합니다.

아래 스크린 샷은 함께 작동하는 데이터입니다. ODC CSS Servers RowX CabX에서 해당 자산 태그와 함께 서버 이름을 캡처해야합니다. 만약 내가 그 열을 13 열씩 가져 와서 쌓을 수 있다면, 나는 추가 정보를 혼자서 지울 수 있습니다.

Spreadsheet 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