ボーダーを追加し、合計行の後に値を削除するvbaコード

Question

vbaコードのヘルプが必要です。私は私が今

ここ （列Rで）第二のデータセットに境界線を追加し、合計行の後に2つの値を削除するには（4合計）VBAコードを持つようにしたい、私がこれまでに得たもので、

Sub Test() 
Dim LastRow As Long, x As Long 
LastRow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row 
x = 2 
Rows(LastRow - x + 1 & ":" & LastRow).Delete 
Set dat = Sheets("Table F Agencies Combined").Range("M:N") 
dat.Replace What:="TRUE", Replacement:="" 
End Sub 

最後の2行を削除してTRUEを何も置き換えることはできませんが、最初のセットの後に2つの値を削除し、2番目のデータセットの列Rに境界線を追加する方法はわかりません。

Answer 1

私は、データの各ブロックを別々に扱うほうがよいと思います。データを失うことなくこのコードを繰り返し実行できます。

Sub Test2() 

    Dim c As Range, r As Range 
' 1st block 
    Set c = Range("B:B").Find("total", Range("B1"), xlValues, xlWhole, , , False) 
'c.Select 
    c.Offset(1).Resize(2).EntireRow.ClearContents 

' 2nd block 
    Set c = Range("B:B").Find("total", c, xlValues, xlWhole, , , False) 
'c.Select 
    c.Offset(1).Resize(2).EntireRow.ClearContents 

    Set r = Intersect(c.EntireRow, Columns("R")) 
    Set r = Range(r, r.End(xlUp)) 
    r.BorderAround xlContinuous, xlThick 

End Sub 

Answer 2

あなたはあなたのコード内でいくつかのミス（構文エラー、論理エラー）を有していました。私はあなたのためにそれらを修正しました。

Sub Test() 
    Dim dat As Range: Set dat = Sheets("Table F Agencies Combined").Range("M:N") 
    Dim LastRow As Long, x As Long 
    Dim myCell As Variant 

    LastRow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row 
    x = 2 
    Rows(LastRow - x + 1 & ":" & LastRow).Delete 

    For Each myCell In dat 
     myCell.Value = Replace(UCase(myCell.Value), "TRUE", "") 
    Next myCell 
End Sub