我現在是想把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。

熱心網友

什么意思，不明白，說清楚點呀