将每个X列中的数据移动到Excel中的单列中

解决问题使用修改来回答

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 

从Excel电子表格的C列开始，我有13列宽的数据页面。 我需要将第二列和第三列中的数据传输到SQL数据库，所以我试图将这两列移动到彼此的每个页面上进行传输。

下面的截图是我正在使用的数据。 我需要捕获ODC CSS服务器RowX CabX下的服务器名称以及相应的资产标签。 如果我可以每隔13行取这两列，然后堆叠起来，我可以自己删除额外的信息。

电子表格http://img830.imageshack.us/img830/6126/unledoks.png

我确定我不需要提及这个节省的疯狂的时间，但是我真的可以使用一些帮助入门，或者使用一个示例macros来实现这一点。 不幸的是，我没有太多的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