を使用して文字列の列を解析、セルのそれぞれには、以下が含まれています私はエクセルVBAで文字列のセル列を解析したいVBA
答えて
フォーマットについては、 '(アポストロフィ)&の前の文字列を見つけてください。 この値を持つセルにいると仮定して、次のVBAコードを使用します。
activecell.text = mid(activecell.text, 1, instr(1, activecell.Text, "'")-1)
それはアポストロフィを探し、それ&は現在のセルにそれを置く前に、文字を抽出します。
アポストロフィの前の数字が2の代わりに2000または200の場合はどうなりますか?ミドルファンクションの2番目のパラメータを返す文字数をより柔軟にするにはどうすればよいですか? – stanigator
そのような場合は問題ではありません。コードはアポストロフィを探し、最初の文字から始まるすべての文字を返します。 – shahkalpesh
ありがとうございます。私はそれをとにかく使って見つけました。 – stanigator
数値データが常にセルの先頭にあると仮定すると、Regexを使用して文字列の先頭に連続する数字を見つけ、最初の数値以外の文字にヒットすると停止します。ここでは、あなたのためにそれを行う関数です、私はそれが助けてくれることを願っています。 ^はセルの開始を表し、(\ d +)は1つ以上の数字を意味し、。*は0以上の文字が続くことを意味します。私は、あなたが必要とする数字の文字列が1つしかないと仮定しているので、正規表現はサブマッチ0(最初のマッチ)を返します。
Function ExtractNumericData(ByVal text As String) As String
Application.ScreenUpdating = False
Dim allMatches As Object
Dim RE As Object
Set RE = CreateObject("vbscript.regexp")
RE.Pattern = "^(\d+).*"
RE.Global = True
Set allMatches = RE.Execute(text)
ExtractNumericData = allMatches.Item(0).submatches.Item(0)
Application.ScreenUpdating = True
End Function
- 1. エクセル/ VBA:文字列
- 2. VBA、文字列の最後を解析は、カスタム文字列
- 3. エクセル2010 VBAセルの数学
- 4. JSON文字列は、私は、JSON文字列を解析したい
- 5. 文字列操作VBA Excel
- 6. VBA - 範囲セル内の文字列を削除する方法
- 7. エクセルVBA -
- 8. VBAエクセル
- 9. エクセルVBAは -
- 10. エクセルVBAでアドレス
- 11. 解析エクセルVBAで非一貫性のJSONレスポンス長
- 12. ループ内に文字列を含むVBAセル
- 13. 私は、Webページを解析していた文字列
- 14. VBA - 文字列から最初の3文字を別のセルにコピーする
- 15. 特定の文字列(VBA)の部分文字列の検索
- 16. エクセルVBAは - 範囲
- 17. 解析文字列
- 18. 解析文字列
- 19. エクセルvbaリサイズプリントエリア
- 20. vbaからフラットファイルへのUnicode文字列
- 21. Excel VBAセルの文字の制限
- 22. エクセルVBAは:スタッガードを移植して2次元配列データ
- 23. Pythonの私は、この文字列を解凍したいGzipで文字列
- 24. エクセルVBA:私のような何かをしたい
- 25. 前はエクセルVBAで、多次元配列を定義
- 26. 列内の文字列を検索し、ExcelでVBAを使用してそのセルを選択します
- 27. 文字列の解析R
- 28. 文字列解析のヘルプ
- 29. 文字列の解析
- 30. PHP - 文字列の解析
http://stackoverflow.com/questions/924717/excel-finding-and-removing-some-characters-in-a-column-of-dataの重複? – barrowc
これは私がbarrowcのスレッドについて以前に尋ねた質問に由来する別個の質問です。 – stanigator