4つの方向のVBAでアクティブセルの範囲を拡張し

Question

I'veはこれを使用してコンテンツと範囲を選択するには、管理秀でますオフセット機能。たとえば、範囲選択C3：D6をB2：E7にしたいとします。

、可能なC3の場合：D6; F3：G6; I3：J6がB2になるために：K7何とか

Answer 1

何が

Sub TestResizeAndMergeAreas() 
    Dim r As Range 

    Worksheets.Add 

    Range("C3:D6,F3:G6,I3:J6").Value = "Test Data" 

    Range("A1:Z20").Select 

    On Error Resume Next 
    Set r = Selection.SpecialCells(xlCellTypeConstants, 23) 
    On Error GoTo 0 

    If Not r Is Nothing Then 
     Debug.Print "Before:", r.Address 

     ResizeAndMergeAreas r, -1, 1, -1, 1 

     Debug.Print "After:", r.Address 
    End If 

    r.Select 
End Sub 

Sub ResizeAndMergeAreas(ByRef Target As Range, x1 As Long, x2 As Long, y1 As Long, y2 As Long) 
    Dim rArea As Range 

    For Each rArea In Target 
     Set Target = Range(Target, rArea) 
    Next 

    Set Target = Target.Offset(x1, y1).Resize(Target.Rows.Count + x2 + (x1 * -1), Target.Columns.Count + y2 + (y1 * -1)) 

End Sub