0

Excel2007-Excelに入れたい古いWordテーブルが無数にあります。セルの内容を2つのセルに分割したいと思います。ほとんどのセルは非常によく似た形式です（この形式がないとセルを分割する必要はありません）-テキスト（日付）。「LEFT」または「RIGHT」を使用してみましたが、テキスト文字列と日付文字列は可変長であるため、簡単な方法はありません。例えば-

セルA1-「市場価値（2009年6月16日）」[または「追加（2009年12月15日）」など]

セルを分割したい-

セルA1-「市場価値」およびセルB1-「2009年6月16日」

明らかに、それがA1データを取得し、それをB1 / C1に入れる場合、私はあまり気にすることができませんでした。

他の分割VBAモジュールを見たことがありますが、それらは私のためにトリックを行っていないようです。CSVを使用して分割する方法を探しましたが、それも役に立たないようです。では、「（」または「）」をマーカーとして使用して、「（」の前後のテキストをコピーする方法はありますか？

4

1 に答える 1

0

では、「（」または「）」をマーカーとして使用して、「（」の前後のテキストをコピーする方法はありますか？

はい

例

セルA1-「市場価値（2009年6月16日）」

Sub Sample()
    Dim Ar() As String

    Ar = Split(Range("A1").Value, "(")

    Debug.Print Ar(0) '<~~ This will give      Market Value
    Debug.Print Ar(1) '<~~ This will give      6/16/09)

    '<~~ And the below will give you           6/16/09
    Debug.Print Replace(Ar(1), ")", "")
End Sub
于 2012-05-21T20:33:58.540 に答える