HTMLテーブルタグを作成するExcelマクロ:エクセルマクロ・Excel VBAの使い方/マクロのサンプル

テーブルタグを作成するサンプルマクロ このテーブルタグを作成するための数式を入力するマクロをVBA（Visual Basic for Applications）で作ってみました。 Sub HTMLテーブルタグを作成する数式をアクティブセルに入力() Dim tag_tbl As String Dim col_num As Long Dim i As Long With ActiveCell ' アクティブセルにデータが入っているときは終了 If Len(.Value) > 0 Then Exit Sub ' アクティブセルの列番号を取得 col_num = .Column ' タグ作成の開始 ' 数式として入力する「&」と区別するため ' 以下タグ作成処理の一部で「&」を「+」で代用 tag_tbl = """<tr>" ' tdタグの作成 For i = 1 To col_num -