VBAで最後の行と列を選択しようとしています

Question

私はこれを最も長く執着していましたが、これはおそらく私が見ていない簡単な修正です。私はテーブルの最後の行を選択し、最後の列までそれを囲む枠線を作成しようとしています。 "POS"は私が働いているワークシートの名前です。 "BRangePOS"は私がこれがテーブルの始まりであると言っています。

ここに私のコードです。

Set BRangePOS = POS.Range("A1") 
    With BRangePOS 
     With POS 
      lrowPOS = .Cells(.Rows.Count, 1).End(xlUp).Row 
      lcolPOS = .Cells(1, Columns.Count).End(xlToLeft).Column 
     End With 
    End With 

    POS.Range(lrowPOS, lcolPOS).BorderAround Weight:=xlMedium 

私が手にエラーがすべてのヘルプは素晴らしいことだ

「をObject_'Worksheetのメソッド 『範囲は』」失敗しました」です。

おかげで、

G

Answer 1

をneeeded場合は、テーブルの最後の行の周囲に境界線を作成するには、列のための機能を追加し

lastRow = findLastRow("Sheet1", "A:A") ' Or "A:X" 

Function findLastRow(Sheetname As String, ColumnName As String) As Integer 
    Dim lastRow As Integer 
    Dim r As Range 
    Dim WS As Worksheet 

    Set WS = Worksheets(Sheetname) 
    lastRow = WS.UsedRange.Rows.Count 
    '* 
    '* Search backwards till we find a cell that is not empty 
    '* 
    Set r = WS.Range(ColumnName).Rows(lastRow) 
    While IsEmpty(r) 
     Set r = r.Offset(-1, 0) 
    Wend 
    lastRow = r.Row 
    Set WS = Nothing 
    findLastRow = lastRow 
End Function 

：最後の行を検索するに

Dim POS As Worksheet 
Dim BRangePOS As Range 
Dim LastRow, LastCol As Integer 
Dim ColStart, RowStart As Integer 

Set POS = ThisWorkbook.Sheets("POS")   ' Working sheet 

' ------- Where the table starts - to input [xx] ------- 
Set BRangePOS = POS.[a1]        '| 
' ------------------------------------------------------ 

ColStart = BRangePOS.Column      ' Column start 
RowStart = BRangePOS.Row      ' Row Start 
LastRow = BRangePOS.CurrentRegion.Rows.Count ' Number of rows 
LastCol = BRangePOS.CurrentRegion.Columns.Count ' Number of columns 

POS.Range(Cells(LastRow + RowStart - 1, BRangePOS.Column), _ 
    Cells(LastRow + RowStart - 1, LastCol + ColStart - 1)). _ 
    BorderAround Weight:=xlMedium 

が、これは

Answer 2

は、以下試してください：

Sub test() 


Set BRangePOS = POS.Range("A1") 

     With POS 
      lrowPOS = .Cells(.Rows.Count, 1).End(xlUp).Row 
      lcolPOS = .Cells(1, Columns.Count).End(xlToLeft).Column 
     End With 

    POS.Range(Cells(1, 1), Cells(lrowPOS, lcolPOS)).BorderAround Weight:=xlMedium 

End Sub 

Answer 3

をたぶん、あなたはここからいくつかのアイデアを得ることができます。

Answer 4

を役に立てば幸い<range>.End()を使用することもできます。これらのテーブルは、テーブルに1列または1行しかないエッジの場合にも役立ちます。

Dim startOfLastRow As Range 
Set startOfLastRow = BRangePOS.End(xlDown).End(xlDown).End(xlUp) 

With Range(startOfLastRow, startOfLastRow.End(xlToRight).End(xlToRight).End(xlToLeft)) 
    'Insert code to apply border here 
End With