Excel 時刻に対する緯度・経度データ補完

質問

緯度・経度のデータを不連続（数秒間隔）に測定しました。
この緯度・経度のデータを1秒間隔のデータとするような、データ処理をしたいと思っております。

以下現状のデータ例となります。
hh/mm/ss　　　　　緯度（標準書式）　　　　　経度（標準書式）
14:51:33　　　　　　　34-17-24.1　　　　　　　　　　138-40-24.0
14:51:34　　　　　　　　　X　　　　　　　　　　　　　　　X
14:51:35　　　　　　　　　X　　　　　　　　　　　　　　　X
14:51:37　　　　　　　35-17-52.3　 　　　 　　　 139-43-46.5

見づらいですが、Xの部分が補完したいデータとなります。

当方、VBAやマクロを使いこなす知識ありませんので、簡単な方法がありますと大変助かります。

どなたか詳しい方、宜しくお願い致します。

回答No.6

basic_gg · ベストアンサー

No.2：basic_gg　です。
計算式を書いたてまえ、数式を書かないわけには…。
・初期設定
C2:D11のセルの書式設定は、[h]-mm-ss.0 に設定してあるとします。
A1="__",B1="hh/mm/ss",C1="緯度(標準書式)",D1="経度(標準書式)"
A2="01",B2=14:51:33,C2=34-17-24.1,D2=138-40-24.0
A3="02",B3=14:51:34、
A4="03",B4=14:51:35、
A5="04"、A6="05"、A7="06"、A8="07"、A9="08"、A10="09"、
A11="10",B11=14:51:37,C11=35-17-52.3,D11=139-43-46.5
・C=(3*17+4*10)/(3+4)の式を作れば
C3=IF(B3="","",((B3-B$2)*C$11+(B$11-B3)*C$2)/(B$11-B$2))
D3=IF(B3="","",((B3-B$2)*D$11+(B$11-B3)*D$2)/(B$11-B$2))
・変化する三角形に変化しない長方形を足すという考えなら
C3=IF(B3="","",((C$11-C$2)/(B$11-B$2)*(B3-B$2)+C$2))
D3=IF(B3="","",((D$11-D$2)/(B$11-B$2)*(B3-B$2)+D$2))
上記式をオートフィル

お礼

No.2の回答も合わせ、ご回答ありがとうございます。
データ補間という考え方でなくても、単純な比例配分だというご指摘が目からウロコだったため、BAとさせて頂きます。

ありがとうございました。

回答No.5

noname#204879

添付図参照
B3: =TEXT(SUBSTITUTE(B$2,"-",":")+(SUBSTITUTE(B$5,"-",":")-SUBSTITUTE(B$2,"-",":"))*($A3-$A$2)/($A$5-$A$2),"[h]-mm-ss.0")

回答No.4

keithin

準備：
Ａ列からＣ列に記入します
なお，Ａ列の36秒が無いので追加します

１．緯度経度をエクセルで計算できるデータに簡単に修正する方法
Ｂ：Ｃ列を列選択
Ctrl+Hで置換のダイアログを出し
-
を
:
に全て置換します

Ｂ：Ｃ列を列選択
セルの書式設定の表示形式のユーザー定義で
[h]-mm-ss.0
と設定します

２．データを簡単に補間させる方法
Ｂ１：Ｃ５を選択，
ホームタブ右端（エクセル2003以前を使っているときは編集メニュー）のフィル▼から「連続データの作成」を開始，
「データ予測」にチェックしてＯＫします。

実施結果：
14:51:33　34-17-24.1　138-40-24.0
14:51:34　34-32-31.1　138-56-14.6
14:51:35　34-47-38.2　139-12-05.3
14:51:36　35-02-45.2　139-27-55.9
14:51:37　35-17-52.3　139-43-46.5

＃参考
FORECAST関数で計算させたり，上述の作業を新しいマクロの記録でマクロに録ったのを手直しして使っても，勿論できます。

お礼

ご回答ありがとうございました。

データ予測という機能を知らなかったです。。
お蔭様でフィル機能を上手く使うことができました。

回答No.3

K Kazz（@JazzCorp）

似非補間の全て！
Ｄ～Ｆ列：緯度を因数分解（データのあるところ）
Ｇ～Ｉ列：経度を因数分解（データのあるところ）
Ｊ列：緯度を秒換算
Ｋ列：経度を秒換算
これより、補間部分、
Ｂ３:
=INT(J3/3600)&"-"&MOD(INT(J3/60),60)&"-"&ROUND(MOD(J3,60),1)
Ｃ３:
=INT(K3/3600)&"-"&MOD(INT(K3/60),60)&"-"&ROUND(MOD(K3,60),1)
Ｊ３:
=J$2+(J$5-J$2)*($A3-$A$2)/($A$5-$A$2)
Ｋ３:
=K$2+(K$5-K$2)*($A3-$A$2)/($A$5-$A$2)
４行目はコピー
これより、測定値部分、
Ｄ２:
=MID($B2,1,FIND("-",$B2,1)-1)
Ｅ２:
=MID($B2,LEN($D2)+2,FIND("-",MID($B2,LEN($D2)+2,LEN($B2)))-1)
Ｆ２:
=MID($B2,LEN($D2)+LEN($E2)+3,LEN($B2))
Ｇ２:
=MID($C2,1,FIND("-",$C2,1)-1)
Ｈ２:
=MID($C2,LEN($G2)+2,FIND("-",MID($C2,LEN($G2)+2,LEN($C2)))-1)
Ｉ２:
=MID($C2,LEN($G2)+LEN($H2)+3,LEN($C2))
Ｊ２:
=D2*3600+E2*60+F2
Ｋ２:
=G2*3600+H2*60+I2
５行目はコピー

お礼

ご回答ありがとうございます。

度、分、秒に分解してしまえば単純な問題になるという点が
大変に参考になりました。
実際にも、その様な処理行い、作業完了することが出来ました。

回答No.2

basic_gg

(数値をよく眺めましょう)
A地点の高さ10,B地点の高さ17
A地点とB地点の間にC地点を作る。
A地点とC地点間の距離3,C地点とB地点間の距離4とし、
C地点の高さCを比例で求めるとすれば、
C=(3*17+4*10)/(3+4)=13

お礼

Ans.#6も合わせ、ご回答ありがとうございました。

回答No.1

aokii

緯度（標準書式）と経度（標準書式）を以下の式で数値（度単位）に直して、

B1セルに緯度（標準書式）があるとして、
=LEFT(B1,FIND("-",B1)-1)+MID(B1,FIND("-",B1)+1,(FIND("-",B1,FIND("-",B1)+1)-FIND("-",B1)-1))/60+MID(B1,FIND("-",B1,FIND("-",B1)+1)+1,100)/3600

1秒間隔のデータだとすると、14:51:36がないのですが、有るとして、

グラフから自動で近似式を作ってはいかがでしょう。（何次式の近似式のするのかは選択できます）

お礼

早々のご回答ありがとうございました。
力不足で補間の式を求めるには至りませんでしたが、
補間法についていろいろ勉強する機会となりました。