ｐｄｆのデータのコピー

質問

ｐｄｆのデータをエクセルにコピーしたらA列に以下にように
（例　2 1332 株株株株100 178,831,937・・・・・・・） とはいってします。
これをセルに割り当てるのに（区切り位置ウイザード）でスペース区切りにするとできるのですが、ただ（株株株100）のところだけ（株株株△1）とスペースの手入力が必要です。
スペースをいれないとくっついてしまいその後の区切りもずれます。
データ数は4000位ありかなり大変です。しかも毎週発生します。
漢字（株株株・・これは社名でいろいろあります）がなく数値だけなら
区切り位置がうまくできます。
漢字だけ認識してスペースに変化できますか
よろしくお願いします

回答No.3

n-jun · ベストアンサー

物は試しの、

Sub try2()
Dim re As Object
Dim Matches As Object
Dim i As Long
Dim a As String, v, x

With ActiveSheet
v = .Range(.[A1], .Cells(Rows.Count, 1).End(xlUp)).Value
ReDim x(1 To UBound(v, 1))

Set re = CreateObject("VBScript.RegExp")
re.Pattern = "\s{1}\D+"

For i = 1 To UBound(v, 1)
If re.test(v(i, 1)) Then
Set Matches = re.Execute(v(i, 1))
x(i) = Replace(v(i, 1), Matches.Item(0).Value, " ")
Else
x(i) = v(i, 1)
End If
Next
.Range("A:A").ClearContents
.Range("A1").Resize(UBound(v, 1), 1).Value = Application.Transpose(x)
.Columns("A:A").TextToColumns Space:=True
End With
Erase x
Set re = Nothing
End Sub
こんな感じでしょうか？

回答No.4

n-jun

会社名も残すのなら、

>Set Matches = re.Execute(v(i, 1))
>x(i) = Replace(v(i, 1), Matches.Item(0).Value, " ")
を
Set Matches = re.Execute(v(i, 1))
a = Matches.Item(0).Value
x(i) = Replace(v(i, 1), a , a & " ")
に変更願います。

お礼

いろいろありがとうございます
これから試してみます
ｖｂは素人なので本を読みながら挑戦です
これからもよろしくお願いします

回答No.2

n-jun

>漢字部分（会社名）だけを消去すればよいようです。

Sub　try()
　　Dim　re　As　Object
　　Dim　Matches　As　Object
　　Dim　a　As　String

　　a　=　Range("A1").Value
　　Set　re　=　CreateObject("VBScript.RegExp")
　　re.Pattern　=　"\s{1}(\D+)"　　
　　If　re.test(a)　Then
　　　　　Set　Matches　=　re.Execute(a)
　　　　　With　Matches.Item(0)
　　　　　　　　　　Range("B1").Value　=　Replace(a,　.Value,　"　")
　　　　　End　With
　　End　If
　　Set　re　=　Nothing
End　Sub
例えるなら、こうゆう事ですか？

お礼

詳しい回答ありがとうございます
ＶＢは素人ですが一語ずつ約しながら試して見ます
　またわからないことがあったら教えてください

回答No.1

imogasi

何でもエクセルに貼り付けできるという仮定がまちがいなんです。
普通あるアプリのデータを、エクセルに貼り付けるって、プログラムをやればわかるが、アプリ側にも、エクセル側にも大変な仕組みの組み込みがいるのです。
PDFは主に印刷用のファイル形式であるので、貼り付けても、エクセルのセルにスパッと収まらない。ただテキストデータ的なものは持っているので、質問のようになる。
ーー
さて質問の例では
カンマ区切りで分けられるものは分けるとして、残るは、会社名の文字列と、次の数字・数値が分離できないという課題に表現できると思う。
例データA1:A3でB,C列は式の結果
A列　　　B列　　　C列
丸山商事12 12 丸山商事
幸食品234 234 幸食品
寿運輸3456 3456 寿運輸
B列は
=MID(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&"0123456789")),99999)
といれて、下方向に式を複写する。
会社名は
C列に
=SUBSTITUTE(A1,B1,"")
と入れて、下方向に式を複写する。
B列の式はむつかしい技巧的なものだが、広く流布していて、定番のや
り方になっている。

補足

あけましておめでとうございます　
早速の回答ありがとうございます

質問が早計でした。漢字部分（会社名）の前にはすでにスペースがあるので単純に漢字部分（会社名）だけを消去すればよいようです。
失礼しました。
元データが 例
（1 1301 会社名1,000 78,287,574 12.64 13.48 1.08 -0.65 13.90 14.80）です。
これを漢字部分（会社名）だけを消去
（1 1301 1,000 78,287,574 12.64 13.48 1.08 -0.65 13.90 14.80）

それを区切り位置でスペース区切りすると
A列 　　 1　　　　　　　　（連番）
B列 1301 　　　　　　　（コード）
C列　 1,000 　　　　　　　（データ　1）
Ｄ列 78,287,574 　　（データ　2）
E列 12.64 　　　　　（データ　3）
F列 13.48 　　　　　（データ　4）
G列 1.08 　　　　　　（データ　5）
H列 -0.65 　　　　　（データ　6）
I列 13.90　　　　　 （データ　7）
J列 14.80　　　　　　（データ　8）

となります。
先のご回答も大変参考になりました