スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

特定の文字列を見つける

Function IncludeChar(ByVal Text As String) As String
Dim RegExp
Set RegExp = CreateObject("VBScript.RegExp")
RegExp.Global = True
RegExp.IgnoreCase = True '★大文字小文字を区別する時はFalse
RegExp.Pattern = "場所" '== パターン1 :"TP"
If RegExp.Test(Text) Then
IncludeChar = "1"
Exit Function
End If
RegExp.Pattern = "お問合せ" '== パターン2: "PT"
If RegExp.Test(Text) Then
IncludeChar = "2"
Exit Function
End If
RegExp.Pattern = "up" '== パターン3: "P"
If RegExp.Test(Text) Then
IncludeChar = "3"
Exit Function
End If
RegExp.Pattern = "T" '== パターン4: "T"
If RegExp.Test(Text) Then
IncludeChar = "4"
Exit Function
End If
End Function

--------------------------------------------------------------
Sub Macro3()
For y = 1 To 3000
Cells(y, 5).Value = IncludeChar(Cells(y, 2).Value)
Next

End Sub
--------------------------------------------------------------

Sub Macro4()
a = 1
For y = 1 To 3000

If Cells(y, 5).Value = 3 Then
Cells(a, 6).Value = Cells(y, 2).Value

ElseIf Cells(y, 5).Value = 1 Then
Cells(a, 7).Value = Cells(y, 2).Value

ElseIf Cells(y, 5).Value = 2 Then
Cells(a, 8).Value = Cells(y, 2).Value
a = a + 1
End If


Next

End Sub
スポンサーサイト

コメントの投稿

非公開コメント

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。