回答編集履歴

コメントに基づき、Private Function get_weekの内容を修正しました。

2019/11/12 14:55

投稿

スコア5540

answer CHANGED Viewed

@@ -12,8 +12,10 @@
 ```VBA
 Private Function get_week(ws As Worksheet, lastrow As String, key As String) As String
     Dim wrow As Long
+    Dim result As Variant
     For wrow = 2 To CLng(lastrow)
-        If InStr(ws.Cells(wrow, "A").Value, key) > 0 Then
+        result = Cells(wrow, "A").Value Like key & "*Total"
+        If result = True Then
             get_week = ws.Cells(wrow, "B").Value
             Exit Function
         End If