[ShimaBlock]よく使うVBAコード

###概要
ShimaBlock for VBAの操作サンプルです。
ExcelVBAでよく使うVBAコードをShimaBlockでやってみました。

使用サイト：ShimaBlock for VBA

###データの入っている最終行(ブロック)
1列目のデータが入っている最終行を取得する場合は、以下のようにブロックを配置します。

###データの入っている最終行(生成コード)

Sub Main()
    Dim lastRow
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
End Sub

###データの入っている最終列(ブロック)
1行目のデータが入っている最終列を取得する場合は、以下のようにブロックを配置します。

###データの入っている最終列(生成コード)

Sub Main()
    Dim lastCol
    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

###すべてのブックに同じ処理を行う(ブロック)
すべてのブックに同じ処理を行う場合は、以下のようにブロックを配置します。
すべてのブックに対し、閉じる処理を入れています。

###すべてのブックに同じ処理を行う(生成コード)

Sub Main()
    Dim wb As Workbook
    For Each wb In Workbooks
        wb.Close
    Next wb
End Sub

###すべてのシートに同じ処理を行う(ブロック)
すべてのシートに同じ処理を行う場合は、以下のようにブロックを配置します。
マクロ実行ブックのすべてのシート名を確認し、シート名が「Sheet1」の場合は、「シート1」に変更する処理を入れています。

###すべてのシートに同じ処理を行う(生成コード)

Sub Main()
    Dim ws As Worksheet
    For Each ws In ThisWorkBook.Worksheets
        If ws.Name = "Sheet1" Then
            ws.Name = "シート1"
        End If
    Next ws
End Sub

###サンプルコード参照サイト
以下のサイトのコードを参考に、ShimaBlock for VBAでコーディングしてみました。
VBA（エクセルマクロ）でよく使うコードまとめ