[[20120515013244]]　『数値化したいのですが、どうしたら良いでしょうか』（しげやん）　ページの最後に飛ぶ

『数値化したいのですが、どうしたら良いでしょうか』（しげやん）

表1は、あるサイトをWebクエリーを使ってexcelのsheetへインポートした表です。
数字は数値になっています。
この表からゴールドマンとUBSの値を抽出し、数値を保存したいのです。
この表は、5月14日分ですので、5月15日の翌日分や5月16日翌翌日分もあるので、
マクロ等で保存するにはどうしたらよいでしょうか。毎日のことなので手入力がつらいので、どなたか助けてください。

表１本日の先物取引情報 ( 5月14日分 )

	5月14日						
証券会社名	225 SELL 	225 BUY 	225 NET 		TOPIX SELL	TOPIX BUY 	TOPIX NET 
野村 	1342	1051	-291		2228	3039	811
日産Ｃ 	984	1012	28		711	570	-141
東海東京 	84	33	-51				
大和 	152	410	258		3290	2043	-1247
水戸 					669	644	-25
松井 	777	1045	268				
楽天 	785	708	-77				
岡三 	763	865	102		500	409	-91
安藤 	716	716	0		1640	1477	-163
メリルリンチ 	134	357	223		740	1314	574
むさし 					1297	1297	0
みずほインベ 	69	-	-69		-	1	1
みずほ 	737	1002	265		644	696	52
マネックス 	717	626	-91				
バークレイズ 	2767	3063	296		4061	4149	88
ニューエッジ 	13083	11513	-1570		3561	3431	-130
ドイツ 	528	1232	704		579	595	16
ソシエテ 	110	-	-110				
シティＧ 	1454	1194	-260		149	488	339
ゴールドマン 	1872	1591	-281		1540	1527	-13
カブドットコム 	598	606	8				
アーク 					729	729	0
ＵＢＳ 	2371	2123	-248		1933	1720	-213
ＳＢＩ 	1003	924	-79				
ＲＢＳ 	16	146	130				
ＭＵＭＳ 	73	82	9		1	-	-1
ＭＳＭ 	1426	1423	-3		2605	3024	419
ＪＰモルガン 	1012	984	-28		1381	1631	250
ＨＳＢＣ 	168	48	-120				
ＧＭＯクリック 	456	475	19				
Ｃスイス 	57	521	464		1674	983	-691
ＢＮＰパリバ 	289	329	40		527	874	347
ＡＢＮアムロ 	2846	3076	230		879	748	-131

表2
　　　　　　　　　　　　　　　ゴールドマン
5月14日 1872 1591 -281 0 1540 1527 -13

補足説明：抽出には、IF(NOT(ISERROR(VLOOKUP("ゴールドマン ",Tradersweb!$A$1:$H$52,2,FALSE))),VLOOKUP("ゴールドマン ",Tradersweb!$A$1:$H$52,2,FALSE),0)
を使っています。

表2の　1872やその右の数値ですが、上述の関数を入れているため、翌日のデータを更新(翌日）してしまうと値が変わってしまいます。
更新には、5月14日の行に新しい行をコピー挿入します。

なにかしら、良い手立てをご教授ください。

 TraderswebシートのA1に日付、表2（ここではSheet2としておきます）のA1セルに会社名を入れておいて

 Sub データコピー()

     Dim KName As String
     Dim MyRng1 As Range, MyRng2 As Range

     KName = Sheets("Sheet2").Range("A1")

     Set MyRng1 = Sheets("Tradersweb").Columns("A").Find(what:=KName)
     Set MyRng2 = Sheets("Sheet2").Columns("A").Find(what:=Sheets("Tradersweb").Range("A1"))

     MyRng1.Offset(0, 1).Resize(, 7).Copy MyRng2.Offset(0, 1)

 End Sub

 いちいちマクロボタンをクリックして実行するよりも ボタン（フォームの）を作って マクロを
 登録しておいた方が楽かな？

 ちなみにTraderswebシートのA1セルに日付を入れるのではなく今日の日付でいいということなら
 Find(what:=Sheets("Tradersweb").Range("A1")) の部分を Find(what:=Date) にしてください。

 *追記*
 Sheet2のA列にはあらかじめ日付を入れておいてください。

 (se_9)

ありがとうございました。
無事解消致しました。
次回もよろしくお願いします

コメント返信：

[ 一覧(最新更新順) ]

[[20120515013244]] 『数値化したいのですが、どうしたら良いでしょうか』（しげやん） ページの最後に飛ぶ

[[20120515013244]]　『数値化したいのですが、どうしたら良いでしょうか』（しげやん）　ページの最後に飛ぶ