'####################################### '方眼フォーマット 項目範囲取得 '####################################### Sub GetFieldArea() On Error GoTo Catch Dim i As Integer Dim j As Integer Dim rng As Range Dim strMergeArea As String Dim CN As ADODB.Connection Dim rsArea As ADODB.Recordset '新規に作成するレコードセット '新規にレコードセット…