行・列のコピー、切り取り、挿入、削除 

行・列のコピー、切り取り、挿入、削除

これらです。

Sub exe()
    Call copy(ActiveSheet)
    Call cutPaste(ActiveSheet)
    Call delete(ActiveSheet)
End Sub
'#行・列コピー
Function copy(ws As Worksheet)
    ws.Columns(1).copy
    ws.Columns(10).Insert
    ws.Rows(1).copy
    ws.Rows(10).Insert
End Function
'#行・列切り取り&挿入
Function cutPaste(ws As Worksheet)
    ws.Columns(1).cut
    ws.Columns(10).Insert
    ws.Rows(1).cut
    ws.Rows(10).Insert
End Function
'#行・列削除
Function delete(ws As Worksheet)
    ws.Columns(1).delete
    ws.Rows(1).delete
End Function

列ヘッダを繰り返し挿入したいシーンなんかを想定。適宜調整して。

'#複数列、繰り返し挿入
Sub multiColumnsInsert()
    Dim copyTimes As Integer
    copyTimes = InputBox("数値を入力して")
    
    '挿入開始位置
    Dim col As Integer: col = 3
    If IsNumeric(copyTimes) Then
        '2列挿入するから通常のStep数+2としている。
        For i = col + 1 To copyTimes Step 3
            Range(Columns(1), Columns(2)).copy
            Columns(i).Insert
        Next
    End If
End Sub
'#複数行、挿入
Sub multiRowsInsert()
    Range(Rows(1), Rows(2)).copy
    Rows(4).Insert
End Sub


コメント