fix: Sorter表をH:I列からJ:K列に移動しFilter表との隣接によるテーブル自動結合を回避

F2:G2(Filter表)とH2:I2(Sorter表)が隣接していたため、ListObjects.Add実行時にExcelが1つの連続テーブルとして扱い「テーブルは他のテーブルと重ねることはできません」エラーが発生。間に1列(I列)空くよう配置変更。

XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas

@@ -321,8 +321,8 @@ Function BuildViewFromSheet() As Object
 
     Dim colSorter As New Dictionary
     r = 3
-    Do While Trim(defaultSh.Cells(r, "H").Value) <> ""
-        colSorter.Add defaultSh.Cells(r, "H").Value, defaultSh.Cells(r, "I").Value
+    Do While Trim(defaultSh.Cells(r, "J").Value) <> ""
+        colSorter.Add defaultSh.Cells(r, "J").Value, defaultSh.Cells(r, "K").Value
         r = r + 1
     Loop
 
@@ -533,7 +533,7 @@ Sub SetupFilterSorterTables()
 
     If sorterTbl Is Nothing Then
         Dim sorterHeader As Range
-        Set sorterHeader = ws.Range("H2:I2")
+        Set sorterHeader = ws.Range("J2:K2")
         sorterHeader.Cells(1, 1).Value = "—ñ–¼"
         sorterHeader.Cells(1, 2).Value = "<22>¸<EFBFBD>~<7E>‡"
         Set sorterTbl = ws.ListObjects.Add(xlSrcRange, sorterHeader, , xlYes)