IPアドレスの広範囲を一つずつ抽出したい

Question

例えば、10.121.0.1　～　10.121.52.254
この範囲のアドレスすべてをエクセルに一つずつ抽出する方法はありますでしょうか。
コマンドからテキストでもこの範囲が抽出されれば助かります。

10.121.0.1をセルに入力し、ドラッグしていくと10.121.0.254 の時点で手入力で10.121.1.1を入力し、そこから254までドラッグ。
しかも、52までとなると時間もかなりかかってしまいます。
また、エクセルの区切り位置で、IPアドレスをドット記号で分割しましたが、
こちらも時間はかかります。

効率の良い方法があればご教示いただきたくお願いいたします。

Answer 1

自分ならこうするというのを書きますと、

A1に '10.121.
B1に 0
C1に 1
D1に =A1&B1&"."&C1

それぞれの列をCtrlを押してか離してか覚えていないけれど適切な方で下へちょっと伸ばす。(もしくは第2列にも適切な値を入れる)
さらに全体を254列まで下へ伸ばす。

B255に =B1+1
C255に =C1

さらにそれぞれ適宜下へ伸ばす。

Answer 2

例えば、10.121.0.1　～　10.121.52.254

10進数のまま考えるからいけないのであって、16進数に変換すれば一つの数値として扱えるので、

IPアドレス	16進数値
10.121.0.1	0a790001
10.121.52.254	0a7934fe

上限値になるまでインクリメントしていけば、解が出ます。

• HEX2DEC 関数 - Office サポート

Re: Yupon さん

Answer 3

ワークシート関数でがんばるなら以下のようなイメージでしょうか（後はオートフィル）

A	B	C	D	E
=B1&"."&C1&"."&D1	="10.121"	=QUOTIENT(E1,254)	=MOD(E1,254)+1	0
=B2&"."&C2&"."&D2	="10.121"	=QUOTIENT(E2,254)	=MOD(E2,254)+1	1

類型作業があり、それら作業を楽にしたいということでしたらVBAなどプログラミング言語を覚えるのも手です。

コード部左上の四角形の中（VBA・powershell）が言語の種類なので、実行の仕方は調べてください（両方ともExcelが入っているWindows環境ならまず使えるはずです）。

Sub CreateIPAddressList()
'https://teratail.com/questions/138392
'IPアドレスの一覧生成
'速度は度外視
    
    '出力先のセル
    Dim destCell As Excel.Range
    Set destCell = ActiveCell '今アクティブなセルからスタート
    
    '整数としてi,jを用意
    Dim i As Long, j As Long
    
    'iを0 ～ 52 まで順番にループ
    For i = 0 To 52
        
        'jを1 ～ 254 まで順番にループ
            'iが0の間にjが1～254まで変化し、iが1になったときにもjが1～254まで変化する
        For j = 1 To 254
            
            '出力先のセルの値を設定
            destCell.Value() = "10.121." & i & "." & j
            
            '次の出力先は、今のセルから1行下にずらしたところ
            Set destCell = destCell.Offset(1)
            
        Next j
        
    Next i
    
End Sub

# https://teratail.com/questions/138392

# 保存先のファイルパス
[string]$outputFile = 'C:\ip.txt'

# foreach { ~ } 内の結果を $results に取得
[string[]]$results =
    # $i には 0 ~ 52 までが順番に入る
    foreach ( $i in 0..52) {
        # $j には 1 ~ 254 までが順番に入る
        foreach ( $j in 1..254) {
            # {0} を $i、 {1} を $j に置き換える
            '10.121.{0}.{1}' -f $i , $j
        }
    }

# $results を CRLF（改行文字） でくっつけて（-join）
$results -join "`r`n" |
    # $outputFile に出力（上書き）
    Out-File -FilePath $outputFile -Encoding default

Answer 4

A列に1,2,3,...と入れて
B1に下記を入力し、B列全体にコピーする。

=CONCATENATE("10.121.",ROUNDDOWN((A1-1)/254,0),".",MOD(A1-1,254)+1)

第3オクテットは1-254で0、255-508で1。1引いた数を254で割れば良い。
第4オクテットは1-254の繰り返しなので、0-253の繰り返し+1にすれば良い。
後はつなげるだけ

Answer 5

10.121.0.1をセルに入力し、ドラッグしていくと10.121.0.254 の時点で手入力で10.121.1.1を入力し、そこから254までドラッグ。

しかも、52までとなると時間もかなりかかってしまいます。

多分、この質問書いてる時間より、短時間で実現できると思うけど。。。
コスト意識持ったほうがいいよ。

Answer 6

IPアドレスと言っても、たんなる３２ビットの整数です
８ビットづつドットで区切って表示すればいいだけのはなしなんで、
まずは、

• IPアドレス表記から３２ビット整数に変換
• ３２ビット整数からIPアドレス表記に変換

の２つを関数の形にしておけば、あとはインクリメントさせて表示させるだけ、というはなしになります

＃まー、８ビット整数４つ組み合わせるほうがやりやすいかも

Answer 7

以下、xを一ずつ増やしながら反復

xを254で割る。
商をyとする。
余り+1をzとする。
10.121.y.zを出力する。

動作未確認