マクロについて教えてください。下記のことをやりたいのですが、この構文だとうまく動くのですが、F列の文字列になっている箇所がすべて数値になってしまいます。F列はもともと文字列と数値が混在しています。文字列は文字列のままにしたい（書式は変えたくない）のですが、どうしたらいいか教えてください。'H列：「テスト①」を抽出し、F列：以下に修正→「（空白）」'H列：「システム」を抽出し、F列：以下に修正→「システムシート」'F列：「User Name Empty」を以下に変更する。→「（空白）」Sub マクロ①()Dim data, str1, str2data = Sheets(\u0026quot;データ\u0026quot;).Range(\u0026quot;A1\u0026quot;).CurrentRegion.Valuestr1 = Array(\u0026quot;テスト①\u0026quot;, \u0026quot;システム\u0026quot;, \u0026quot;user name empty\u0026quot;)str2 = Array(\u0026quot;空白\u0026quot;, \u0026quot;システムシート\u0026quot;, \u0026quot;空白\u0026quot;)Dim i As LongIf UBound(data) \u0026lt;2 Then Exit SubFor i = 2 To UBound(data)If InStr(data(i, 8), str1(0)) \u0026gt;0 Thendata(i, 6) = str2(0)ElseIf InStr(data(i, 8), str1(1)) \u0026gt;0 Thendata(i, 6) = str2(1)ElseIf InStr(data(i, 6), str1(2)) \u0026gt;0 Thendata(i, 6) = str2(2)End IfNext iWith Sheets(\u0026quot;データ\u0026quot;).Range(\u0026quot;A1\u0026quot;).CurrentRegion.ClearContents.Resize(UBound(data), UBound(data, 2)).Value = dataEnd WithEnd Sub