2016-08-22 65 views
0

我現在在Excel中移動數據時出現問題。它在我的Excel(名稱和條形碼)中有數千個項目。我的數據是這種格式。在Excel中移動數據

enter image description here

我想改變這樣的

enter image description here

我該如何改變呢?我是新的Excel用戶。可能嗎?謝謝!

+0

用'= ISODD(ROW())'填充一列以適合。複製您現有的列並刪除頂部單元格與Shifte單元格。篩選爲TRUE/FALSE以適合並刪除可見。 – pnuts

+1

謝謝!我通過使用宏代碼得到它 –

+0

在比賽中,我懷疑'手動'可能會贏! – pnuts

回答

0

我自己找到解決方案。我使用以下宏代碼並獲得它。謝謝! 4 =起始行索引,501是最後一行索引。

Sub MoveColumn() 

For i = 4 To 501 Step 1 
    Range("B" & i).Select 
    Selection.Cut 
    Range("C" & (i - 1) & "").Select 
    ActiveSheet.Paste 
    Rows("" & i & ":" & i).Select 
    Selection.Delete Shift:=xlUp 
Next 
End Sub