takayukisの日記 このページをアンテナに追加 RSSフィード

2018.10.04(木)

[]選択範囲の1行ごとに行を挿入

Sub 選択範囲の1行ごとに行を挿入()
    Dim update As Boolean
    update = Application.ScreenUpdating
    Application.ScreenUpdating = False

    Dim text As String
    text = InputBox(prompt:="行数", Default:=1)
    Dim num As Long
    num = Val(text)
    If num <= 0 Then
        Exit Sub
    End If
    Dim 選択範囲 As Range
    Set 選択範囲 = Selection
    Dim r As Long
    r = 選択範囲.row
    For i = r + 選択範囲.Rows.Count To r + 1 Step -1
        Debug.Print i
        Rows(i & ":" & (i + num - 1)).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next

    Application.ScreenUpdating = update
End Sub

はてなユーザーのみコメントできます。はてなへログインもしくは新規登録をおこなってください。

トラックバック - http://d.hatena.ne.jp/takayukis/20181004/1538609176