在四个方向从活性细胞扩展范围VBA擅长

Question

从来就设法选择具有内容的范围内使用这样的：

Selection.SpecialCells(xlCellTypeConstants, 23).Select

现在我想延长在四个方向该范围内，大概有偏移功能。例如，我希望范围选择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