EXCELで整数の列のみ抜き取る方法

解決済

質問者：dadao
質問日時：2006/07/07 17:06
回答数：5件

x軸に波長、ｙ軸に光強度のデータを測定したのですが、測定の間隔を1nm刻み、0.5nm刻みの２種類のデータとしてしまいました。これを1nm刻みでそろえたいのでオートフィルタでそろえようと思いましたが、項目ありませんでした。整数のみ抜き取るマクロやVBAは何かありますか？よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (5件)

ベストアンサー優先
最新から表示
回答順に表示

No.5ベストアンサー

回答者： imogasi
回答日時：2006/07/08 06:37

Sheet1の第２，４、６・・行をSheet2に抜き出すなら

Sheet2のA1に　=INDIRECT("Sheet1!A"&(ROW()*2))
と入れて下方向に式を複写。
B１は　=INDIRECT("Sheet1!B"&(ROW()*2))
第１，３，５、・・行なら
Sheet2のA1は　=INDIRECT("Sheet1!A"&((ROW()-1)*2)+1)
です。
ーーーーーーーーー
規則性がなければ
例データ　A2:A10　に
A列　　　　　　　　　D列（関数式の結果）－は判りやすくするため
入れたもので実際にはない。
1ー1
2.31ー
3.41ー
4ー2
5ー3
6ー4
7.1ー
8ー5

あき列をD列として、D列D2に
=IF(A2="","",IF(MOD(A2*10,10)=0,MAX($D$1:D1)+1,""))
で条件に合うものに連番が触れます。
Sheet2に行って
A1に　
=INDEX(Sheet1!$A$2:$B$10,MATCH(ROW(),Sheet1!$D$2:$D$10,0),1)
この式を下方向に複写する。(自称imogasi方式）
結果
1
4
5
6
8
#N/A
#N/Aの非表示は
=IF(ROW()>MAX(Sheet1!$D$1:$D$10),"",INDEX(Sheet1!$A$2:$B$10,MATCH(ROW(),Sheet1!$D$2:$D$10,0),1))

- 0
- 件

通報する

この回答へのお礼

ありがとうございます。
関数使い初めのものですので
関数の意味を追っていって時間が掛かりました。
大変勉強になりました。

通報する

お礼日時：2006/07/08 17:20

No.4

回答者： imogasi
回答日時：2006/07/07 20:26

＞測定の間隔を1nm刻み、0.5nm刻みの２種類

測定の間隔とセルのデータの整数・非整数とはどういう関係が有るのですか。ないはずです。
少数実例でも挙げて質問しないと、シートのセルの状況がわかりません。間隔を短くするデータが整数でなくなるなんてことは、一般的ではないでしょう。どちらも整数になる（する）場合もあり、ならない場合（有効数字）もあると思う。

この回答への補足

おっしゃるとおりです。具体的な例を挙げて説明します。
A列　　B列
400.5　5.23
401　　5.36　
401.5　5.27
402　　6.35
402.5　6.35
.
.
.
A列の数字が1000まで0.5刻みで続いています。
データにするときはこの項目がじゃまなので
A列が小数点の行を消去したいのです。

A列　　B列
401　　5.36　
402　　6.35

自分の言いたいことはこうでした。
言葉が足りませんでした。反省します。
このようなデータがたくさんあるので何かいい手はないかと思った訳です。
よろしくお願いします。