前回の記事でご紹介した「最終行を取得する」のVBAスニペットに、今回は数式による空白を無視する処理を追加してみました。 Sub 数式による空白を無視して最終行を取得する() On Error Resume Next '//←念のため For 最終行 = Cells(Rows.Count, "A").End(xl…

Excel VBAを使用してフォントを変更(指定)する方法を解説します。以下がそのVBAコードです。 Sub フォントを変更する() Range("A1").Font.Name = "HG創英角ﾎﾟｯﾌﾟ体" End Sub このVBAスニペットは、"HG創英角ﾎﾟｯﾌﾟ体"という特定のフォントにテキストを変更す…

Excel VBAを使用して、A列にある空白セルが何行目にあるかを探し、その行番号を取得する方法について解説します。 以下がそのVBAコードです。 Sub 空白セルの行番号を取得する() ' エラーハンドリングを設定 On Error GoTo ErrHandl ' Rangeオブジェクトを宣…