{"text_format":"1","workbook":"xlsx","n_sheets":5,"sheets":["ＶＢＡコード","ＨＴＭＬ","エクセルに貼り付け","マスター設定","作業用"],"not_rendered":{"charts":0,"images":0,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"ＶＢＡコード","index":0,"n_rows":485,"n_cols":2,"rows_kept":485,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[]
[]
[]
[]
[]
[]
[null,"↓ここに、ＶＢＡコードを貼り付けて下さい。"]
[11,"Option Explicit"]
[12]
[13,"'コード消去"]
[14,"Sub test01()"]
[15]
[16,"    '初期化"]
[17,"    Range(\"A11:B11\").Select"]
[18,"    Range(Selection, Selection.End(xlDown)).Select"]
[19,"    Selection.ClearContents"]
[20,"    Range(\"B6\").Select"]
[21]
[22,"End Sub"]
[23]
[24,"'変換実行"]
[25,"Sub test02()"]
[26]
[27,"    '変数宣言"]
[28,"    Dim i           As Long"]
[29,"    Dim j           As Long"]
[30,"    Dim k           As Long"]
[31,"    Dim buf(30)     As String"]
[32,"    Dim myStrD(500) As String"]
[33,"    Dim myReg       As Object"]
[34,"    Dim myMatches   As Object"]
[35,"    Dim myPattern   As String"]
[36,"    Dim myRange     As Range"]
[37,"    "]
[38,"    '変数設定"]
[39,"    Set myReg = CreateObject(\"VBScript.RegExp\")"]
[40,"    k = Cells(Rows.Count, 2).End(xlUp).Row"]
[41,"    "]
[42,"    buf(11) = Worksheets(\"マスター設定\").Range(\"B2\")"]
[43,"    buf(12) = Worksheets(\"マスター設定\").Range(\"B3\")"]
[44,"    buf(13) = Worksheets(\"マスター設定\").Range(\"C2\")"]
[45,"    buf(14) = Worksheets(\"マスター設定\").Range(\"C3\")"]
[46,"    buf(15) = Worksheets(\"マスター設定\").Range(\"D2\")"]
[47,"    buf(16) = Worksheets(\"マスター設定\").Range(\"D3\")"]
[48,"    buf(17) = Worksheets(\"マスター設定\").Range(\"E2\")"]
[49,"    buf(18) = Worksheets(\"マスター設定\").Range(\"E3\")"]
[50,"    "]
[51,"    buf(21) = Worksheets(\"マスター設定\").Range(\"B4\")"]
[52,"    buf(22) = Worksheets(\"マスター設定\").Range(\"B5\")"]
[53,"    buf(23) = Worksheets(\"マスター設定\").Range(\"C4\")"]
[54,"    buf(24) = Worksheets(\"マスター設定\").Range(\"C5\")"]
[55,"    buf(25) = Worksheets(\"マスター設定\").Range(\"D4\")"]
[56,"    buf(26) = Worksheets(\"マスター設定\").Range(\"D5\")"]
[57,"    buf(27) = Worksheets(\"マスター設定\").Range(\"E4\")"]
[58,"    buf(28) = Worksheets(\"マスター設定\").Range(\"E5\")"]
[59,"    "]
[60,"    i = 6"]
[61,"    Do Until Worksheets(\"マスター設定\").Range(\"D\" & i) = \"\""]
[62,"        myStrD(i) = Worksheets(\"マスター設定\").Range(\"D\" & i)"]
[63,"        i = i + 1"]
[64,"    Loop"]
[65,"    "]
[66,"    '初期化"]
[67,"    Columns(\"A:A\").Select"]
[68,"    Selection.ClearContents"]
[69,"    "]
[70,"    Worksheets(\"ＨＴＭＬ\").Select"]
[71,"    Columns(\"A:B\").Select"]
[72,"    Selection.ClearContents"]
[73,"    "]
[74,"    Worksheets(\"作業用\").Select"]
[75,"    Columns(\"A:B\").Select"]
[76,"    Selection.ClearContents"]
[77,"    "]
[78,"    Worksheets(\"ＶＢＡコード\").Select"]
[79,"    For i = 11 To k"]
[80,"        Range(\"A\" & i) = i"]
[81,"    Next i"]
[82,"    Range(\"A11:B11\").Select"]
[83,"    Range(Selection, Selection.End(xlDown)).Select"]
[84,"    Selection.Copy"]
[85,"    "]
[86,"    Worksheets(\"作業用\").Select"]
[87,"    Range(\"A11\").Select"]
[88,"    ActiveSheet.Paste"]
[89,"    "]
[90,"    '①標準コード（数値）"]
[91,"    myPattern = \"(\\b\\d+\\b)\""]
[92]
[93,"    With myReg"]
[94]
[95,"        .Pattern = myPattern '検索パターンを設定"]
[96,"        .IgnoreCase = False  '大文字と小文字を区別する"]
[97,"        .Global = True       '文字列全体を検索"]
[98]
[99,"        For Each myRange In ActiveSheet.UsedRange"]
[100]
[101,"            If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[102,"                '何もしない"]
[103,"            Else"]
[104,"                If .Test(myRange.Formula) = True Then"]
[105,"                    myRange.Value = myReg.Replace(myRange.Value, buf(11) & \"$1\" & buf(12))"]
[106,"                End If"]
[107,"            End If"]
[108]
[109,"        Next myRange"]
[110]
[111,"    End With"]
[112]
[113,"    '②標準コード（演算子、等号、不等号）"]
[114,"    myPattern = \"(\\s)(\\+|-|\\*|/|\\\\|Mod|=|<>|>=|>|<=|<|\\^|&)(\\s)\""]
[115]
[116,"    With myReg"]
[117]
[118,"        .Pattern = myPattern '検索パターンを設定"]
[119,"        .IgnoreCase = False  '大文字と小文字を区別する"]
[120,"        .Global = True       '文字列全体を検索"]
[121]
[122,"        For Each myRange In ActiveSheet.UsedRange"]
[123]
[124,"            If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[125,"                '何もしない"]
[126,"            Else"]
[127,"                If .Test(myRange.Formula) = True Then"]
[128,"                    myRange.Value = myReg.Replace(myRange.Value, \"$1\" & buf(11) & \"$2\" & buf(12) & \"$3\")"]
[129,"                End If"]
[130,"            End If"]
[131]
[132,"        Next myRange"]
[133]
[134,"    End With"]
[135]
[136,"    '③標準コード（記号）"]
[137,"     myPattern = \"(\" & Chr(34) & \"|\\.|,|:=|:|;|\\(|\\)|_)\""]
[138]
[139,"     With myReg"]
[140]
[141,"        .Pattern = myPattern '検索パターンを設定"]
[142,"        .IgnoreCase = False  '大文字と小文字を区別する"]
[143,"        .Global = True       '文字列全体を検索"]
[144]
[145,"        For Each myRange In ActiveSheet.UsedRange"]
[146]
[147,"            If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[148,"                '何もしない"]
[149,"            Else"]
[150,"                If .Test(myRange.Formula) = True Then"]
[151,"                    myRange.Value = myReg.Replace(myRange.Value, buf(11) & \"$1\" & buf(12))"]
[152,"                End If"]
[153,"            End If"]
[154]
[155,"        Next myRange"]
[156]
[157,"    End With"]
[158,"    "]
[159,"    '④キーワード"]
[160,"    i = 6"]
[161,"    Do Until Worksheets(\"マスター設定\").Range(\"D\" & i) = \"\""]
[162,"        "]
[163,"        myPattern = \"(\\b\" & myStrD(i) & \"\\b)\""]
[164,"        "]
[165,"        With myReg"]
[166,"        "]
[167,"            .Pattern = myPattern '検索パターンを設定"]
[168,"            .IgnoreCase = False  '大文字と小文字を区別する"]
[169,"            .Global = True       '文字列全体を検索"]
[170,"            "]
[171,"            For Each myRange In ActiveSheet.UsedRange"]
[172,"                "]
[173,"                If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[174,"                    '何もしない"]
[175,"                Else"]
[176,"                    If .Test(myRange.Formula) = True Then"]
[177,"                    myRange.Value = myReg.Replace(myRange.Value, buf(15) & \"$1\" & buf(16))"]
[178,"                    End If"]
[179,"                End If"]
[180,"                "]
[181,"            Next myRange"]
[182,"        "]
[183,"        End With"]
[184,"    "]
[185,"        i = i + 1"]
[186,"        "]
[187,"    Loop"]
[188,"    "]
[189,"    '⑤コメント（行中）"]
[190,"    myPattern = \"(\\s)('.+)\""]
[191]
[192,"    With myReg"]
[193]
[194,"        .Pattern = myPattern '検索パターンを設定"]
[195,"        .IgnoreCase = False  '大文字と小文字を区別する"]
[196,"        .Global = True       '文字列全体を検索"]
[197]
[198,"        For Each myRange In ActiveSheet.UsedRange"]
[199]
[200,"            If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[201,"                '何もしない"]
[202,"            Else"]
[203,"                If .Test(myRange.Formula) = True Then"]
[204,"                    myRange.Value = myReg.Replace(myRange.Value, \"$1\" & buf(13) & \"$2\" & buf(14))"]
[205,"                End If"]
[206,"            End If"]
[207]
[208,"        Next myRange"]
[209]
[210,"    End With"]
[211]
[212,"    '⑥文字列"]
[213,"    myPattern = \"(\" & Chr(34) & \".+?\" & Chr(34) & \")\""]
[214]
[215,"    With myReg"]
[216]
[217,"        .Pattern = myPattern '検索パターンを設定"]
[218,"        .IgnoreCase = False  '大文字と小文字を区別する"]
[219,"        .Global = True       '文字列全体を検索"]
[220]
[221,"        For Each myRange In ActiveSheet.UsedRange"]
[222]
[223,"            If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[224,"                '何もしない"]
[225,"            Else"]
[226,"                If .Test(myRange.Formula) = True Then"]
[227,"                    myRange.Value = myReg.Replace(myRange.Value, buf(11) & \"$1\" & buf(12))"]
[228,"                End If"]
[229,"            End If"]
[230]
[231,"        Next myRange"]
[232]
[233,"    End With"]
[234,"    "]
[235,"    '⑦コメント（行頭）"]
[236,"    For i = 11 To k"]
[237]
[238,"        If Left(Worksheets(\"ＶＢＡコード\").Range(\"B\" & i), 1) = \"'\" Then"]
[239,"            Range(\"B\" & i) = buf(13) & Worksheets(\"ＶＢＡコード\").Range(\"B\" & i) & buf(14)"]
[240,"        End If"]
[241]
[242,"    Next i"]
[243,"    "]
[244,"    '⑧余分なダミーを削除"]
[245,"    "]
[246,"        '標準コード"]
[247,"        myPattern = \"(\" & buf(11) & \")\" & \"(.+?)\" & \"(\" & buf(12) & \")\" & \"(\" & buf(11) & \")\" & \"(.+?)\" & \"(\" & buf(12) & \")\""]
[248,"        "]
[249,"        With myReg"]
[250,"    "]
[251,"            .Pattern = myPattern '検索パターンを設定"]
[252,"            .IgnoreCase = False  '大文字と小文字を区別する"]
[253,"            .Global = True       '文字列全体を検索"]
[254,"    "]
[255,"            For Each myRange In ActiveSheet.UsedRange"]
[256,"    "]
[257,"                If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[258,"                    '何もしない"]
[259,"                Else"]
[260,"                    If .Test(myRange.Formula) = True Then"]
[261,"                        myRange.Value = myReg.Replace(myRange.Value, \"$1\" & \"$2\" & \"$5\" & \"$6\")"]
[262,"                    End If"]
[263,"                End If"]
[264,"    "]
[265,"            Next myRange"]
[266,"    "]
[267,"        End With"]
[268]
[269,"        'コメント"]
[270,"        myPattern = \"(\" & buf(13) & \")\" & \"(.+?)\" & \"(\" & buf(14) & \")\" & \"(\" & buf(13) & \")\" & \"(.+?)\" & \"(\" & buf(14) & \")\""]
[271]
[272,"        With myReg"]
[273]
[274,"            .Pattern = myPattern '検索パターンを設定"]
[275,"            .IgnoreCase = False  '大文字と小文字を区別する"]
[276,"            .Global = True       '文字列全体を検索"]
[277]
[278,"            For Each myRange In ActiveSheet.UsedRange"]
[279]
[280,"                If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[281,"                    '何もしない"]
[282,"                Else"]
[283,"                    If .Test(myRange.Formula) = True Then"]
[284,"                        myRange.Value = myReg.Replace(myRange.Value, \"$1\" & \"$2\" & \"$5\" & \"$6\")"]
[285,"                    End If"]
[286,"                End If"]
[287]
[288,"            Next myRange"]
[289]
[290,"        End With"]
[291]
[292,"        'キーワード"]
[293,"        myPattern = \"(\" & buf(15) & \")\" & \"(.+?)\" & \"(\" & buf(16) & \")\" & \"(\" & buf(15) & \")\" & \"(.+?)\" & \"(\" & buf(16) & \")\""]
[294]
[295,"        With myReg"]
[296]
[297,"            .Pattern = myPattern '検索パターンを設定"]
[298,"            .IgnoreCase = False  '大文字と小文字を区別する"]
[299,"            .Global = True       '文字列全体を検索"]
[300]
[301,"            For Each myRange In ActiveSheet.UsedRange"]
[302]
[303,"                If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[304,"                    '何もしない"]
[305,"                Else"]
[306,"                    If .Test(myRange.Formula) = True Then"]
[307,"                        myRange.Value = myReg.Replace(myRange.Value, \"$1\" & \"$2\" & \"$5\" & \"$6\")"]
[308,"                    End If"]
[309,"                End If"]
[310]
[311,"            Next myRange"]
[312]
[313,"        End With"]
[314,"        "]
[315,"    '⑨ＨＴＭＬの特殊文字を処理"]
[316,"        '＆"]
[317,"        myPattern = \"(&)\""]
[318]
[319,"        With myReg"]
[320]
[321,"            .Pattern = myPattern '検索パターンを設定"]
[322,"            .IgnoreCase = False  '大文字と小文字を区別する"]
[323,"            .Global = True       '文字列全体を検索"]
[324]
[325,"            For Each myRange In ActiveSheet.UsedRange"]
[326]
[327,"                If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[328,"                    '何もしない"]
[329,"                Else"]
[330,"                    If .Test(myRange.Formula) = True Then"]
[331,"                        myRange.Value = myReg.Replace(myRange.Value, \"&amp;\")"]
[332,"                    End If"]
[333,"                End If"]
[334]
[335,"            Next myRange"]
[336]
[337,"        End With"]
[338,"    "]
[339,"        '半角スペース"]
[340,"        myPattern = \"( )\""]
[341,"    "]
[342,"        With myReg"]
[343,"    "]
[344,"            .Pattern = myPattern '検索パターンを設定"]
[345,"            .IgnoreCase = False  '大文字と小文字を区別する"]
[346,"            .Global = True       '文字列全体を検索"]
[347,"    "]
[348,"            For Each myRange In ActiveSheet.UsedRange"]
[349,"    "]
[350,"                If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[351,"                    '何もしない"]
[352,"                Else"]
[353,"                    If .Test(myRange.Formula) = True Then"]
[354,"                        myRange.Value = myReg.Replace(myRange.Value, \"&nbsp;\")"]
[355,"                    End If"]
[356,"                End If"]
[357,"    "]
[358,"            Next myRange"]
[359,"    "]
[360,"        End With"]
[361,"        "]
[362,"        '＜"]
[363,"        myPattern = \"(<)\""]
[364,"    "]
[365,"        With myReg"]
[366,"    "]
[367,"            .Pattern = myPattern '検索パターンを設定"]
[368,"            .IgnoreCase = False  '大文字と小文字を区別する"]
[369,"            .Global = True       '文字列全体を検索"]
[370,"    "]
[371,"            For Each myRange In ActiveSheet.UsedRange"]
[372,"    "]
[373,"                If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[374,"                    '何もしない"]
[375,"                Else"]
[376,"                    If .Test(myRange.Formula) = True Then"]
[377,"                        myRange.Value = myReg.Replace(myRange.Value, \"&lt;\")"]
[378,"                    End If"]
[379,"                End If"]
[380,"    "]
[381,"            Next myRange"]
[382,"    "]
[383,"        End With"]
[384,"        "]
[385,"        '＞"]
[386,"        myPattern = \"(>)\""]
[387,"    "]
[388,"        With myReg"]
[389,"    "]
[390,"            .Pattern = myPattern '検索パターンを設定"]
[391,"            .IgnoreCase = False  '大文字と小文字を区別する"]
[392,"            .Global = True       '文字列全体を検索"]
[393,"    "]
[394,"            For Each myRange In ActiveSheet.UsedRange"]
[395,"    "]
[396,"                If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[397,"                    '何もしない"]
[398,"                Else"]
[399,"                    If .Test(myRange.Formula) = True Then"]
[400,"                        myRange.Value = myReg.Replace(myRange.Value, \"&gt;\")"]
[401,"                    End If"]
[402,"                End If"]
[403,"    "]
[404,"            Next myRange"]
[405,"    "]
[406,"        End With"]
[407,"        "]
[408,"        '”"]
[409,"        myPattern = \"(\" & Chr(34) & \")\""]
[410]
[411,"        With myReg"]
[412]
[413,"            .Pattern = myPattern '検索パターンを設定"]
[414,"            .IgnoreCase = False  '大文字と小文字を区別する"]
[415,"            .Global = True       '文字列全体を検索"]
[416]
[417,"            For Each myRange In ActiveSheet.UsedRange"]
[418]
[419,"                If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[420,"                    '何もしない"]
[421,"                Else"]
[422,"                    If .Test(myRange.Formula) = True Then"]
[423,"                        myRange.Value = myReg.Replace(myRange.Value, \"&quot;\")"]
[424,"                    End If"]
[425,"                End If"]
[426]
[427,"            Next myRange"]
[428]
[429,"        End With"]
[430,"    "]
[431,"    '⑩ダミーを変更"]
[432,"    For i = 11 To 18"]
[433,"    "]
[434,"        Cells.Replace What:=buf(i), Replacement:=buf(i + 10), LookAt:=xlPart, _"]
[435,"            SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _"]
[436,"            ReplaceFormat:=False"]
[437,"    "]
[438,"    Next i"]
[439,"    "]
[440,"    '⑪行の最後に＜ｂｒ＞を追記"]
[441,"    For i = 11 To k"]
[442,"        "]
[443,"        Range(\"B\" & i) = Range(\"B\" & i) & \"<br>\""]
[444,"    Next i"]
[445,"    "]
[446,"    'ＨＴＭＬを作成"]
[447,"    Worksheets(\"マスター設定\").Select"]
[448,"    Range(\"F2:F11\").Select"]
[449,"    Selection.Copy"]
[450,"    "]
[451,"    Worksheets(\"ＨＴＭＬ\").Select"]
[452,"    Range(\"B1\").Select"]
[453,"    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _"]
[454,"        :=False, Transpose:=False"]
[455,"    "]
[456,"    Worksheets(\"マスター設定\").Select"]
[457,"    Range(\"F18:F21\").Select"]
[458,"    Selection.Copy"]
[459,"    Range(\"A1\").Select"]
[460,"    "]
[461,"    Worksheets(\"ＨＴＭＬ\").Select"]
[462,"    Range(\"B\" & k + 1).Select"]
[463,"    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _"]
[464,"        :=False, Transpose:=False"]
[465,"    "]
[466,"    Worksheets(\"作業用\").Select"]
[467,"    Range(\"B11:B\" & k).Select"]
[468,"    Selection.Copy"]
[469,"    Range(\"A1\").Select"]
[470,"    "]
[471,"    Worksheets(\"ＨＴＭＬ\").Select"]
[472,"    Range(\"B11\").Select"]
[473,"    ActiveSheet.Paste"]
[474,"    For i = 1 To k + 4"]
[475,"        Range(\"A\" & i) = i"]
[476,"    Next i"]
[477,"    Range(\"B1:B\" & k + 4).Select"]
[478,"    "]
[479,"    '終了処理"]
[480,"    Set myReg = Nothing"]
[481,"    Worksheets(\"ＶＢＡコード\").Select"]
[482,"    Range(\"B6\").Select"]
[483,"    Application.CutCopyMode = False"]
[484]
[485,"End Sub"]

{"sheet":"ＨＴＭＬ","index":1,"n_rows":489,"n_cols":2,"rows_kept":489,"cut":false,"hidden":false,"merged":[]}
[1,"<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">"]
[2,"<html>"]
[3,"<head>"]
[4,"<meta http-equiv=\"Content-Type\" content=\"text/html; charset=Shift_JIS\">"]
[5,"<meta name=\"keywords\" content=\"Ｅｘｃｅｌ２０１３,ＶＢＡ,コード,カラー,印刷\">"]
[6,"<title>Ｅｘｃｅｌ２０１３、ＶＢＡコードをカラーで印刷する方法</title>"]
[7,"</head>"]
[8,"<body>"]
[9,"<font face='ＭＳ ゴシック'>"]
[10,"<font color=\"#0000ff\">"]
[11,"<font color=\"#ff0000\">Option</font>&nbsp;<font color=\"#ff0000\">Explicit</font><br>"]
[12,"<br>"]
[13,"<font color=\"#009900\">'コード消去</font><br>"]
[14,"<font color=\"#ff0000\">Sub</font>&nbsp;test01<font color=\"#000000\">()</font><br>"]
[15,"<br>"]
[16,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'初期化</font><br>"]
[17,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>A11<font color=\"#000000\">:</font>B11<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[18,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(</font>Selection<font color=\"#000000\">,</font>&nbsp;Selection<font color=\"#000000\">.</font>End<font color=\"#000000\">(</font>xlDown<font color=\"#000000\">))</font><font color=\"#000000\">.</font>Select<br>"]
[19,"&nbsp;&nbsp;&nbsp;&nbsp;Selection<font color=\"#000000\">.</font>ClearContents<br>"]
[20,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B6<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[21,"<br>"]
[22,"<font color=\"#ff0000\">End&nbsp;Sub</font><br>"]
[23,"<br>"]
[24,"<font color=\"#009900\">'変換実行</font><br>"]
[25,"<font color=\"#ff0000\">Sub</font>&nbsp;test02<font color=\"#000000\">()</font><br>"]
[26,"<br>"]
[27,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'変数宣言</font><br>"]
[28,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Dim</font>&nbsp;i&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">As</font>&nbsp;<font color=\"#ff0000\">Long</font><br>"]
[29,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Dim</font>&nbsp;j&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">As</font>&nbsp;<font color=\"#ff0000\">Long</font><br>"]
[30,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Dim</font>&nbsp;k&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">As</font>&nbsp;<font color=\"#ff0000\">Long</font><br>"]
[31,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Dim</font>&nbsp;buf<font color=\"#000000\">(30</font><font color=\"#000000\">)</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">As</font>&nbsp;<font color=\"#ff0000\">String</font><br>"]
[32,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Dim</font>&nbsp;myStrD<font color=\"#000000\">(500</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#ff0000\">As</font>&nbsp;<font color=\"#ff0000\">String</font><br>"]
[33,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Dim</font>&nbsp;myReg&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">As</font>&nbsp;<font color=\"#ff0000\">Object</font><br>"]
[34,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Dim</font>&nbsp;myMatches&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">As</font>&nbsp;<font color=\"#ff0000\">Object</font><br>"]
[35,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Dim</font>&nbsp;myPattern&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">As</font>&nbsp;<font color=\"#ff0000\">String</font><br>"]
[36,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Dim</font>&nbsp;myRange&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">As</font>&nbsp;Range<br>"]
[37,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[38,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'変数設定</font><br>"]
[39,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Set</font>&nbsp;myReg&nbsp;<font color=\"#000000\">=</font>&nbsp;CreateObject<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>VBScript<font color=\"#000000\">.</font>RegExp<font color=\"#000000\">&quot;</font>)</font><br>"]
[40,"&nbsp;&nbsp;&nbsp;&nbsp;k&nbsp;<font color=\"#000000\">=</font>&nbsp;Cells<font color=\"#000000\">(</font>Rows<font color=\"#000000\">.</font>Count<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\">2)</font><font color=\"#000000\">.</font>End<font color=\"#000000\">(</font>xlUp<font color=\"#000000\">).</font>Row<br>"]
[41,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[42,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(11</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B2<font color=\"#000000\">&quot;</font>)</font><br>"]
[43,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(12</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B3<font color=\"#000000\">&quot;</font>)</font><br>"]
[44,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(13</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>C2<font color=\"#000000\">&quot;</font>)</font><br>"]
[45,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(14</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>C3<font color=\"#000000\">&quot;</font>)</font><br>"]
[46,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(15</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>D2<font color=\"#000000\">&quot;</font>)</font><br>"]
[47,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(16</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>D3<font color=\"#000000\">&quot;</font>)</font><br>"]
[48,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(17</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>E2<font color=\"#000000\">&quot;</font>)</font><br>"]
[49,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(18</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>E3<font color=\"#000000\">&quot;</font>)</font><br>"]
[50,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[51,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(21</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B4<font color=\"#000000\">&quot;</font>)</font><br>"]
[52,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(22</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B5<font color=\"#000000\">&quot;</font>)</font><br>"]
[53,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(23</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>C4<font color=\"#000000\">&quot;</font>)</font><br>"]
[54,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(24</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>C5<font color=\"#000000\">&quot;</font>)</font><br>"]
[55,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(25</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>D4<font color=\"#000000\">&quot;</font>)</font><br>"]
[56,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(26</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>D5<font color=\"#000000\">&quot;</font>)</font><br>"]
[57,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(27</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>E4<font color=\"#000000\">&quot;</font>)</font><br>"]
[58,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(28</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>E5<font color=\"#000000\">&quot;</font>)</font><br>"]
[59,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[60,"&nbsp;&nbsp;&nbsp;&nbsp;i&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">6</font><br>"]
[61,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Do</font>&nbsp;<font color=\"#ff0000\">Until</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>D<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;i<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;&quot;</font></font><br>"]
[62,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myStrD<font color=\"#000000\">(</font>i<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>D<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;i<font color=\"#000000\">)</font><br>"]
[63,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;i&nbsp;<font color=\"#000000\">=</font>&nbsp;i&nbsp;<font color=\"#000000\">+</font>&nbsp;<font color=\"#000000\">1</font><br>"]
[64,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Loop</font><br>"]
[65,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[66,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'初期化</font><br>"]
[67,"&nbsp;&nbsp;&nbsp;&nbsp;Columns<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>A<font color=\"#000000\">:</font>A<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[68,"&nbsp;&nbsp;&nbsp;&nbsp;Selection<font color=\"#000000\">.</font>ClearContents<br>"]
[69,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[70,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>ＨＴＭＬ<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[71,"&nbsp;&nbsp;&nbsp;&nbsp;Columns<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>A<font color=\"#000000\">:</font>B<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[72,"&nbsp;&nbsp;&nbsp;&nbsp;Selection<font color=\"#000000\">.</font>ClearContents<br>"]
[73,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[74,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>作業用<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[75,"&nbsp;&nbsp;&nbsp;&nbsp;Columns<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>A<font color=\"#000000\">:</font>B<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[76,"&nbsp;&nbsp;&nbsp;&nbsp;Selection<font color=\"#000000\">.</font>ClearContents<br>"]
[77,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[78,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>ＶＢＡコード<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[79,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;i&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">11</font>&nbsp;<font color=\"#ff0000\">To</font>&nbsp;k<br>"]
[80,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>A<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;i<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;i<br>"]
[81,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;i<br>"]
[82,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>A11<font color=\"#000000\">:</font>B11<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[83,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(</font>Selection<font color=\"#000000\">,</font>&nbsp;Selection<font color=\"#000000\">.</font>End<font color=\"#000000\">(</font>xlDown<font color=\"#000000\">))</font><font color=\"#000000\">.</font>Select<br>"]
[84,"&nbsp;&nbsp;&nbsp;&nbsp;Selection<font color=\"#000000\">.</font>Copy<br>"]
[85,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[86,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>作業用<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[87,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>A11<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[88,"&nbsp;&nbsp;&nbsp;&nbsp;ActiveSheet<font color=\"#000000\">.</font>Paste<br>"]
[89,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[90,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'①標準コード（数値）</font><br>"]
[91,"&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font>\\b\\d+\\b<font color=\"#000000\">)&quot;</font></font><br>"]
[92,"<br>"]
[93,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[94,"<br>"]
[95,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[96,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[97,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[98,"<br>"]
[99,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[100,"<br>"]
[101,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[102,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[103,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[104,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[105,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;buf<font color=\"#000000\">(11</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">1&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(12</font><font color=\"#000000\">))</font><br>"]
[106,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[107,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[108,"<br>"]
[109,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[110,"<br>"]
[111,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[112,"<br>"]
[113,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'②標準コード（演算子、等号、不等号）</font><br>"]
[114,"&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font>\\s<font color=\"#000000\">)(</font>\\+|-|\\*|/|\\\\|Mod|=|&lt;&gt;|&gt;=|&gt;|&lt;=|&lt;|\\^|&amp;<font color=\"#000000\">)(</font>\\s<font color=\"#000000\">)&quot;</font></font><br>"]
[115,"<br>"]
[116,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[117,"<br>"]
[118,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[119,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[120,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[121,"<br>"]
[122,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[123,"<br>"]
[124,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[125,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[126,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[127,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[128,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">1&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(11</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">2&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(12</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">3&quot;</font></font><font color=\"#000000\">)</font><br>"]
[129,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[130,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[131,"<br>"]
[132,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[133,"<br>"]
[134,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[135,"<br>"]
[136,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'③標準コード（記号）</font><br>"]
[137,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;Chr<font color=\"#000000\">(34</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>|\\<font color=\"#000000\">.</font>|<font color=\"#000000\">,</font>|<font color=\"#000000\">:=</font>|<font color=\"#000000\">:</font>|<font color=\"#000000\">;</font>|\\<font color=\"#000000\">(</font>|\\<font color=\"#000000\">)</font>|<font color=\"#000000\">_)</font><font color=\"#000000\">&quot;</font></font><br>"]
[138,"<br>"]
[139,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[140,"<br>"]
[141,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[142,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[143,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[144,"<br>"]
[145,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[146,"<br>"]
[147,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[148,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[149,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[150,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[151,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;buf<font color=\"#000000\">(11</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">1&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(12</font><font color=\"#000000\">))</font><br>"]
[152,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[153,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[154,"<br>"]
[155,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[156,"<br>"]
[157,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[158,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[159,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'④キーワード</font><br>"]
[160,"&nbsp;&nbsp;&nbsp;&nbsp;i&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">6</font><br>"]
[161,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Do</font>&nbsp;<font color=\"#ff0000\">Until</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>D<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;i<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;&quot;</font></font><br>"]
[162,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[163,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font>\\b<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;myStrD<font color=\"#000000\">(</font>i<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>\\b<font color=\"#000000\">)&quot;</font></font><br>"]
[164,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[165,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[166,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[167,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[168,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[169,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[170,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[171,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[172,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[173,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[174,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[175,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[176,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[177,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;buf<font color=\"#000000\">(15</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">1&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(16</font><font color=\"#000000\">))</font><br>"]
[178,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[179,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[180,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[181,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[182,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[183,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[184,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[185,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;i&nbsp;<font color=\"#000000\">=</font>&nbsp;i&nbsp;<font color=\"#000000\">+</font>&nbsp;<font color=\"#000000\">1</font><br>"]
[186,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[187,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Loop</font><br>"]
[188,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[189,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'⑤コメント（行中）</font><br>"]
[190,"&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font>\\s<font color=\"#000000\">)(</font>'<font color=\"#000000\">.</font>+<font color=\"#000000\">)&quot;</font></font><br>"]
[191,"<br>"]
[192,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[193,"<br>"]
[194,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[195,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[196,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[197,"<br>"]
[198,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[199,"<br>"]
[200,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[201,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[202,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[203,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[204,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">1&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(13</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">2&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(14</font><font color=\"#000000\">))</font><br>"]
[205,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[206,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[207,"<br>"]
[208,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[209,"<br>"]
[210,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[211,"<br>"]
[212,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'⑥文字列</font><br>"]
[213,"&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;Chr<font color=\"#000000\">(34</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;.</font>+?<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;Chr<font color=\"#000000\">(34</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font><br>"]
[214,"<br>"]
[215,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[216,"<br>"]
[217,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[218,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[219,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[220,"<br>"]
[221,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[222,"<br>"]
[223,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[224,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[225,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[226,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[227,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;buf<font color=\"#000000\">(11</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">1&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(12</font><font color=\"#000000\">))</font><br>"]
[228,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[229,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[230,"<br>"]
[231,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[232,"<br>"]
[233,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[234,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[235,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'⑦コメント（行頭）</font><br>"]
[236,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;i&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">11</font>&nbsp;<font color=\"#ff0000\">To</font>&nbsp;k<br>"]
[237,"<br>"]
[238,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Left<font color=\"#000000\">(</font>Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>ＶＢＡコード<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;i<font color=\"#000000\">),</font>&nbsp;<font color=\"#000000\">1)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>'<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[239,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;i<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;buf<font color=\"#000000\">(13</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>ＶＢＡコード<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;i<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(14</font><font color=\"#000000\">)</font><br>"]
[240,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[241,"<br>"]
[242,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;i<br>"]
[243,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[244,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'⑧余分なダミーを削除</font><br>"]
[245,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[246,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'標準コード</font><br>"]
[247,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(11</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">.</font>+?<font color=\"#000000\">)&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(12</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(11</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">.</font>+?<font color=\"#000000\">)&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(12</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font><br>"]
[248,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[249,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[250,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[251,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[252,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[253,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[254,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[255,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[256,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[257,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[258,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[259,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[260,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[261,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">1&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">2&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">5&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">6&quot;</font></font><font color=\"#000000\">)</font><br>"]
[262,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[263,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[264,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[265,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[266,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[267,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[268,"<br>"]
[269,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'コメント</font><br>"]
[270,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(13</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">.</font>+?<font color=\"#000000\">)&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(14</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(13</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">.</font>+?<font color=\"#000000\">)&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(14</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font><br>"]
[271,"<br>"]
[272,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[273,"<br>"]
[274,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[275,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[276,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[277,"<br>"]
[278,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[279,"<br>"]
[280,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[281,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[282,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[283,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[284,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">1&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">2&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">5&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">6&quot;</font></font><font color=\"#000000\">)</font><br>"]
[285,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[286,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[287,"<br>"]
[288,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[289,"<br>"]
[290,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[291,"<br>"]
[292,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'キーワード</font><br>"]
[293,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(15</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">.</font>+?<font color=\"#000000\">)&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(16</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(15</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">.</font>+?<font color=\"#000000\">)&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(16</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font><br>"]
[294,"<br>"]
[295,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[296,"<br>"]
[297,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[298,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[299,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[300,"<br>"]
[301,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[302,"<br>"]
[303,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[304,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[305,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[306,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[307,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">1&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">2&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">5&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">6&quot;</font></font><font color=\"#000000\">)</font><br>"]
[308,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[309,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[310,"<br>"]
[311,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[312,"<br>"]
[313,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[314,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[315,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'⑨ＨＴＭＬの特殊文字を処理</font><br>"]
[316,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'＆</font><br>"]
[317,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font>&amp;<font color=\"#000000\">)&quot;</font></font><br>"]
[318,"<br>"]
[319,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[320,"<br>"]
[321,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[322,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[323,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[324,"<br>"]
[325,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[326,"<br>"]
[327,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[328,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[329,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[330,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[331,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>&amp;amp<font color=\"#000000\">;&quot;</font></font><font color=\"#000000\">)</font><br>"]
[332,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[333,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[334,"<br>"]
[335,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[336,"<br>"]
[337,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[338,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[339,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'半角スペース</font><br>"]
[340,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font>&nbsp;<font color=\"#000000\">)&quot;</font></font><br>"]
[341,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[342,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[343,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[344,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[345,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[346,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[347,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[348,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[349,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[350,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[351,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[352,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[353,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[354,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>&amp;nbsp<font color=\"#000000\">;&quot;</font></font><font color=\"#000000\">)</font><br>"]
[355,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[356,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[357,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[358,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[359,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[360,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[361,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[362,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'＜</font><br>"]
[363,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font>&lt;<font color=\"#000000\">)&quot;</font></font><br>"]
[364,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[365,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[366,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[367,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[368,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[369,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[370,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[371,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[372,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[373,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[374,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[375,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[376,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[377,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>&amp;lt<font color=\"#000000\">;&quot;</font></font><font color=\"#000000\">)</font><br>"]
[378,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[379,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[380,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[381,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[382,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[383,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[384,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[385,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'＞</font><br>"]
[386,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font>&gt;<font color=\"#000000\">)&quot;</font></font><br>"]
[387,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[388,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[389,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[390,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[391,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[392,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[393,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[394,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[395,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[396,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[397,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[398,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[399,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[400,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>&amp;gt<font color=\"#000000\">;&quot;</font></font><font color=\"#000000\">)</font><br>"]
[401,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[402,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[403,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[404,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[405,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[406,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[407,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[408,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'”</font><br>"]
[409,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;Chr<font color=\"#000000\">(34</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font><br>"]
[410,"<br>"]
[411,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[412,"<br>"]
[413,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[414,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[415,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[416,"<br>"]
[417,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[418,"<br>"]
[419,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[420,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[421,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[422,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[423,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>&amp;quot<font color=\"#000000\">;&quot;</font></font><font color=\"#000000\">)</font><br>"]
[424,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[425,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[426,"<br>"]
[427,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[428,"<br>"]
[429,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[430,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[431,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'⑩ダミーを変更</font><br>"]
[432,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;i&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">11</font>&nbsp;<font color=\"#ff0000\">To</font>&nbsp;<font color=\"#000000\">18</font><br>"]
[433,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[434,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Cells<font color=\"#000000\">.</font>Replace&nbsp;What<font color=\"#000000\">:=</font>buf<font color=\"#000000\">(</font>i<font color=\"#000000\">),</font>&nbsp;Replacement<font color=\"#000000\">:=</font>buf<font color=\"#000000\">(</font>i&nbsp;<font color=\"#000000\">+</font>&nbsp;<font color=\"#000000\">10)</font><font color=\"#000000\">,</font>&nbsp;LookAt<font color=\"#000000\">:=</font>xlPart<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\">_</font><br>"]
[435,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SearchOrder<font color=\"#000000\">:=</font>xlByRows<font color=\"#000000\">,</font>&nbsp;MatchCase<font color=\"#000000\">:=</font>True<font color=\"#000000\">,</font>&nbsp;SearchFormat<font color=\"#000000\">:=</font>False<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\">_</font><br>"]
[436,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ReplaceFormat<font color=\"#000000\">:=</font>False<br>"]
[437,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[438,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;i<br>"]
[439,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[440,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'⑪行の最後に＜ｂｒ＞を追記</font><br>"]
[441,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;i&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">11</font>&nbsp;<font color=\"#ff0000\">To</font>&nbsp;k<br>"]
[442,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[443,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;i<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;i<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>&lt;br&gt;<font color=\"#000000\">&quot;</font></font><br>"]
[444,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;i<br>"]
[445,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[446,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'ＨＴＭＬを作成</font><br>"]
[447,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[448,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>F2<font color=\"#000000\">:</font>F11<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[449,"&nbsp;&nbsp;&nbsp;&nbsp;Selection<font color=\"#000000\">.</font>Copy<br>"]
[450,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[451,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>ＨＴＭＬ<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[452,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B1<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[453,"&nbsp;&nbsp;&nbsp;&nbsp;Selection<font color=\"#000000\">.</font>PasteSpecial&nbsp;Paste<font color=\"#000000\">:=</font>xlPasteValues<font color=\"#000000\">,</font>&nbsp;Operation<font color=\"#000000\">:=</font>xlNone<font color=\"#000000\">,</font>&nbsp;SkipBlanks&nbsp;<font color=\"#000000\">_</font><br>"]
[454,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">:=</font>False<font color=\"#000000\">,</font>&nbsp;Transpose<font color=\"#000000\">:=</font>False<br>"]
[455,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[456,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[457,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>F18<font color=\"#000000\">:</font>F21<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[458,"&nbsp;&nbsp;&nbsp;&nbsp;Selection<font color=\"#000000\">.</font>Copy<br>"]
[459,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>A1<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[460,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[461,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>ＨＴＭＬ<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[462,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;k&nbsp;<font color=\"#000000\">+</font>&nbsp;<font color=\"#000000\">1)</font><font color=\"#000000\">.</font>Select<br>"]
[463,"&nbsp;&nbsp;&nbsp;&nbsp;Selection<font color=\"#000000\">.</font>PasteSpecial&nbsp;Paste<font color=\"#000000\">:=</font>xlPasteValues<font color=\"#000000\">,</font>&nbsp;Operation<font color=\"#000000\">:=</font>xlNone<font color=\"#000000\">,</font>&nbsp;SkipBlanks&nbsp;<font color=\"#000000\">_</font><br>"]
[464,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">:=</font>False<font color=\"#000000\">,</font>&nbsp;Transpose<font color=\"#000000\">:=</font>False<br>"]
[465,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[466,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>作業用<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[467,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B11<font color=\"#000000\">:</font>B<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;k<font color=\"#000000\">).</font>Select<br>"]
[468,"&nbsp;&nbsp;&nbsp;&nbsp;Selection<font color=\"#000000\">.</font>Copy<br>"]
[469,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>A1<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[470,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[471,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>ＨＴＭＬ<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[472,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B11<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[473,"&nbsp;&nbsp;&nbsp;&nbsp;ActiveSheet<font color=\"#000000\">.</font>Paste<br>"]
[474,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;i&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">1</font>&nbsp;<font color=\"#ff0000\">To</font>&nbsp;k&nbsp;<font color=\"#000000\">+</font>&nbsp;<font color=\"#000000\">4</font><br>"]
[475,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>A<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;i<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;i<br>"]
[476,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;i<br>"]
[477,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B1<font color=\"#000000\">:</font>B<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;k&nbsp;<font color=\"#000000\">+</font>&nbsp;<font color=\"#000000\">4)</font><font color=\"#000000\">.</font>Select<br>"]
[478,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[479,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'終了処理</font><br>"]
[480,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Set</font>&nbsp;myReg&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">Nothing</font><br>"]
[481,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>ＶＢＡコード<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[482,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B6<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[483,"&nbsp;&nbsp;&nbsp;&nbsp;Application<font color=\"#000000\">.</font>CutCopyMode&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font><br>"]
[484,"<br>"]
[485,"<font color=\"#ff0000\">End&nbsp;Sub</font><br>"]
[486,"</font>"]
[487,"</font>"]
[488,"</body>"]
[489,"</html>"]

{"sheet":"エクセルに貼り付け","index":2,"n_rows":485,"n_cols":2,"rows_kept":485,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[11,"Option Explicit"]
[12]
[13,"'コード消去"]
[14,"Sub test01()"]
[15]
[16,"    '初期化"]
[17,"    Range(\"A11:B11\").Select"]
[18,"    Range(Selection, Selection.End(xlDown)).Select"]
[19,"    Selection.ClearContents"]
[20,"    Range(\"B6\").Select"]
[21]
[22,"End Sub"]
[23]
[24,"'変換実行"]
[25,"Sub test02()"]
[26]
[27,"    '変数宣言"]
[28,"    Dim i           As Long"]
[29,"    Dim j           As Long"]
[30,"    Dim k           As Long"]
[31,"    Dim buf(30)     As String"]
[32,"    Dim myStrD(500) As String"]
[33,"    Dim myReg       As Object"]
[34,"    Dim myMatches   As Object"]
[35,"    Dim myPattern   As String"]
[36,"    Dim myRange     As Range"]
[37,"    "]
[38,"    '変数設定"]
[39,"    Set myReg = CreateObject(\"VBScript.RegExp\")"]
[40,"    k = Cells(Rows.Count, 2).End(xlUp).Row"]
[41,"    "]
[42,"    buf(11) = Worksheets(\"マスター設定\").Range(\"B2\")"]
[43,"    buf(12) = Worksheets(\"マスター設定\").Range(\"B3\")"]
[44,"    buf(13) = Worksheets(\"マスター設定\").Range(\"C2\")"]
[45,"    buf(14) = Worksheets(\"マスター設定\").Range(\"C3\")"]
[46,"    buf(15) = Worksheets(\"マスター設定\").Range(\"D2\")"]
[47,"    buf(16) = Worksheets(\"マスター設定\").Range(\"D3\")"]
[48,"    buf(17) = Worksheets(\"マスター設定\").Range(\"E2\")"]
[49,"    buf(18) = Worksheets(\"マスター設定\").Range(\"E3\")"]
[50,"    "]
[51,"    buf(21) = Worksheets(\"マスター設定\").Range(\"B4\")"]
[52,"    buf(22) = Worksheets(\"マスター設定\").Range(\"B5\")"]
[53,"    buf(23) = Worksheets(\"マスター設定\").Range(\"C4\")"]
[54,"    buf(24) = Worksheets(\"マスター設定\").Range(\"C5\")"]
[55,"    buf(25) = Worksheets(\"マスター設定\").Range(\"D4\")"]
[56,"    buf(26) = Worksheets(\"マスター設定\").Range(\"D5\")"]
[57,"    buf(27) = Worksheets(\"マスター設定\").Range(\"E4\")"]
[58,"    buf(28) = Worksheets(\"マスター設定\").Range(\"E5\")"]
[59,"    "]
[60,"    i = 6"]
[61,"    Do Until Worksheets(\"マスター設定\").Range(\"D\" & i) = \"\""]
[62,"        myStrD(i) = Worksheets(\"マスター設定\").Range(\"D\" & i)"]
[63,"        i = i + 1"]
[64,"    Loop"]
[65,"    "]
[66,"    '初期化"]
[67,"    Columns(\"A:A\").Select"]
[68,"    Selection.ClearContents"]
[69,"    "]
[70,"    Worksheets(\"ＨＴＭＬ\").Select"]
[71,"    Columns(\"A:B\").Select"]
[72,"    Selection.ClearContents"]
[73,"    "]
[74,"    Worksheets(\"作業用\").Select"]
[75,"    Columns(\"A:B\").Select"]
[76,"    Selection.ClearContents"]
[77,"    "]
[78,"    Worksheets(\"ＶＢＡコード\").Select"]
[79,"    For i = 11 To k"]
[80,"        Range(\"A\" & i) = i"]
[81,"    Next i"]
[82,"    Range(\"A11:B11\").Select"]
[83,"    Range(Selection, Selection.End(xlDown)).Select"]
[84,"    Selection.Copy"]
[85,"    "]
[86,"    Worksheets(\"作業用\").Select"]
[87,"    Range(\"A11\").Select"]
[88,"    ActiveSheet.Paste"]
[89,"    "]
[90,"    '①標準コード（数値）"]
[91,"    myPattern = \"(\\b\\d+\\b)\""]
[92]
[93,"    With myReg"]
[94]
[95,"        .Pattern = myPattern '検索パターンを設定"]
[96,"        .IgnoreCase = False  '大文字と小文字を区別する"]
[97,"        .Global = True       '文字列全体を検索"]
[98]
[99,"        For Each myRange In ActiveSheet.UsedRange"]
[100]
[101,"            If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[102,"                '何もしない"]
[103,"            Else"]
[104,"                If .Test(myRange.Formula) = True Then"]
[105,"                    myRange.Value = myReg.Replace(myRange.Value, buf(11) & \"$1\" & buf(12))"]
[106,"                End If"]
[107,"            End If"]
[108]
[109,"        Next myRange"]
[110]
[111,"    End With"]
[112]
[113,"    '②標準コード（演算子、等号、不等号）"]
[114,"    myPattern = \"(\\s)(\\+|-|\\*|/|\\\\|Mod|=|<>|>=|>|<=|<|\\^|&)(\\s)\""]
[115]
[116,"    With myReg"]
[117]
[118,"        .Pattern = myPattern '検索パターンを設定"]
[119,"        .IgnoreCase = False  '大文字と小文字を区別する"]
[120,"        .Global = True       '文字列全体を検索"]
[121]
[122,"        For Each myRange In ActiveSheet.UsedRange"]
[123]
[124,"            If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[125,"                '何もしない"]
[126,"            Else"]
[127,"                If .Test(myRange.Formula) = True Then"]
[128,"                    myRange.Value = myReg.Replace(myRange.Value, \"$1\" & buf(11) & \"$2\" & buf(12) & \"$3\")"]
[129,"                End If"]
[130,"            End If"]
[131]
[132,"        Next myRange"]
[133]
[134,"    End With"]
[135]
[136,"    '③標準コード（記号）"]
[137,"     myPattern = \"(\" & Chr(34) & \"|\\.|,|:=|:|;|\\(|\\)|_)\""]
[138]
[139,"     With myReg"]
[140]
[141,"        .Pattern = myPattern '検索パターンを設定"]
[142,"        .IgnoreCase = False  '大文字と小文字を区別する"]
[143,"        .Global = True       '文字列全体を検索"]
[144]
[145,"        For Each myRange In ActiveSheet.UsedRange"]
[146]
[147,"            If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[148,"                '何もしない"]
[149,"            Else"]
[150,"                If .Test(myRange.Formula) = True Then"]
[151,"                    myRange.Value = myReg.Replace(myRange.Value, buf(11) & \"$1\" & buf(12))"]
[152,"                End If"]
[153,"            End If"]
[154]
[155,"        Next myRange"]
[156]
[157,"    End With"]
[158,"    "]
[159,"    '④キーワード"]
[160,"    i = 6"]
[161,"    Do Until Worksheets(\"マスター設定\").Range(\"D\" & i) = \"\""]
[162,"        "]
[163,"        myPattern = \"(\\b\" & myStrD(i) & \"\\b)\""]
[164,"        "]
[165,"        With myReg"]
[166,"        "]
[167,"            .Pattern = myPattern '検索パターンを設定"]
[168,"            .IgnoreCase = False  '大文字と小文字を区別する"]
[169,"            .Global = True       '文字列全体を検索"]
[170,"            "]
[171,"            For Each myRange In ActiveSheet.UsedRange"]
[172,"                "]
[173,"                If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[174,"                    '何もしない"]
[175,"                Else"]
[176,"                    If .Test(myRange.Formula) = True Then"]
[177,"                    myRange.Value = myReg.Replace(myRange.Value, buf(15) & \"$1\" & buf(16))"]
[178,"                    End If"]
[179,"                End If"]
[180,"                "]
[181,"            Next myRange"]
[182,"        "]
[183,"        End With"]
[184,"    "]
[185,"        i = i + 1"]
[186,"        "]
[187,"    Loop"]
[188,"    "]
[189,"    '⑤コメント（行中）"]
[190,"    myPattern = \"(\\s)('.+)\""]
[191]
[192,"    With myReg"]
[193]
[194,"        .Pattern = myPattern '検索パターンを設定"]
[195,"        .IgnoreCase = False  '大文字と小文字を区別する"]
[196,"        .Global = True       '文字列全体を検索"]
[197]
[198,"        For Each myRange In ActiveSheet.UsedRange"]
[199]
[200,"            If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[201,"                '何もしない"]
[202,"            Else"]
[203,"                If .Test(myRange.Formula) = True Then"]
[204,"                    myRange.Value = myReg.Replace(myRange.Value, \"$1\" & buf(13) & \"$2\" & buf(14))"]
[205,"                End If"]
[206,"            End If"]
[207]
[208,"        Next myRange"]
[209]
[210,"    End With"]
[211]
[212,"    '⑥文字列"]
[213,"    myPattern = \"(\" & Chr(34) & \".+?\" & Chr(34) & \")\""]
[214]
[215,"    With myReg"]
[216]
[217,"        .Pattern = myPattern '検索パターンを設定"]
[218,"        .IgnoreCase = False  '大文字と小文字を区別する"]
[219,"        .Global = True       '文字列全体を検索"]
[220]
[221,"        For Each myRange In ActiveSheet.UsedRange"]
[222]
[223,"            If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[224,"                '何もしない"]
[225,"            Else"]
[226,"                If .Test(myRange.Formula) = True Then"]
[227,"                    myRange.Value = myReg.Replace(myRange.Value, buf(11) & \"$1\" & buf(12))"]
[228,"                End If"]
[229,"            End If"]
[230]
[231,"        Next myRange"]
[232]
[233,"    End With"]
[234,"    "]
[235,"    '⑦コメント（行頭）"]
[236,"    For i = 11 To k"]
[237]
[238,"        If Left(Worksheets(\"ＶＢＡコード\").Range(\"B\" & i), 1) = \"'\" Then"]
[239,"            Range(\"B\" & i) = buf(13) & Worksheets(\"ＶＢＡコード\").Range(\"B\" & i) & buf(14)"]
[240,"        End If"]
[241]
[242,"    Next i"]
[243,"    "]
[244,"    '⑧余分なダミーを削除"]
[245,"    "]
[246,"        '標準コード"]
[247,"        myPattern = \"(\" & buf(11) & \")\" & \"(.+?)\" & \"(\" & buf(12) & \")\" & \"(\" & buf(11) & \")\" & \"(.+?)\" & \"(\" & buf(12) & \")\""]
[248,"        "]
[249,"        With myReg"]
[250,"    "]
[251,"            .Pattern = myPattern '検索パターンを設定"]
[252,"            .IgnoreCase = False  '大文字と小文字を区別する"]
[253,"            .Global = True       '文字列全体を検索"]
[254,"    "]
[255,"            For Each myRange In ActiveSheet.UsedRange"]
[256,"    "]
[257,"                If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[258,"                    '何もしない"]
[259,"                Else"]
[260,"                    If .Test(myRange.Formula) = True Then"]
[261,"                        myRange.Value = myReg.Replace(myRange.Value, \"$1\" & \"$2\" & \"$5\" & \"$6\")"]
[262,"                    End If"]
[263,"                End If"]
[264,"    "]
[265,"            Next myRange"]
[266,"    "]
[267,"        End With"]
[268]
[269,"        'コメント"]
[270,"        myPattern = \"(\" & buf(13) & \")\" & \"(.+?)\" & \"(\" & buf(14) & \")\" & \"(\" & buf(13) & \")\" & \"(.+?)\" & \"(\" & buf(14) & \")\""]
[271]
[272,"        With myReg"]
[273]
[274,"            .Pattern = myPattern '検索パターンを設定"]
[275,"            .IgnoreCase = False  '大文字と小文字を区別する"]
[276,"            .Global = True       '文字列全体を検索"]
[277]
[278,"            For Each myRange In ActiveSheet.UsedRange"]
[279]
[280,"                If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[281,"                    '何もしない"]
[282,"                Else"]
[283,"                    If .Test(myRange.Formula) = True Then"]
[284,"                        myRange.Value = myReg.Replace(myRange.Value, \"$1\" & \"$2\" & \"$5\" & \"$6\")"]
[285,"                    End If"]
[286,"                End If"]
[287]
[288,"            Next myRange"]
[289]
[290,"        End With"]
[291]
[292,"        'キーワード"]
[293,"        myPattern = \"(\" & buf(15) & \")\" & \"(.+?)\" & \"(\" & buf(16) & \")\" & \"(\" & buf(15) & \")\" & \"(.+?)\" & \"(\" & buf(16) & \")\""]
[294]
[295,"        With myReg"]
[296]
[297,"            .Pattern = myPattern '検索パターンを設定"]
[298,"            .IgnoreCase = False  '大文字と小文字を区別する"]
[299,"            .Global = True       '文字列全体を検索"]
[300]
[301,"            For Each myRange In ActiveSheet.UsedRange"]
[302]
[303,"                If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[304,"                    '何もしない"]
[305,"                Else"]
[306,"                    If .Test(myRange.Formula) = True Then"]
[307,"                        myRange.Value = myReg.Replace(myRange.Value, \"$1\" & \"$2\" & \"$5\" & \"$6\")"]
[308,"                    End If"]
[309,"                End If"]
[310]
[311,"            Next myRange"]
[312]
[313,"        End With"]
[314,"        "]
[315,"    '⑨ＨＴＭＬの特殊文字を処理"]
[316,"        '＆"]
[317,"        myPattern = \"(&)\""]
[318]
[319,"        With myReg"]
[320]
[321,"            .Pattern = myPattern '検索パターンを設定"]
[322,"            .IgnoreCase = False  '大文字と小文字を区別する"]
[323,"            .Global = True       '文字列全体を検索"]
[324]
[325,"            For Each myRange In ActiveSheet.UsedRange"]
[326]
[327,"                If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[328,"                    '何もしない"]
[329,"                Else"]
[330,"                    If .Test(myRange.Formula) = True Then"]
[331,"                        myRange.Value = myReg.Replace(myRange.Value, \"&amp;\")"]
[332,"                    End If"]
[333,"                End If"]
[334]
[335,"            Next myRange"]
[336]
[337,"        End With"]
[338,"    "]
[339,"        '半角スペース"]
[340,"        myPattern = \"( )\""]
[341,"    "]
[342,"        With myReg"]
[343,"    "]
[344,"            .Pattern = myPattern '検索パターンを設定"]
[345,"            .IgnoreCase = False  '大文字と小文字を区別する"]
[346,"            .Global = True       '文字列全体を検索"]
[347,"    "]
[348,"            For Each myRange In ActiveSheet.UsedRange"]
[349,"    "]
[350,"                If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[351,"                    '何もしない"]
[352,"                Else"]
[353,"                    If .Test(myRange.Formula) = True Then"]
[354,"                        myRange.Value = myReg.Replace(myRange.Value, \"&nbsp;\")"]
[355,"                    End If"]
[356,"                End If"]
[357,"    "]
[358,"            Next myRange"]
[359,"    "]
[360,"        End With"]
[361,"        "]
[362,"        '＜"]
[363,"        myPattern = \"(<)\""]
[364,"    "]
[365,"        With myReg"]
[366,"    "]
[367,"            .Pattern = myPattern '検索パターンを設定"]
[368,"            .IgnoreCase = False  '大文字と小文字を区別する"]
[369,"            .Global = True       '文字列全体を検索"]
[370,"    "]
[371,"            For Each myRange In ActiveSheet.UsedRange"]
[372,"    "]
[373,"                If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[374,"                    '何もしない"]
[375,"                Else"]
[376,"                    If .Test(myRange.Formula) = True Then"]
[377,"                        myRange.Value = myReg.Replace(myRange.Value, \"&lt;\")"]
[378,"                    End If"]
[379,"                End If"]
[380,"    "]
[381,"            Next myRange"]
[382,"    "]
[383,"        End With"]
[384,"        "]
[385,"        '＞"]
[386,"        myPattern = \"(>)\""]
[387,"    "]
[388,"        With myReg"]
[389,"    "]
[390,"            .Pattern = myPattern '検索パターンを設定"]
[391,"            .IgnoreCase = False  '大文字と小文字を区別する"]
[392,"            .Global = True       '文字列全体を検索"]
[393,"    "]
[394,"            For Each myRange In ActiveSheet.UsedRange"]
[395,"    "]
[396,"                If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[397,"                    '何もしない"]
[398,"                Else"]
[399,"                    If .Test(myRange.Formula) = True Then"]
[400,"                        myRange.Value = myReg.Replace(myRange.Value, \"&gt;\")"]
[401,"                    End If"]
[402,"                End If"]
[403,"    "]
[404,"            Next myRange"]
[405,"    "]
[406,"        End With"]
[407,"        "]
[408,"        '”"]
[409,"        myPattern = \"(\" & Chr(34) & \")\""]
[410]
[411,"        With myReg"]
[412]
[413,"            .Pattern = myPattern '検索パターンを設定"]
[414,"            .IgnoreCase = False  '大文字と小文字を区別する"]
[415,"            .Global = True       '文字列全体を検索"]
[416]
[417,"            For Each myRange In ActiveSheet.UsedRange"]
[418]
[419,"                If Len(myRange.Value) = 0 Or IsNumeric(myRange) = True Then"]
[420,"                    '何もしない"]
[421,"                Else"]
[422,"                    If .Test(myRange.Formula) = True Then"]
[423,"                        myRange.Value = myReg.Replace(myRange.Value, \"&quot;\")"]
[424,"                    End If"]
[425,"                End If"]
[426]
[427,"            Next myRange"]
[428]
[429,"        End With"]
[430,"    "]
[431,"    '⑩ダミーを変更"]
[432,"    For i = 11 To 18"]
[433,"    "]
[434,"        Cells.Replace What:=buf(i), Replacement:=buf(i + 10), LookAt:=xlPart, _"]
[435,"            SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _"]
[436,"            ReplaceFormat:=False"]
[437,"    "]
[438,"    Next i"]
[439,"    "]
[440,"    '⑪行の最後に＜ｂｒ＞を追記"]
[441,"    For i = 11 To k"]
[442,"        "]
[443,"        Range(\"B\" & i) = Range(\"B\" & i) & \"<br>\""]
[444,"    Next i"]
[445,"    "]
[446,"    'ＨＴＭＬを作成"]
[447,"    Worksheets(\"マスター設定\").Select"]
[448,"    Range(\"F2:F11\").Select"]
[449,"    Selection.Copy"]
[450,"    "]
[451,"    Worksheets(\"ＨＴＭＬ\").Select"]
[452,"    Range(\"B1\").Select"]
[453,"    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _"]
[454,"        :=False, Transpose:=False"]
[455,"    "]
[456,"    Worksheets(\"マスター設定\").Select"]
[457,"    Range(\"F18:F21\").Select"]
[458,"    Selection.Copy"]
[459,"    Range(\"A1\").Select"]
[460,"    "]
[461,"    Worksheets(\"ＨＴＭＬ\").Select"]
[462,"    Range(\"B\" & k + 1).Select"]
[463,"    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _"]
[464,"        :=False, Transpose:=False"]
[465,"    "]
[466,"    Worksheets(\"作業用\").Select"]
[467,"    Range(\"B11:B\" & k).Select"]
[468,"    Selection.Copy"]
[469,"    Range(\"A1\").Select"]
[470,"    "]
[471,"    Worksheets(\"ＨＴＭＬ\").Select"]
[472,"    Range(\"B11\").Select"]
[473,"    ActiveSheet.Paste"]
[474,"    For i = 1 To k + 4"]
[475,"        Range(\"A\" & i) = i"]
[476,"    Next i"]
[477,"    Range(\"B1:B\" & k + 4).Select"]
[478,"    "]
[479,"    '終了処理"]
[480,"    Set myReg = Nothing"]
[481,"    Worksheets(\"ＶＢＡコード\").Select"]
[482,"    Range(\"B6\").Select"]
[483,"    Application.CutCopyMode = False"]
[484]
[485,"End Sub"]

{"sheet":"マスター設定","index":3,"n_rows":118,"n_cols":6,"rows_kept":118,"cut":false,"hidden":false,"merged":[]}
[null,"標準コード","コメント","キーワード","識別子","ＨＴＭＬ上部（ＨＴＭＬ）"]
["前ダミー","dummy1A","dummy2A","dummy3A","dummy4A","<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">"]
["後ダミー","dummy1B","dummy2B","dummy3B","dummy4B","<html>"]
["前に挿入","<font color=\"#000000\">","<font color=\"#009900\">","<font color=\"#ff0000\">","<font color=\"#0000ff\">","<head>"]
["後に挿入","</font>","</font>","</font>","</font>","<meta http-equiv=\"Content-Type\" content=\"text/html; charset=Shift_JIS\">"]
[null,null,null,"And",null,"<meta name=\"keywords\" content=\"Ｅｘｃｅｌ２０１３,ＶＢＡ,コード,カラー,印刷\">"]
[null,null,null,"Append",null,"<title>Ｅｘｃｅｌ２０１３、ＶＢＡコードをカラーで印刷する方法</title>"]
[null,null,null,"As",null,"</head>"]
[null,null,null,"Base",null,"<body>"]
[null,null,null,"Boolean",null,"<font face='ＭＳ ゴシック'>"]
[null,null,null,"Byte",null,{"$f":"+マスター設定!$E$4","v":"<font color=\"#0000ff\">"}]
[null,null,null,"ByVal"]
[null,null,null,"Call"]
[null,null,null,"Case"]
[null,null,null,"Cbool"]
[null,null,null,"Cbyte"]
[null,null,null,"Ccur",null,"ＨＴＭＬ下部（ＨＴＭＬ）"]
[null,null,null,"Cdate",null,"</font>"]
[null,null,null,"CDbl",null,"</font>"]
[null,null,null,"Cdec",null,"</body>"]
[null,null,null,"Cint",null,"</html>"]
[null,null,null,"CLng"]
[null,null,null,"Close"]
[null,null,null,"Compare"]
[null,null,null,"Const"]
[null,null,null,"CSng"]
[null,null,null,"CStr"]
[null,null,null,"Currency"]
[null,null,null,"Cvar"]
[null,null,null,"Date"]
[null,null,null,"Debug"]
[null,null,null,"Declare"]
[null,null,null,"DefBool"]
[null,null,null,"DefByte"]
[null,null,null,"DefCur"]
[null,null,null,"DefDate"]
[null,null,null,"DefDbl"]
[null,null,null,"DefDec"]
[null,null,null,"DefInt"]
[null,null,null,"DefLng"]
[null,null,null,"DefObj"]
[null,null,null,"DefSng"]
[null,null,null,"DefStr"]
[null,null,null,"DefVar"]
[null,null,null,"Dim"]
[null,null,null,"Do"]
[null,null,null,"Double"]
[null,null,null,"Each"]
[null,null,null,"Else"]
[null,null,null,"ElseIf"]
[null,null,null,"End Enum"]
[null,null,null,"End If"]
[null,null,null,"End Select"]
[null,null,null,"End Sub"]
[null,null,null,"End With"]
[null,null,null,"Enum"]
[null,null,null,"Eqv"]
[null,null,null,"Erase"]
[null,null,null,"Error"]
[null,null,null,"Exit"]
[null,null,null,"Explicit"]
[null,null,null,"For"]
[null,null,null,"Function"]
[null,null,null,"Get"]
[null,null,null,"GoSub"]
[null,null,null,"GoTo"]
[null,null,null,"If"]
[null,null,null,"Imp"]
[null,null,null,"In"]
[null,null,null,"Input"]
[null,null,null,"Integer"]
[null,null,null,"Is"]
[null,null,null,"LBound"]
[null,null,null,"Let"]
[null,null,null,"Like"]
[null,null,null,"Line"]
[null,null,null,"Long"]
[null,null,null,"Loop"]
[null,null,null,"Module"]
[null,null,null,"Next"]
[null,null,null,"Not"]
[null,null,null,"Nothing"]
[null,null,null,"Object"]
[null,null,null,"On"]
[null,null,null,"Open"]
[null,null,null,"Option"]
[null,null,null,"Optional"]
[null,null,null,"Or"]
[null,null,null,"Output"]
[null,null,null,"Print"]
[null,null,null,"Private"]
[null,null,null,"Property"]
[null,null,null,"Public"]
[null,null,null,"Put"]
[null,null,null,"ReDim"]
[null,null,null,"Resume"]
[null,null,null,"Return"]
[null,null,null,"RSet"]
[null,null,null,"Seek"]
[null,null,null,"Select Case"]
[null,null,null,"Set"]
[null,null,null,"Single"]
[null,null,null,"Static"]
[null,null,null,"Stop"]
[null,null,null,"String"]
[null,null,null,"Sub"]
[null,null,null,"Then"]
[null,null,null,"To"]
[null,null,null,"Type"]
[null,null,null,"UBound"]
[null,null,null,"Until"]
[null,null,null,"Variant"]
[null,null,null,"Wend"]
[null,null,null,"While"]
[null,null,null,"With"]
[null,null,null,"Xor"]
[null,null,null,"False"]
[null,null,null,"True"]

{"sheet":"作業用","index":4,"n_rows":485,"n_cols":2,"rows_kept":485,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[11,"<font color=\"#ff0000\">Option</font>&nbsp;<font color=\"#ff0000\">Explicit</font><br>"]
[12,"<br>"]
[13,"<font color=\"#009900\">'コード消去</font><br>"]
[14,"<font color=\"#ff0000\">Sub</font>&nbsp;test01<font color=\"#000000\">()</font><br>"]
[15,"<br>"]
[16,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'初期化</font><br>"]
[17,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>A11<font color=\"#000000\">:</font>B11<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[18,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(</font>Selection<font color=\"#000000\">,</font>&nbsp;Selection<font color=\"#000000\">.</font>End<font color=\"#000000\">(</font>xlDown<font color=\"#000000\">))</font><font color=\"#000000\">.</font>Select<br>"]
[19,"&nbsp;&nbsp;&nbsp;&nbsp;Selection<font color=\"#000000\">.</font>ClearContents<br>"]
[20,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B6<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[21,"<br>"]
[22,"<font color=\"#ff0000\">End&nbsp;Sub</font><br>"]
[23,"<br>"]
[24,"<font color=\"#009900\">'変換実行</font><br>"]
[25,"<font color=\"#ff0000\">Sub</font>&nbsp;test02<font color=\"#000000\">()</font><br>"]
[26,"<br>"]
[27,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'変数宣言</font><br>"]
[28,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Dim</font>&nbsp;i&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">As</font>&nbsp;<font color=\"#ff0000\">Long</font><br>"]
[29,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Dim</font>&nbsp;j&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">As</font>&nbsp;<font color=\"#ff0000\">Long</font><br>"]
[30,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Dim</font>&nbsp;k&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">As</font>&nbsp;<font color=\"#ff0000\">Long</font><br>"]
[31,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Dim</font>&nbsp;buf<font color=\"#000000\">(30</font><font color=\"#000000\">)</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">As</font>&nbsp;<font color=\"#ff0000\">String</font><br>"]
[32,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Dim</font>&nbsp;myStrD<font color=\"#000000\">(500</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#ff0000\">As</font>&nbsp;<font color=\"#ff0000\">String</font><br>"]
[33,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Dim</font>&nbsp;myReg&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">As</font>&nbsp;<font color=\"#ff0000\">Object</font><br>"]
[34,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Dim</font>&nbsp;myMatches&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">As</font>&nbsp;<font color=\"#ff0000\">Object</font><br>"]
[35,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Dim</font>&nbsp;myPattern&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">As</font>&nbsp;<font color=\"#ff0000\">String</font><br>"]
[36,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Dim</font>&nbsp;myRange&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">As</font>&nbsp;Range<br>"]
[37,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[38,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'変数設定</font><br>"]
[39,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Set</font>&nbsp;myReg&nbsp;<font color=\"#000000\">=</font>&nbsp;CreateObject<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>VBScript<font color=\"#000000\">.</font>RegExp<font color=\"#000000\">&quot;</font>)</font><br>"]
[40,"&nbsp;&nbsp;&nbsp;&nbsp;k&nbsp;<font color=\"#000000\">=</font>&nbsp;Cells<font color=\"#000000\">(</font>Rows<font color=\"#000000\">.</font>Count<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\">2)</font><font color=\"#000000\">.</font>End<font color=\"#000000\">(</font>xlUp<font color=\"#000000\">).</font>Row<br>"]
[41,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[42,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(11</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B2<font color=\"#000000\">&quot;</font>)</font><br>"]
[43,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(12</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B3<font color=\"#000000\">&quot;</font>)</font><br>"]
[44,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(13</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>C2<font color=\"#000000\">&quot;</font>)</font><br>"]
[45,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(14</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>C3<font color=\"#000000\">&quot;</font>)</font><br>"]
[46,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(15</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>D2<font color=\"#000000\">&quot;</font>)</font><br>"]
[47,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(16</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>D3<font color=\"#000000\">&quot;</font>)</font><br>"]
[48,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(17</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>E2<font color=\"#000000\">&quot;</font>)</font><br>"]
[49,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(18</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>E3<font color=\"#000000\">&quot;</font>)</font><br>"]
[50,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[51,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(21</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B4<font color=\"#000000\">&quot;</font>)</font><br>"]
[52,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(22</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B5<font color=\"#000000\">&quot;</font>)</font><br>"]
[53,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(23</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>C4<font color=\"#000000\">&quot;</font>)</font><br>"]
[54,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(24</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>C5<font color=\"#000000\">&quot;</font>)</font><br>"]
[55,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(25</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>D4<font color=\"#000000\">&quot;</font>)</font><br>"]
[56,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(26</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>D5<font color=\"#000000\">&quot;</font>)</font><br>"]
[57,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(27</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>E4<font color=\"#000000\">&quot;</font>)</font><br>"]
[58,"&nbsp;&nbsp;&nbsp;&nbsp;buf<font color=\"#000000\">(28</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>E5<font color=\"#000000\">&quot;</font>)</font><br>"]
[59,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[60,"&nbsp;&nbsp;&nbsp;&nbsp;i&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">6</font><br>"]
[61,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Do</font>&nbsp;<font color=\"#ff0000\">Until</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>D<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;i<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;&quot;</font></font><br>"]
[62,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myStrD<font color=\"#000000\">(</font>i<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>D<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;i<font color=\"#000000\">)</font><br>"]
[63,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;i&nbsp;<font color=\"#000000\">=</font>&nbsp;i&nbsp;<font color=\"#000000\">+</font>&nbsp;<font color=\"#000000\">1</font><br>"]
[64,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Loop</font><br>"]
[65,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[66,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'初期化</font><br>"]
[67,"&nbsp;&nbsp;&nbsp;&nbsp;Columns<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>A<font color=\"#000000\">:</font>A<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[68,"&nbsp;&nbsp;&nbsp;&nbsp;Selection<font color=\"#000000\">.</font>ClearContents<br>"]
[69,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[70,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>ＨＴＭＬ<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[71,"&nbsp;&nbsp;&nbsp;&nbsp;Columns<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>A<font color=\"#000000\">:</font>B<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[72,"&nbsp;&nbsp;&nbsp;&nbsp;Selection<font color=\"#000000\">.</font>ClearContents<br>"]
[73,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[74,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>作業用<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[75,"&nbsp;&nbsp;&nbsp;&nbsp;Columns<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>A<font color=\"#000000\">:</font>B<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[76,"&nbsp;&nbsp;&nbsp;&nbsp;Selection<font color=\"#000000\">.</font>ClearContents<br>"]
[77,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[78,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>ＶＢＡコード<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[79,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;i&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">11</font>&nbsp;<font color=\"#ff0000\">To</font>&nbsp;k<br>"]
[80,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>A<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;i<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;i<br>"]
[81,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;i<br>"]
[82,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>A11<font color=\"#000000\">:</font>B11<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[83,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(</font>Selection<font color=\"#000000\">,</font>&nbsp;Selection<font color=\"#000000\">.</font>End<font color=\"#000000\">(</font>xlDown<font color=\"#000000\">))</font><font color=\"#000000\">.</font>Select<br>"]
[84,"&nbsp;&nbsp;&nbsp;&nbsp;Selection<font color=\"#000000\">.</font>Copy<br>"]
[85,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[86,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>作業用<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[87,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>A11<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[88,"&nbsp;&nbsp;&nbsp;&nbsp;ActiveSheet<font color=\"#000000\">.</font>Paste<br>"]
[89,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[90,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'①標準コード（数値）</font><br>"]
[91,"&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font>\\b\\d+\\b<font color=\"#000000\">)&quot;</font></font><br>"]
[92,"<br>"]
[93,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[94,"<br>"]
[95,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[96,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[97,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[98,"<br>"]
[99,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[100,"<br>"]
[101,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[102,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[103,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[104,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[105,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;buf<font color=\"#000000\">(11</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">1&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(12</font><font color=\"#000000\">))</font><br>"]
[106,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[107,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[108,"<br>"]
[109,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[110,"<br>"]
[111,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[112,"<br>"]
[113,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'②標準コード（演算子、等号、不等号）</font><br>"]
[114,"&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font>\\s<font color=\"#000000\">)(</font>\\+|-|\\*|/|\\\\|Mod|=|&lt;&gt;|&gt;=|&gt;|&lt;=|&lt;|\\^|&amp;<font color=\"#000000\">)(</font>\\s<font color=\"#000000\">)&quot;</font></font><br>"]
[115,"<br>"]
[116,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[117,"<br>"]
[118,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[119,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[120,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[121,"<br>"]
[122,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[123,"<br>"]
[124,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[125,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[126,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[127,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[128,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">1&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(11</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">2&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(12</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">3&quot;</font></font><font color=\"#000000\">)</font><br>"]
[129,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[130,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[131,"<br>"]
[132,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[133,"<br>"]
[134,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[135,"<br>"]
[136,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'③標準コード（記号）</font><br>"]
[137,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;Chr<font color=\"#000000\">(34</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>|\\<font color=\"#000000\">.</font>|<font color=\"#000000\">,</font>|<font color=\"#000000\">:=</font>|<font color=\"#000000\">:</font>|<font color=\"#000000\">;</font>|\\<font color=\"#000000\">(</font>|\\<font color=\"#000000\">)</font>|<font color=\"#000000\">_)</font><font color=\"#000000\">&quot;</font></font><br>"]
[138,"<br>"]
[139,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[140,"<br>"]
[141,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[142,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[143,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[144,"<br>"]
[145,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[146,"<br>"]
[147,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[148,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[149,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[150,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[151,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;buf<font color=\"#000000\">(11</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">1&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(12</font><font color=\"#000000\">))</font><br>"]
[152,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[153,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[154,"<br>"]
[155,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[156,"<br>"]
[157,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[158,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[159,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'④キーワード</font><br>"]
[160,"&nbsp;&nbsp;&nbsp;&nbsp;i&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">6</font><br>"]
[161,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Do</font>&nbsp;<font color=\"#ff0000\">Until</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>D<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;i<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;&quot;</font></font><br>"]
[162,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[163,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font>\\b<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;myStrD<font color=\"#000000\">(</font>i<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>\\b<font color=\"#000000\">)&quot;</font></font><br>"]
[164,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[165,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[166,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[167,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[168,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[169,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[170,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[171,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[172,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[173,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[174,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[175,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[176,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[177,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;buf<font color=\"#000000\">(15</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">1&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(16</font><font color=\"#000000\">))</font><br>"]
[178,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[179,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[180,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[181,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[182,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[183,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[184,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[185,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;i&nbsp;<font color=\"#000000\">=</font>&nbsp;i&nbsp;<font color=\"#000000\">+</font>&nbsp;<font color=\"#000000\">1</font><br>"]
[186,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[187,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Loop</font><br>"]
[188,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[189,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'⑤コメント（行中）</font><br>"]
[190,"&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font>\\s<font color=\"#000000\">)(</font>'<font color=\"#000000\">.</font>+<font color=\"#000000\">)&quot;</font></font><br>"]
[191,"<br>"]
[192,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[193,"<br>"]
[194,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[195,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[196,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[197,"<br>"]
[198,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[199,"<br>"]
[200,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[201,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[202,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[203,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[204,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">1&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(13</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">2&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(14</font><font color=\"#000000\">))</font><br>"]
[205,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[206,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[207,"<br>"]
[208,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[209,"<br>"]
[210,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[211,"<br>"]
[212,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'⑥文字列</font><br>"]
[213,"&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;Chr<font color=\"#000000\">(34</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;.</font>+?<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;Chr<font color=\"#000000\">(34</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font><br>"]
[214,"<br>"]
[215,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[216,"<br>"]
[217,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[218,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[219,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[220,"<br>"]
[221,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[222,"<br>"]
[223,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[224,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[225,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[226,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[227,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;buf<font color=\"#000000\">(11</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">1&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(12</font><font color=\"#000000\">))</font><br>"]
[228,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[229,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[230,"<br>"]
[231,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[232,"<br>"]
[233,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[234,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[235,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'⑦コメント（行頭）</font><br>"]
[236,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;i&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">11</font>&nbsp;<font color=\"#ff0000\">To</font>&nbsp;k<br>"]
[237,"<br>"]
[238,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Left<font color=\"#000000\">(</font>Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>ＶＢＡコード<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;i<font color=\"#000000\">),</font>&nbsp;<font color=\"#000000\">1)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>'<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[239,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;i<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;buf<font color=\"#000000\">(13</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>ＶＢＡコード<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;i<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(14</font><font color=\"#000000\">)</font><br>"]
[240,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[241,"<br>"]
[242,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;i<br>"]
[243,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[244,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'⑧余分なダミーを削除</font><br>"]
[245,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[246,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'標準コード</font><br>"]
[247,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(11</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">.</font>+?<font color=\"#000000\">)&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(12</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(11</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">.</font>+?<font color=\"#000000\">)&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(12</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font><br>"]
[248,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[249,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[250,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[251,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[252,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[253,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[254,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[255,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[256,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[257,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[258,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[259,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[260,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[261,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">1&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">2&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">5&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">6&quot;</font></font><font color=\"#000000\">)</font><br>"]
[262,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[263,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[264,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[265,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[266,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[267,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[268,"<br>"]
[269,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'コメント</font><br>"]
[270,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(13</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">.</font>+?<font color=\"#000000\">)&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(14</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(13</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">.</font>+?<font color=\"#000000\">)&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(14</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font><br>"]
[271,"<br>"]
[272,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[273,"<br>"]
[274,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[275,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[276,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[277,"<br>"]
[278,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[279,"<br>"]
[280,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[281,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[282,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[283,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[284,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">1&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">2&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">5&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">6&quot;</font></font><font color=\"#000000\">)</font><br>"]
[285,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[286,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[287,"<br>"]
[288,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[289,"<br>"]
[290,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[291,"<br>"]
[292,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'キーワード</font><br>"]
[293,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(15</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">.</font>+?<font color=\"#000000\">)&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(16</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(15</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">.</font>+?<font color=\"#000000\">)&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;buf<font color=\"#000000\">(16</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font><br>"]
[294,"<br>"]
[295,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[296,"<br>"]
[297,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[298,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[299,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[300,"<br>"]
[301,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[302,"<br>"]
[303,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[304,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[305,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[306,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[307,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">1&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">2&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">5&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>$<font color=\"#000000\">6&quot;</font></font><font color=\"#000000\">)</font><br>"]
[308,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[309,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[310,"<br>"]
[311,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[312,"<br>"]
[313,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[314,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[315,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'⑨ＨＴＭＬの特殊文字を処理</font><br>"]
[316,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'＆</font><br>"]
[317,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font>&amp;<font color=\"#000000\">)&quot;</font></font><br>"]
[318,"<br>"]
[319,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[320,"<br>"]
[321,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[322,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[323,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[324,"<br>"]
[325,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[326,"<br>"]
[327,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[328,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[329,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[330,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[331,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>&amp;amp<font color=\"#000000\">;&quot;</font></font><font color=\"#000000\">)</font><br>"]
[332,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[333,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[334,"<br>"]
[335,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[336,"<br>"]
[337,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[338,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[339,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'半角スペース</font><br>"]
[340,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font>&nbsp;<font color=\"#000000\">)&quot;</font></font><br>"]
[341,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[342,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[343,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[344,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[345,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[346,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[347,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[348,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[349,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[350,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[351,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[352,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[353,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[354,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>&amp;nbsp<font color=\"#000000\">;&quot;</font></font><font color=\"#000000\">)</font><br>"]
[355,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[356,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[357,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[358,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[359,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[360,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[361,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[362,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'＜</font><br>"]
[363,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font>&lt;<font color=\"#000000\">)&quot;</font></font><br>"]
[364,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[365,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[366,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[367,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[368,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[369,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[370,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[371,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[372,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[373,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[374,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[375,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[376,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[377,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>&amp;lt<font color=\"#000000\">;&quot;</font></font><font color=\"#000000\">)</font><br>"]
[378,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[379,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[380,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[381,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[382,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[383,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[384,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[385,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'＞</font><br>"]
[386,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font>&gt;<font color=\"#000000\">)&quot;</font></font><br>"]
[387,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[388,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[389,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[390,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[391,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[392,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[393,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[394,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[395,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[396,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[397,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[398,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[399,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[400,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>&amp;gt<font color=\"#000000\">;&quot;</font></font><font color=\"#000000\">)</font><br>"]
[401,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[402,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[403,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[404,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[405,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[406,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[407,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[408,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'”</font><br>"]
[409,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myPattern&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;(</font><font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;Chr<font color=\"#000000\">(34</font><font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;)</font><font color=\"#000000\">&quot;</font></font><br>"]
[410,"<br>"]
[411,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">With</font>&nbsp;myReg<br>"]
[412,"<br>"]
[413,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Pattern&nbsp;<font color=\"#000000\">=</font>&nbsp;myPattern&nbsp;<font color=\"#009900\">'検索パターンを設定</font><br>"]
[414,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>IgnoreCase&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font>&nbsp;&nbsp;<font color=\"#009900\">'大文字と小文字を区別する</font><br>"]
[415,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">.</font>Global&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'文字列全体を検索</font><br>"]
[416,"<br>"]
[417,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;<font color=\"#ff0000\">Each</font>&nbsp;myRange&nbsp;<font color=\"#ff0000\">In</font>&nbsp;ActiveSheet<font color=\"#000000\">.</font>UsedRange<br>"]
[418,"<br>"]
[419,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;Len<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">0</font>&nbsp;<font color=\"#ff0000\">Or</font>&nbsp;IsNumeric<font color=\"#000000\">(</font>myRange<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[420,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'何もしない</font><br>"]
[421,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Else</font><br>"]
[422,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">If</font>&nbsp;<font color=\"#000000\">.</font>Test<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Formula<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">True</font>&nbsp;<font color=\"#ff0000\">Then</font><br>"]
[423,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRange<font color=\"#000000\">.</font>Value&nbsp;<font color=\"#000000\">=</font>&nbsp;myReg<font color=\"#000000\">.</font>Replace<font color=\"#000000\">(</font>myRange<font color=\"#000000\">.</font>Value<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>&amp;quot<font color=\"#000000\">;&quot;</font></font><font color=\"#000000\">)</font><br>"]
[424,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[425,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;If</font><br>"]
[426,"<br>"]
[427,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;myRange<br>"]
[428,"<br>"]
[429,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">End&nbsp;With</font><br>"]
[430,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[431,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'⑩ダミーを変更</font><br>"]
[432,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;i&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">11</font>&nbsp;<font color=\"#ff0000\">To</font>&nbsp;<font color=\"#000000\">18</font><br>"]
[433,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[434,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Cells<font color=\"#000000\">.</font>Replace&nbsp;What<font color=\"#000000\">:=</font>buf<font color=\"#000000\">(</font>i<font color=\"#000000\">),</font>&nbsp;Replacement<font color=\"#000000\">:=</font>buf<font color=\"#000000\">(</font>i&nbsp;<font color=\"#000000\">+</font>&nbsp;<font color=\"#000000\">10)</font><font color=\"#000000\">,</font>&nbsp;LookAt<font color=\"#000000\">:=</font>xlPart<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\">_</font><br>"]
[435,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SearchOrder<font color=\"#000000\">:=</font>xlByRows<font color=\"#000000\">,</font>&nbsp;MatchCase<font color=\"#000000\">:=</font>True<font color=\"#000000\">,</font>&nbsp;SearchFormat<font color=\"#000000\">:=</font>False<font color=\"#000000\">,</font>&nbsp;<font color=\"#000000\">_</font><br>"]
[436,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ReplaceFormat<font color=\"#000000\">:=</font>False<br>"]
[437,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[438,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;i<br>"]
[439,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[440,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'⑪行の最後に＜ｂｒ＞を追記</font><br>"]
[441,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;i&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">11</font>&nbsp;<font color=\"#ff0000\">To</font>&nbsp;k<br>"]
[442,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[443,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;i<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;i<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;<font color=\"#000000\"><font color=\"#000000\">&quot;</font>&lt;br&gt;<font color=\"#000000\">&quot;</font></font><br>"]
[444,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;i<br>"]
[445,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[446,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'ＨＴＭＬを作成</font><br>"]
[447,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[448,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>F2<font color=\"#000000\">:</font>F11<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[449,"&nbsp;&nbsp;&nbsp;&nbsp;Selection<font color=\"#000000\">.</font>Copy<br>"]
[450,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[451,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>ＨＴＭＬ<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[452,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B1<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[453,"&nbsp;&nbsp;&nbsp;&nbsp;Selection<font color=\"#000000\">.</font>PasteSpecial&nbsp;Paste<font color=\"#000000\">:=</font>xlPasteValues<font color=\"#000000\">,</font>&nbsp;Operation<font color=\"#000000\">:=</font>xlNone<font color=\"#000000\">,</font>&nbsp;SkipBlanks&nbsp;<font color=\"#000000\">_</font><br>"]
[454,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">:=</font>False<font color=\"#000000\">,</font>&nbsp;Transpose<font color=\"#000000\">:=</font>False<br>"]
[455,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[456,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>マスター設定<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[457,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>F18<font color=\"#000000\">:</font>F21<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[458,"&nbsp;&nbsp;&nbsp;&nbsp;Selection<font color=\"#000000\">.</font>Copy<br>"]
[459,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>A1<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[460,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[461,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>ＨＴＭＬ<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[462,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;k&nbsp;<font color=\"#000000\">+</font>&nbsp;<font color=\"#000000\">1)</font><font color=\"#000000\">.</font>Select<br>"]
[463,"&nbsp;&nbsp;&nbsp;&nbsp;Selection<font color=\"#000000\">.</font>PasteSpecial&nbsp;Paste<font color=\"#000000\">:=</font>xlPasteValues<font color=\"#000000\">,</font>&nbsp;Operation<font color=\"#000000\">:=</font>xlNone<font color=\"#000000\">,</font>&nbsp;SkipBlanks&nbsp;<font color=\"#000000\">_</font><br>"]
[464,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#000000\">:=</font>False<font color=\"#000000\">,</font>&nbsp;Transpose<font color=\"#000000\">:=</font>False<br>"]
[465,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[466,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>作業用<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[467,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B11<font color=\"#000000\">:</font>B<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;k<font color=\"#000000\">).</font>Select<br>"]
[468,"&nbsp;&nbsp;&nbsp;&nbsp;Selection<font color=\"#000000\">.</font>Copy<br>"]
[469,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>A1<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[470,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[471,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>ＨＴＭＬ<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[472,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B11<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[473,"&nbsp;&nbsp;&nbsp;&nbsp;ActiveSheet<font color=\"#000000\">.</font>Paste<br>"]
[474,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">For</font>&nbsp;i&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#000000\">1</font>&nbsp;<font color=\"#ff0000\">To</font>&nbsp;k&nbsp;<font color=\"#000000\">+</font>&nbsp;<font color=\"#000000\">4</font><br>"]
[475,"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>A<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;i<font color=\"#000000\">)</font>&nbsp;<font color=\"#000000\">=</font>&nbsp;i<br>"]
[476,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Next</font>&nbsp;i<br>"]
[477,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B1<font color=\"#000000\">:</font>B<font color=\"#000000\">&quot;</font></font>&nbsp;<font color=\"#000000\">&amp;</font>&nbsp;k&nbsp;<font color=\"#000000\">+</font>&nbsp;<font color=\"#000000\">4)</font><font color=\"#000000\">.</font>Select<br>"]
[478,"&nbsp;&nbsp;&nbsp;&nbsp;<br>"]
[479,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#009900\">'終了処理</font><br>"]
[480,"&nbsp;&nbsp;&nbsp;&nbsp;<font color=\"#ff0000\">Set</font>&nbsp;myReg&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">Nothing</font><br>"]
[481,"&nbsp;&nbsp;&nbsp;&nbsp;Worksheets<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>ＶＢＡコード<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[482,"&nbsp;&nbsp;&nbsp;&nbsp;Range<font color=\"#000000\">(<font color=\"#000000\">&quot;</font>B6<font color=\"#000000\">&quot;</font>)</font><font color=\"#000000\">.</font>Select<br>"]
[483,"&nbsp;&nbsp;&nbsp;&nbsp;Application<font color=\"#000000\">.</font>CutCopyMode&nbsp;<font color=\"#000000\">=</font>&nbsp;<font color=\"#ff0000\">False</font><br>"]
[484,"<br>"]
[485,"<font color=\"#ff0000\">End&nbsp;Sub</font><br>"]