Excel (一般機能)

Excelの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Professional : Excel 2010)
webからの表形式データの貼り付け
投稿日時: 19/07/31 17:19:49
投稿者: なつ

いつも参考にさせていただいています。
 
表題の件ですが、web上にあるデータを、EXCELに貼り付けたいのですが、
貼り付け後、データが縦に並んでしまいます。
 

[Web上データの並び]
名称     所在地           電話番号
A社   〒123-4567 東京都中央区   03-1234-1234
B社   〒123-4567 東京都大田区   03-1234-1234
    
  ↓
EXCELに貼り付け後

名称
所在地
電話

A社  
〒123-4567
東京都中央区
03-1234-1234

B社  
〒123-4567
東京都大田区
03-1234-1234

 
ネットを検索し、webクエリで取り込んでみましたが、同じように縦並びに
なってしまいます。
試にソースを見てみると、tableではなく、ulとliで表組みされているようです。
(HTMLはよくわかりませんが、ソースにはtableタグがないようです)
 
一社ごとのデータが○行おきになっているわけでもなく、6行ごとだったり8行だったり
します。
また、企業と企業の間はかならず空白行がありますが、企業名と住所の間に空白行が
挟まれてる場合もあります。
 
これをweb上で表示されているように「名称」「所在地」「電話番号」の
順番に並び替えることは難しいでしょうか。

回答
投稿日時: 19/07/31 18:55:02
投稿者: ライスマン

上手くいくかわかりませんが
 
Webクエリ(インターネット上のデータを取り込む)
http://www4.synapse.ne.jp/yone/excel2010/excel2010_data_webquery.html

回答
投稿日時: 19/07/31 19:13:01
投稿者: んなっと

ul,liタグを使った「表に見せかけた箇条書き」でもwebクエリで取り込めるのですか。
勉強になりました。
 
おそらく下の方法では不完全だと思います。
 
方法1「電話番号で改行」
 
        A   B  C    D    E    F   G H I       J
 1     名称    A社 〒123-4 中央区 八丁堀 あ社    03-1234-5678
 2    所在地    B社 〒123-7 大田区  い社       03-1235-6789
 3     電話                               
 4                                      
 5      A社 1+1i                            
 6    〒123-4 1+2i                            
 7    中央区 1+3i                            
 8    八丁堀 1+4i                            
 9     あ社 1+5i                            
10 03-1234-5678 1+8i                            
11        1+8i                            
12      B社 2+1i                            
13        2+1i                            
14    〒123-7 2+2i                            
15    大田区 2+3i                            
16     い社 2+4i                            
17 03-1235-6789 2+8i                            
18        2+8i                            
19        2+8i                            
 
B5
=IF(A5="",B4,(IMREAL(B4)+OR(B4="",AND(A4="",RIGHT(B4,2)="8i")))&"+"&IF(AND(A4="",RIGHT(B4,2)="8i"),1,IF(AND(LEN(A5)=12,COUNTIF(A5,"*-*-*")),8,IMAGINARY(B4)+1))&"i")
下方向・↓
C1
=IFERROR(INDEX($A:$A,MATCH(ROW(A1)&"+"&COLUMN(A1)&"i",$B:$B,0)),"")&""
右方向・→下方向・↓

投稿日時: 19/08/01 09:45:47
投稿者: なつ

おはようございます。
 
ライスマンさん
アドバイスありがとうございます。
webクエリは試してみましたが、tableタグを使った表組みではないためか、
縦になってしまいました。
 
んなっとさん
ほぼ望む形になりました。アドバイスありがとうございました。
あとは手作業でなんとかなりそうです。
初めて見る関数もありますが、意味を調べながら使わせていただきます。