アクティブセルから開始するセルの範囲を選択してください

Question

以下のコードで助けが必要です。私がしようとしているのは、アクティブセル（任意のセルでもよい）から始めて、右（=最初の列）+すべてのセルを左（=最後の列）+上のすべてのセル強調表示された行+下のすべてのセルが強調表示された行まで表示されます。添付データを参照してくださいSample Data

例として、アクティブセルがG6の場合、コードはA2からJ7の範囲全体を選択します。同様に、アクティブなセルがF12の場合、コードはA11からJ13の範囲全体を選択します。

Sub sel() 
Dim LastCol As Long 
With ActiveSheet 
    LastCol = .Range("A1").SpecialCells(xlCellTypeLastCell).Column 
Dim FirstCol As Long 
With ActiveSheet 
LastVrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 
Range(Cells(WorksheetFunction.Max(1, Selection.Row, LastVrow), _ 
    WorksheetFunction.Max(1, Selection.Column, LastCol)), _ 
    Cells(WorksheetFunction.Min(Selection.Worksheet.Rows.Count, _ 
    Selection.Row), _ 
    WorksheetFunction.Min(Selection.Worksheet.Columns.Count, _ 
    Selection.Column, FirstCol))).Select 
End With 
End With 
End With 
End Sub 

Answer 1

これは、あなたがやりたいことになります。

Sub foo2() 
Dim rng As Range 
Dim st As Long 
Dim fin As Long 
With Selection 
    If Cells(.Row - 1, 1) <> "" Then 
     st = Cells(.Row, 1).End(xlUp).Row 
     If st = 1 Then st = 2 
    Else 
     st = .Row 
    End If 
    If Cells(.Row + 1, 1) <> "" Then 
     fin = Cells(.Row, 1).End(xlDown).Row 
    Else 
     fin = .Row 
    End If 
    Set rng = Range("A" & st & ":J" & fin) 

End With 
rng.Select 
End Sub 

Answer 2

多分これを試すことができます。アクティブセルがどこにあっても、最初にそれを最初の位置に移動してから、データブロック全体を選択します。

Sub Sel() 

    Selection.End(xlToLeft).Select 
    Selection.End(xlUp).Select 
    Range(Selection, Selection.End(xlDown)).Select 
    Range(Selection, Selection.End(xlToRight)).Select 

End Sub 

Answer 3

をあなたのテンプレートを考慮し、多分これが助けることができる：

sub sel() 
    dim selectRowS as integer 
    dim selectRowE as integer  

    with Selection  

     selectRowS = .row 
     selectRowE = .row 

     If Cells(.row + 1, 1) <> "" 
      selectRowE = .end(xlEnd).row 
     End If 
     If Cells(.row - 1, 1) <> "" 
      if .row - 1 = 1 then 
       selectRowS = 2 
      Else 
       selectRowS = .end(xlUp).row 
      End if 
     End If 

     Range(Cells(selectRowS,1),Cells(selectRowE,10)).select 

    End With 
End Sub 

P.S.を申し訳ありませんが、私の英語