我现在是想把3,4列(5,6列,7,8列。。。。,直到最后)的内容分别截取到1,2列内容的后面。谁再帮帮我?

热心网友

我想这个例子可能不用劳烦VBA,但一时想不出来,我写个很简单的VBA,凑合先解决问题吗,请先备份之后试验再用。1、记得一定备份原工作簿,VBA的操作是不可逆的。2、右键单击最下面的标签名(就是“Sheet1”、“Sheet2”啦),单击“查看代码”3、将下列代码复制粘贴进去。4、点“运行”-“运行子过程”6、最後记得将代码删除,留下来没用的。代码增加了一个对话框,像上面的例子,对话框出来之后,点击A5单元格,表示数据复制到这里。代码如下:Sub Macro1()Dim SrcCell, TargetCell As RangeDim TotalRowNum As IntegerSet TargetCell = Application。InputBox(prompt:="3,4列、5,6列。。。。从这里空白处开始)", Type:=8)TotalRowNum = TargetCell。RowFor i = 1 To 125 For j = 1 To TotalRowNum - 1 TargetCell。Value = ActiveSheet。Cells(j, i * 2 + 1)。Value TargetCell。Offset(0, 1)。Value = ActiveSheet。Cells(j, i * 2 + 2)。Value Set TargetCell = TargetCell。Offset(1, 0) Next jNext iEnd Sub。

热心网友

什么意思,不明白,说清楚点呀