From d3abff74210c7cfdf87490fc5cab56b75ea15ad8 Mon Sep 17 00:00:00 2001
From: simple321vip <635344988@qq.com>
Date: Mon, 13 Apr 2026 03:21:50 +0000
Subject: [PATCH] =?UTF-8?q?=E6=9B=B4=E6=96=B0=20vba=5Fcode=5Fkukan=5Fdetai?=
 =?UTF-8?q?l=5Fmaster.txt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 vba_code_kukan_detail_master.txt | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt
index bbd7a01..e5301f5 100644
--- a/vba_code_kukan_detail_master.txt
+++ b/vba_code_kukan_detail_master.txt
@@ -39,15 +39,10 @@ Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional By
     
     On Error Resume Next
     Set wsKukan = ThisWorkbook.Worksheets("区間メンテナンス")
-    MsgBox "1."
     On Error GoTo 0
-    MsgBox "5."
     If wsKukan Is Nothing Then Exit Sub
-    MsgBox "4."
     code = Trim(ws.Cells(rowNum, 3).Value)
-    MsgBox "3."
     If code = "" Then Exit Sub
-    MsgBox "2."
     lastRow = wsKukan.Cells(wsKukan.Rows.Count, 3).End(xlUp).Row
     
     For i = 7 To lastRow