VBAで各行を異なる範囲で移動する

Question

3列30行のテーブルがあります。私は右に1セルを第1行シフトし、右に2行目を2行目のようにVBAマクロを書き込もうとしています。

たとえば、この

AAA 
BBB 
CCC 

は次のようになります。前に

Sub Macro() 
Set Table = Application.InputBox("Select table", Title:="Table", Type:=8) 
Table.Cut Table.Offset(0, 1) 
End Sub 

Answer 1

これは、あなたが欲しいものをやっている必要があります。

Sub Macro() 

Set Table = Application.InputBox("Select table", Title:="Table", Type:=8) 
Set Dest = Application.InputBox("Select destination", Title:="Destination", Type:=8) 

For i = 1 To Table.Rows.Count 
    For j = 1 To Table.Columns.Count 
     Table.Cells(i, j).Copy Dest.Cells(i + j - 1, i + 1) 
    Next j 
Next i 
End Sub 

Answer 2

：私がこれまで試した

AAA 
    BBB 
    CCC 

何、全体のみ選択した範囲を移動できます。

コード：

Sub asdfg() 
    Dim N As Long, i As Long 

    N = Cells(Rows.Count, "A").End(xlUp).Row 
    For i = 1 To N 
     Cells(i, 1).Cut (Cells(i, i + 1)) 
    Next i 
End Sub 

と後：

EDIT＃1：

：

行全体使用をシフトします

と後：

Sub zxcvb() 
    Dim N As Long, i As Long 

    N = Cells(Rows.Count, "A").End(xlUp).Row 
    For i = 1 To N 
     Range(Cells(i, 1), Cells(i, i)).Insert Shift:=xlToRight 
    Next i 
End Sub 

前