Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


46026 / 76732 ←次へ | 前へ→

【35687】Re:質問です。
回答  小僧  - 06/3/10(金) 11:46 -

引用なし
パスワード
   ▼ハオ さん、やっちん さん:
こんにちは。

掲示板の上の方にある
「本サイトの基本方針をまとめました。こちら をご一読ください。」
に目を通されてください。

> ・丸投げ
>   「○○するにはどうすればいいか教えてください」といったような、
>   コードを最初から最後まで教えてもらうことを期待するような質問

>・「自分が質問したとき、こんな風に答えてもらったら嬉しいだろうなぁ」と
>  いうような回答を書いてあげてください。

とありますね。


>このようにやってみたいのですが、よろしくお願いします。

K列 の値が A列 に見つからなかった場合や
K列 のIPアドレスに重複はありえるかなどの具体的なデータがないので
必ずしもうまくいくとは限りませんが、

Sub IPアドレスを探してHit数を加算()
Dim i As Long
Dim j As Long

  i = 0
  Do Until Range("K1").Offset(i, 0).Value = ""
    j = 0
    Do Until Range("A1").Offset(j, 0).Value = ""
      If Range("A1").Offset(j, 0).Value = _
        Range("K1").Offset(i, 0).Value Then
        Range("A1").Offset(j, 1).Value = _
        Range("A1").Offset(j, 1).Value + _
        Range("K1").Offset(i, 1).Value
      Exit Do
      End If
      j = j + 1
    Loop
    i = i + 1
  Loop
End Sub

こんな感じでしょうか。
A列、K列ともにソートしてあげるともっと速い処理が可能かもしれませんね。
8 hits

【35655】質問です。 ハオ 06/3/9(木) 11:01 質問
【35683】Re:質問です。 ハオ 06/3/10(金) 9:25 発言
【35684】Re:質問です。 やっちん 06/3/10(金) 10:20 発言
【35687】Re:質問です。 小僧 06/3/10(金) 11:46 回答
【35689】Re:質問です。 やっちん 06/3/10(金) 13:09 発言
【35691】Re:質問です。 ハオ 06/3/10(金) 14:05 お礼
【35692】Re:質問です。 Kein 06/3/10(金) 14:12 回答
【35694】Re:質問です。 ハオ 06/3/10(金) 14:40 お礼

46026 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free