diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index a5f67898..3a528182 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -599,10 +599,81 @@ Sub SetupFilterSorterTables()
 End Sub
 
 '******************************************************************************
-'�e�[�u��ID 96243�i�c�Ə��}�X�^�j��Export�����őS���擾���A�u�c�Ə��v�V�[�g�̃e�[�u�����X�V����
-'�\�[�g��NumA�����ŌŒ�BFilter�͎g�p���Ȃ��B�w�b�_�s�́u�c�Ə��v�V�[�g�̊����e�[�u���̂��̂����̂܂܎g���A
-'�G�N�X�|�[�g����CSV�̃w�b�_�s�i1�s�ځj�͎̂Ă�iexportCSVDataToSheet�͊����e�[�u��������ꍇ�A
-'�w�b�_�s�������������f�[�^�����̂ݍX�V����d�l�̂��߁A��������̂܂ܗ��p����j
+'���ɑ��݂���V�[�g�E�e�[�u���ɂ̂�CSV�f�[�^�i�w�b�_�s�������j���㏑������B
+'�e�[�u�����͖�킸�V�[�g��̍ŏ��̃e�[�u����Ώۂɂ���B�V�[�g��e�[�u�������݂��Ȃ��ꍇ��
+'�V�K�쐬�������b�Z�[�W���o���ďI������
+Function exportCSVDataToExistingTable(csvData As Variant, targetSheet As String)
+    Debug.Print "CSV�f�[�^�������e�[�u���ɏo�͊J�n: " & targetSheet
+
+    Dim ws As Worksheet
+    On Error Resume Next
+    Set ws = ThisWorkbook.Sheets(targetSheet)
+    On Error GoTo 0
+
+    If ws Is Nothing Then
+        MsgBox "�V�[�g�����݂��܂���: " & targetSheet, vbExclamation
+        Exit Function
+    End If
+
+    If ws.ListObjects.count = 0 Then
+        MsgBox "�e�[�u�������݂��܂���: " & targetSheet, vbExclamation
+        Exit Function
+    End If
+
+    Dim tbl As ListObject
+    Set tbl = ws.ListObjects(1)
+
+    Dim i As Long, j As Long
+    Dim arr() As Variant
+    Dim maxCols As Long
+
+    Dim rows As Collection
+    Set rows = ParseCsv(csvData)
+
+    If rows.count <= 1 Then
+        MsgBox "�f�[�^�����݂��܂���i�w�b�_�̂݁j: " & targetSheet, vbExclamation
+        Exit Function
+    End If
+
+    maxCols = 0
+    Dim rowArr As Variant
+    For Each rowArr In rows
+        If UBound(rowArr) + 1 > maxCols Then
+            maxCols = UBound(rowArr) + 1
+        End If
+    Next rowArr
+
+    ReDim arr(0 To rows.count - 1, 0 To maxCols - 1)
+
+    i = 0
+    For Each rowArr In rows
+        For j = LBound(rowArr) To UBound(rowArr)
+            arr(i, j) = rowArr(j)
+        Next j
+        i = i + 1
+    Next rowArr
+
+    If Not tbl.DataBodyRange Is Nothing Then
+        tbl.DataBodyRange.ClearContents
+    End If
+
+    tbl.Resize tbl.Range.Resize(rows.count, maxCols)
+
+    Dim dataArr() As Variant
+    ReDim dataArr(1 To rows.count - 1, 1 To maxCols)
+    For i = 1 To rows.count - 1
+        For j = 1 To maxCols
+            dataArr(i, j) = arr(i, j - 1)
+        Next j
+    Next i
+    tbl.DataBodyRange.Value = dataArr
+
+    Debug.Print "CSV�f�[�^�������e�[�u���ɏo�͊���: " & targetSheet
+End Function
+
+'�e�[�u��ID 96243�i�c�Ə��}�X�^�j��Export�����őS���擾���A�u�c�Ə��v�V�[�g�̊����e�[�u�����X�V����
+'�\�[�g��NumA�����ŌŒ�BFilter�͎g�p���Ȃ��B�w�b�_�s�͊����e�[�u���̂��̂����̂܂܎g���A
+'�G�N�X�|�[�g����CSV�̃w�b�_�s�i1�s�ځj�͎̂Ă�B�V�K�V�[�g�E�e�[�u���̍쐬�͍s��Ȃ�
 Sub runSalesOfficeExport()
     Call init
 
@@ -620,6 +691,6 @@ Sub runSalesOfficeExport()
     If IsEmpty(resData) Or resData = "" Then
         Debug.Print "�f�[�^���擾�ł��܂���ł���"
     Else
-        Call exportCSVDataToSheet(resData, "�c�Ə�")
+        Call exportCSVDataToExistingTable(resData, "�c�Ə�")
     End If
 End Sub
\ No newline at end of file