' ' Private Sub Worksheet_Change(ByVal Target As Range) Dim Cellchk, CellsData As Range Set CellsData = Range("D2:D20") '表の範囲を把握します。 If Intersect(Target, CellsData) Is Nothing Then 'セルの変更が無いか判定します。 Exit Sub 'セル…

<table border="3"> <tr> <th>2次措置</th> <th>グループ</th> <th>商材1</th> <th>商材2</th> <th>商材3</th> <th>シンIPドメ,地域</th> <th>シン出品地域</th> <th>ログIPドメ</th> <th>ログUA</th> <th>ログTZ</th> <th>ログ要素</th> <th>H名義</th> <th>Hメアド</th> <th>他特徴①</th> <th>他特徴②</th> <th>他特徴③</th> <th>その他①</th> <th>その他②</th> <th>その他③</th> <th>そ…</th></tr></table>