MW211 EXIT

devlog
ExcelVBA/特定文字以降を除去
2023年02月24日
例えば「(」以降を除去する方法。いくつかある。
┌──────────┬───────────────────────────┐
│正規表現を用いる方法│Dim REG As Object                                     │
│                    │Set REG = CreateObject("VBScript.RegExp")             │
│                    │REG.Global = True                                     │
│                    │REG.Pattern = "\(.*$"                                 │
│                    │文字列 = REG.Replace(文字列, "")                      │
├──────────┼───────────────────────────┤
│文字位置を調べる方法│Dim 位置 As Long                                      │
│                    │位置 = InStr(1, 文字列, "(", vbTextCompare)           │
│                    │If (位置 > 0) Then                                    │
│                    │    文字列 = Left(文字列, 位置 - 1)                   │
│                    │End If                                                │
├──────────┼───────────────────────────┤
│配列を用いる方法    │文字列 = Split(文字列, "(")(1)                        │
└──────────┴───────────────────────────┘
分類:ExcelVBA