【マクロ】選択範囲を画像ファイルに保存

吐き出した画像はドキュメントの中に保存される。


Sub 選択範囲を画像ファイルに保存()
    With Selection
        .CopyPicture Appearance:=xlScreen, Format:=xlBitmap
        With ActiveCell.Worksheet.ChartObjects.Add(.Left, .Top, .Width, .Height)
            With .Chart
                .Paste
                .Export "test.png", "png"
            End With
            .Delete
        End With
    End With
End Sub

【マクロ】条件に合致した行を削除するExcelマクロ

条件に合致した行を削除するExcelマクロ

A列に必ず値が入っていること。

Sub 条件に一致した行を削除する()
　Dim i As Long

　For i = Range("A1").End(xlDown).Row To 2 Step -1
　With Cells(i, "G")
　　If _
　　.Value Like "東京*" Or _
　　.Value Like "大阪*" Then
　　　.EntireRow.Delete
　　End If
　End With
　Next i
End Sub

A列の一番下のデータから上方向に向かってループを回して、
　For i = Range("A1").End(xlDown).Row To 2 Step -1

もしも、G列のデータが「東京」か「大阪」で始まっていたら、
　With Cells(i, "G")
　　If _
　　.Value Like "東京*" Or _
　　.Value Like "大阪*" Then

その行全体を削除しています。
　　　.EntireRow.Delete

上記のマクロは、A列に必ずデータが入っているという条件にしているので、「Range("A1").End(xlDown).Row」というコードでA列の一番下の行番号を取得しています。

もしA列に空白セルが存在する可能性があるのなら「Cells(Rows.Count, 1).End(xlUp).Row」というコードにしましょう

【マクロ】リストからシート連続作成

リストを選択してマクロを実行する。

Sub リストから連続シート作成()
'シート名にしたいセル範囲を指定し実行
  Dim shname As Range
  For Each shname In Selection
        Sheets.Add after:=ActiveSheet
        ActiveSheet.Name = shname.Value
   Next shname
End Sub